nicht zusammen schützen
Mike
Hey Cracks,
kurze Verständnisfrage zu nachfolgendem Schutz-Makro (mit Ex2003). Warum
können nur einzelne Blätter geschützt werden, das Entschützen funktioniert
jedoch über Gruppen von Blättern?
Oder anders gefragt, was muss beim Schützen verändert werden, dass es
auch auf Gruppen von Blättern geht?
Sub 10_prot()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Protect ("10x10x10")
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Sub 10_unprot()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Unprotect ("10x10x10")
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Gruss
Mike
Anzeige