VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blattschutz für alle Arbeitsblätter setzen oder aufheben

Gruppe

Allgemein

Bereich

Blattschutz

Thema

Blattschutz für alle Arbeitsblätter setzen oder aufheben

Problem

Über die Schaltflächen soll der Blattschutz für alle Tabellenblätter gesetzt bzw. aufgehoben werden.

Lösung

Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn zwei Schaltflächen zu.




StandardModule: Modul1

Sub YesProtect()
   Dim wks As Worksheet
   For Each wks In Worksheets
      wks.Protect "MeinPasswort"
   Next wks
End Sub

Sub NoProtect()
   Dim wks As Worksheet
   For Each wks In Worksheets
      wks.Unprotect "MeinPasswort"
   Next wks
End Sub

    


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