Excel Tabellenblätter schützen

[Rentner]

Hallo,
ich hoffe das es vllt. hier einige Experten für Excel gibt.
Ich habe eine Datei mit 30 Tabellenblätter. Jedes einzelne Tabellenblatt soll von anderen Leuten bearbeitet werden können. Dafür habe ich bestimmte Bereiche gesperrt/freigegeben. das h. das ich jedes Blatt für die zu bearbeitenden Bereiche erst markieren und dann Blatt schützen durchführen muss.
Meine Frage ist, kann man diesen Arbeitsgang nicht in einem durchführen, da die markierten Felder alle gleich in den Blättern sind (z.B. B11 bis D24)
Ich hoffe ich habe mich verständlich ausgedrückt, sonst bitte nochmal nachfragen-Danke

 

[Baer]

Moin Rentner,

das geht laut Suchmaschine nur über ein Makro.

Ohne Passwort Blattschutz ein.

[src=text]Sub Alle_Blaetter_Blattschutz_EIN()
Dim WS As Worksheet
For Each WS In Worksheets
WS.Protect
Next WS
End Sub[/src]


Ohne Passwort Blattschutz aus.

[src=text]Sub Alle_Blaetter_Blattschutz_AUS()
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each WS In Worksheets
WS.Unprotect
Next WS
Application.ScreenUpdating = True
End Sub[/src]


Mit Passwort Blattschutz ein.

[src=text]Sub Alle_Blaetter_Blattschutz_EIN_M_Pw()
Application.ScreenUpdating = False
Dim shBlatt As Worksheet
For Each shBlatt In ActiveWorkbook.Sheets
shBlatt.Protect Password:="123" 'Passwort ändern "123"
Next shBlatt
Application.ScreenUpdating = True
End Sub[/src]


Mit Passwort Blattschutz aus.

[src=text]Sub Alle_Blaetter_Blattschutz_AUS_M_Pw()
Application.ScreenUpdating = False
Dim shBlatt As Worksheet
For Each shBlatt In ActiveWorkbook.Sheets
shBlatt.Unprotect Password:="123" 'Passwort ändern "123"
Next shBlatt
Application.ScreenUpdating = True
End Sub[/src]

You do not have permission to view link please Anmelden or Registrieren

Gerade getestet, das lüppt.

Gruß
Baer