Excel VBA Blattschutz ein und aus per Button?
Hallo allerseits,
ich bin gerade dabei einen Kalkulator mit Excel zu erstellen.
Dabei bin ich auf folgendes Problem gestoßen:
Ich möchte Das Blatt per Button entsperren, sperren und man sollte im gesperrten Zustand die Zeilen formatieren können.
AllowFormattingCells:=True
Sub Blattsperren()
On Error Resume Next
If ActiveSheet.ProtectContents = False Then GoTo Fehler
ActiveSheet.Unprotect
Exit Sub
Fehler:
ActiveSheet.Protect "+1516"
End Sub
Hat da jemand eine Idee, wie man die Formel richtig aufstellt?
Vielen Dank im Voraus