VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blattschutz aufheben, Daten eintragen, Blattschutz setzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz