Blattschutz aller Blätter wieder aufheben
Andreas
Mit dem ersten Code kann ich alle Blätter meiner Mappe auf einmal mit einem Passwort schützen.
Mit dem zweiten Code kann ich diesen Blattschutz wieder aufheben, allerdings muss ich für jedes Blatt das Passwort einzeln eingeben.
Wie muss ich den zweiten Code ändern, damit die Passwortabfrage nur einmal erscheint.
Hab nicht viel Ahnung von VBA!
Sub Schutz_ein()
Dim intSheet As Integer
Application.ScreenUpdating = False
'Blaetter schuetzen:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Protect "DeinPasswort"
Next intSheet
Application.ScreenUpdating = True
End Sub
Sub Schutz_aus()
Dim intSheet As Integer
Application.ScreenUpdating = False
'Blattschutz aufheben:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Unprotect
Next intSheet
Application.ScreenUpdating = True
End Sub
Danke für die Hilfe!
mfg, Andreas
Anzeige