Bedingter Blattschutz
markus
wie kann ich erreichen, das bei folgendem Makro, das Blatt "Master" nicht geschützt wird?
Vielen Dank im Voraus.
Gruß Markus
Sub schutz_ein()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="x"
ActiveWorkbook.Sheets(i).EnableSelection = xlUnlockedCells
Next i
End Sub