Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Blattschutz aufheben, Daten eintragen, Blattschutz setzen
Gruppe
Blattschutz
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