Ich erstelle wöchentlich ein Reporting welches in mehreren Excelfiles erstellt wird. Damit man die Daten nicht ändern kann, verwende ich ein Makro für das Sperren und Entsperren der Tabs.
Das klappt auch ganz gut. Jetzt möchte ich das Makro gerne erweitern, dass die Kollegen die Tabellengrösse ändern können.
Wenn ich es von Hand sperre, muss ich die optionen "Zellen formatieren, Spalten formatieren und Zeilen formatieren" aktivieren damit es klappt. Mach ich es mit meinem Makro werden nur die Funktionen "Gesperrte Zellen auswählen und Nicht gesperrte Zellen auswählen" aktiviert.
Kann mir jemand sagen was ich im Makro ergänzen muss?
Folgendes Makro wird verwendet:
Sub Alle_Blaetter_schuetzen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect Password:="XXXXX"
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub