|
Hallo Ralph,
eigentlich bin ich ziemlich genervt und wollte nicht mehr antworten. Warum? Weil es offensichtlich zu viel verlangt ist Code den man zur Verfügung gestellt bekommt zumindest mal zu testen.
Zudem ist das hier mittlerweile ein ziemliches rein in die Kartoffeln - raus aus den Kartoffeln.
Erst Blattname geht nicht, weil die umbenannt werden, dann jetzt doch wieder über die Blattnamen.
Na ja, ich will mal nicht so sein.
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
'Blätter die nicht "entsperrt" werden sollen
'hier in der Case Anweisung aufführen
Case "Ausnahme1", "Ausnahme2"
'nix machen
Case Else
wks.Protect userinterfaceonly:=True, Password:="1907"
wks.EnableOutlining = True 'für Gliederung
End Select
Next
End Sub
Gruß Werner
|