Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattschutz für alle Arbeitsblätter setzen oder aufheben

Gruppe

Blattschutz

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