Gruppe
Allgemein
Bereich
Blattschutz
Thema
Blattschutz aufheben, Daten eintragen, Blattschutz setzen
Problem
Vor dem Dateneintrag soll geprüft werden, ob ein Blattschutz besteht. Wenn ja, soll er aufgehoben, die Daten eingetragen und der Schutz wieder gesetzt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub ProtectUnprotect()
Dim bln As Boolean
bln = Tabelle1.ProtectContents
ActiveSheet.Unprotect
Range("A1").Value = "Hallo"
If bln Then ActiveSheet.Protect
End Sub