Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Creaniter am April 21, 2016, 09:12:35 Vormittag

Titel: Office 2010: geschützte Blätter
Beitrag von: Creaniter am April 21, 2016, 09:12:35 Vormittag

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

Titel: Antw:Office 2010: geschützte Blätter
Beitrag von: maninweb am April 21, 2016, 09:24:18 Vormittag

Hallo,

Zitat

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ß

Titel: Antw:Office 2010: geschützte Blätter
Beitrag von: Creaniter am April 21, 2016, 09:27:51 Vormittag

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