Passworte für alle Blätter
Bernd
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code geändert werden?
Sub passweg()
Dim wkb As Workbook
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
wks.Unprotect "ppppp"
Next wks
Next wkb
Application.ScreenUpdating = True
End Sub
Gruß Bernd
Anzeige