Macor voor protect en uprotect

[peter16]

Ik zoek een macro welke controleerd of een bestand beveiligd is. Zo ja dan moet de beveiling opgeheven worden, zo nee dat moet het juist beveiligd worden. Ik dacht aan onderstaande macro maar die blijkt niet te werken. Wat doe ik niet goed?

Sub BeveiligingAanUit()

If ActiveSheet.Unprotect Then GoTo Protect
If ActiveSheet.Protect Then GoTo Unprotect
Unprotect:
ActiveSheet.Unprotect
MsgBox "Bestand is niet meer beveiligd."
Exit Sub
Protect:
ActiveSheet.Protect Contents:=True, Scenarios:=True
MsgBox "Bestand is beveiligd."
End sub

 

[LucHeyndrickx]

Hallo Peter,

zo misschien:

Sub BeveiligingAanUit()
If ActiveSheet.ProtectContents = True Then GoTo Unprotect
If ActiveSheet.ProtectContents = False Then GoTo Protect

Unprotect:
ActiveSheet.Unprotect
MsgBox "Bestand is niet meer beveiligd."
Exit Sub
Protect:
ActiveSheet.Protect Contents:=True, Scenarios:=True
MsgBox "Bestand is beveiligd."
End Sub

Luc

 

[peter16]

Dat is het, bedankt.