Beveiliging blad controleren

[HaContent]

Ik wil eigenlijk een knop maken die de beveiliging van een blad eraf haalt als deze aanstaat op het blad. En wanneer deze uitstaat hij deze aanzet.

Kan iemand mij helpen?/

 

[Rattewrat]

Ik gebruik daarvoor de volgende stukje:

Dim Password as String
Password = "Geheim"


'Aan
Activesheet.Protect Password:=Password, UserInterfaceOnly:=True

'Uit
Activesheet.Unprotect Password:=Password

 

[HaContent]

Ja en hoe laat ik een macro kijken of een blad beveiligd is.

 

[Rattewrat]

Ah, op die fiets.

If ActiveSheet.ProtectContents = True Then
 MsgBox "Beveiliging AAN"
Else
 MsgBox "Beveiliging UIT"
End If

Zelf gebruik ik een cel bovenin het blad die met rode letters "Beveiliging UIT" geeft wanneer deze uit staat, en niets wanneer deze aan staat. Met een als-celwaarde="Beveiliging UIT" regel kun je dan hetzelfde bereiken.

 

[snb]

of

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ActiveWindow.GridlineColorIndex = IIf(Sh.ProtectContents, 3, xlColorIndexAutomatic)
  ActiveWindow.Caption = "beveiliging " & IIf(Sh.ProtectContents, "aan", "uit")
End Sub