Microsoft Excel

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