Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattschutz aufheben

Gruppe

Blattschutz

Problem

Wie kann ich den Blattschutz aller Tabellenblätter in allen geöffneten Arbeitsmappen über eine VBA-Routine aufheben?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub BlattschutzAufheben()
   Dim wkb As Workbook
   Dim wks As Worksheet
   For Each wkb In Workbooks
      For Each wks In wkb.Worksheets
         wks.Unprotect
      Next wks
   Next wkb
End Sub