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
Besten Dank für Eure Hilfe.Gruss
Mike