Blattschutz-Makro: Für alle außer 1 Blatt...
04.12.2012 09:47:46
R.
Ich verwende die folgenden Makromodule, um für alle Bätter einer Arbeitsmappe den Blattschutz zu (de-)aktivieren:
Option Explicit
Sub Blattschutz()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Protect Password:="beispiel"
Next i
End Sub
Sub Blattschutz_aufheben()
Dim i As Integer
Dim pw As String
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.Unprotect Password:="beispiel"
Next i
End Sub
Leider muss ich (nach dem Schützen) für ein bestimmtes Tabellenblatt den Blattschutz immer wieder aufheben, da dieses eben nicht geschützt sein soll. Wie müsste ich den Code verändern, damit alle Tabellenblätter außer einem Blatt "XY" geschützt wird?
Viele Grüße
Rüdiger