Blattschutz mit PW
13.01.2010 20:04:47
Heinz H
Hallo Leute
Ich möchte einen Blattschutz mi PW setzen bei
'Sub Sperren()
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect Password:="woody-6962"
For i = 6 To 35
Range("A" & i & ":O" & i).Locked = False
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":O" & i).Locked = True
End If
Range("A:B,G:K,M:CC").Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Habe es probiert mit
ActiveSheet.Protect Password:="Test" DrawingObjects:=True, Contents:=True, Scenarios:=True
So funktioniert es leider nicht.
Hätte bitte jemand eine Hilfe dazu ?
Gruß
Heinz