Alle Blätter schützen, außer eines
16.12.2002 13:56:19
Basti
habe folgenden Code in "Diese Arbeitsmappe":
Private Sub Workbook_Open()
Dim Arbeitsblatt As Worksheet
Application.ScreenUpdating = False
For Each Arbeitsblatt In Worksheets
Arbeitsblatt.Protect Password:="orga", UserInterfaceOnly:=True
Next Arbeitsblatt
End Sub
Möchte nun nicht alle, sondern alle außer ein Blatt "Test" schützen. Frage: wie ist das am besten möglich...?
Danke für die Hilfe...