beveilingsprobleem en delete toest.

[glda19]

Hi
Paswoord beveiliging = test

Ik heb hier vormen op mijn werkblad staan en ook een foto.
En heb het werkblad beveiligd het probleem is nu dat ik die vormen niet meer kan selecteren op bv via wissen alles te verwijderen.
Als ik DrawingObjects=false geef in onder staande code dan kan ik de foto ook verwijderen wat niet de bedoeling is
Enkel die blauwe vormen mogen verwijderd worden.

Maar als ik bij het beveiligen van het werkblad in de lijst bewerken objecten aan zet dan kan ik die blauwe vormen selecteren maar ook de foto en dit mag niet

in thisworkbook staat die code

Private Sub Workbook_Open()
Dim oSh As Worksheet

 For Each oSh In ThisWorkbook.Worksheets
           oSh.Protect Password:="test", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

En heb de delete toets uitgeschakeld.
Maar dit laatste bekend voor alle werkboeken die open staan en dat wil ik niet.

 

[glda19]

Denk zelf een mogelijke oplossing gevonden te hebben. Wis niet dat je de eigenschappen van een vorm kon wijzigen.
Vond dit op internet. En via een macro kwam ik dit tegen.

Selection.Locked = msoFalse