Hallo

Een werklad en werkboek is beveiligd. Echter in de niet beveiligde cellen kan men knippen en plakken. Dit wil ik vermijden. Kan dit met een formule VB of misschien een mogelijkheid om de rechtermuis knop uit te schakelen.

Iemand een idee?

Dank u

Bedankt Dimy maar achteraf bekeken is "rechtermuis knop" uitschakelen toch niet de juiste oplossing. Je kan nog steeds via menu knippen en plakken.

Dit heb ik zelf gevonden na wat zoeken;

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCut Then
MsgBox "je mag niet knippen"
ElseIf Application.CutCopyMode = xlCopy Then
MsgBox "je mag niet kopiëren"

Application.CutCopyMode = False
End If
Application.CellDragAndDrop = False
End Sub

Bedankt

Probleem wat zich nu nog stelt is dat ik deze opdracht moet kunnen uitschakelen als ikzelf wijzigingen aanbreng.
De workbook is beveiligd met een formulier met wachtwoord die de beveiliging automatisch uitzet, werkbalk terugzet, enz... Nu zou ik de opdracht (knippen plakken) automatisch terug willen inschakelen maar dit lukt nog niet.
De optie om handmatig in VB uit te zetten is niet aan de orde.

Misschien iemand een hint

O ja Hombre, dit vergat ik ff....
Je kan dan in de rest van je procedures gebruik maken van de 'named range: rngSheetBeveiligd'. Als deze TRUE is zorg je er bijvoorbeeld voor dat je application.cutcopymode niet xlcut of xlcopy is. Je kan dan tevens het volgende codeblokje inzetten: (workbook-sectie)

---

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    If Range("rngSheetBeveiligd").Value = True Then
        Cancel = True
    Else:
        Cancel = False
    End If

End Sub

---

nogmaals groet, Leo

En voor dat ik dit ook vergeet... het password = oplossing

Hombre, ik begrijp je stukje

Deze cellen moet wel bruikbaar blijven om getallen in te geven

niet helemaal. Ik heb in mijn voorbeeldsheet alle cellen behalve de 3 gele beveiligd (gelocked). Het klopt dus dat je nergens iets kan invullen behalve in de gele!  
Ik ben uit interesse toch nog ff verder gaan puzzelen. Mijn volgende idee was om de buttons cut/copy/paste uit de werkbalk te verwijderen als de beveiliging aan staat. Tevens zorgt de procedure activate/de-activate ervoor dat bij het wisselen van workbooks de knoppen getoont worden. Dit idee is trouwens redelijk riskant volgens mij. Bij mij staan de buttons op de positie 12, 13 en 14. Als dit bij jou anders is, verdwijnen waarschijnlijk de verkeerde buttons... (pas dus ff op met uittesten en controleer je buttons).
De sheet-button 'lock/unlock' zorgt er ook voor dat de buttons verschijnen en verdwijnen. Tevens heb ik jouw procedure van cutcopymode toegevoegd aan de procedure workbook_sheetselectionchange. Het viel me op dat je hiermee nogsteeds wel kan copieren vanuit een ander workbook.
Goed, ik geloof dat met deze laatste actie MIJN ideeenbron de bodem heeft bereikt. Misschien heb ik je een bepaalde kant uitgestuurd waar je zelf mee verder kan. Succes er mee (laat nog ff weten als het je nog is gelukt)
Groet, Leo

Ok. graag gedaan!

Goya, dat klopt. Had ik ook afgevangen in VBA-code.... (zie mijn voorbeeldbestandje)
Groet, Leo