Gruppe
Allgemein
Problem
Wie kann ich den Blattschutz aller Tabellenblätter in allen geöffneten Arbeitsmappen über eine VBA-Routine aufheben?
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