Office 2010: geschützte Blätter

[Creaniter]

Hallo und guten Morgen

Wenn ich in einer Datei mehrere Blätter geschüzt habe, alle mit dem gleichen PW
muß ich immer jedes Blatt einzeln entsperren oder wie kann ich alle auf einmal entsperren?
Und kann ich auch mehrere Blätter auswählen und mit dem gleichen PW auf einmal schützen?
Stehe mal wieder auf der Leitung

Jetzt schon herzlichen Dank für Eure Hilfe beim aufwachen heute morgen

Gruß
Creaniter

[maninweb]

Hallo,

Und kann ich auch mehrere Blätter auswählen und mit dem gleichen PW auf einmal schützen?

Nein, nicht mit Bordmitteln. Per VBA-Makro könntest Du Dir zwei Prozeduren schreiben, die das übernehmen.
Beispiel:

Code: Visual Basic

1. Public Sub ProtectAllSheets()
2.  
3.   Dim ws As Worksheet
4.  
5.   For Each ws In ThisWorkbook.Worksheets
6.    
7.     ws.Protect Password = "Excel"
8.    
9.   Next
10.  
11. End Sub
12.  
13. Public Sub UnprotectAllSheets()
14.  
15.   Dim ws As Worksheet
16.  
17.   For Each ws In ThisWorkbook.Worksheets
18.    
19.     ws.Unprotect Password = "Excel"
20.    
21.   Next
22.  
23. End Sub

Gruß

[Creaniter]

Danke !!!!!!!!!!!!!!!!!!!!