blattschutz
15.01.2008 22:24:54
christian
ich habe ein macro das alle tabellenblätter mit blattschutz sperrt.
ich möchte jedoch aber nur eine tabelle name "Daten"SPERREN.
frage:
wie muss ich das macro ändern das nur die tabelle "Daten" mit einem blattschutz gesperrt wird?
Sub Setzen()
Const PwPerfekt = "0123"
Application.ScreenUpdating = False
MsgBox "Passwort = " & PwPerfekt 'Box dient nur zum Veranschaulichen
Dim wks As Worksheet
Dim Pwd As String
Pwd = Application.InputBox("Passwort eingeben")
If Pwd = PwPerfekt Then
For Each wks In ActiveWorkbook.Worksheets
'durch den Schutz mit dem Zusatz
'UserInterfaceOnly:= True
ActiveSheet.Protect Password:="0123", UserInterfaceOnly:=True
'kann man (nur mit VBA) Zellen trotz Blattschutz ändern!
wks.Protect Password:=Pwd, UserInterfaceOnly:=True
Next wks
Else
MsgBox "Passwort-Fehler"
End If
Application.ScreenUpdating = True
End Sub
danke
christian neu
Anzeige