AW: Makro um Blattschutz aufzuheben und wieder set
01.08.2007 15:34:01
Andreas
Hallo, ich hatte mal das gleiche Prob und hab was in den weiten des Internet gefunden.
probier die 2 makros mal aus. Der Blattschutz wird für alle Blätter entfernt und wieder aktiviert.
Gruss Andreas
Sub Schutz_weg()
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Wo soll denn da Schutz beseitigt werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect Password:="passwort"
Next
Application.ScreenUpdating = True
End Sub
Sub Schutz_für_alle_hin()
If Workbooks.Count = 1 Then
Info = MsgBox("Es ist doch noch keine Arbeitsmappe geöffnet!" & Chr(10) & _
"Was soll denn da mit Schutz versehen werden?", 32, "Keine Mappe geöffnet!")
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="passwort"
Next
Application.ScreenUpdating = True
End Sub