Ich suche den Befehl in VBA, der erkennt, dass ein Blatt geschützt ist. Etwa so:
If "Akives Blatt ist geschützt" then
ActiveSheet.Unprotect Password:="Passwort"
end if
Gruß
Martin
Ich suche den Befehl in VBA, der erkennt, dass ein Blatt geschützt ist. Etwa so:
If "Akives Blatt ist geschützt" then
ActiveSheet.Unprotect Password:="Passwort"
end if
Gruß
Martin
hier mal ein Beispiel:
Hoffe das hilft weiter,
Andreas
Sub test()
Worksheets("Tabelle1").Unprotect ("Passwort")
End Sub
Danke! Das war der Tip, den ich gebraucht habe.
Anbei mein Makro:
Sub DateiSperren()
Dim Blatt As String
Dim LockWord As String
Blatt = ActiveSheet.Name
If Worksheets(Blatt).ProtectContents = True Then
MsgBox "Das Blatt ist schon gesperrt!", vbCritical, "Dateisperre"
Else
LockWord = "Passwort"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:=LockWord
End If
End Sub