Passwort und Zellen sperren
29.09.2008 14:58:00
Snewi
ich möchte in meinem Excel-Sheet in einer Zelle ein Passwort eingeben und dementsprechend zu jedem Passwort die Blattbereiche sperren!
Aber irgendie funktioniert es nicht so wie ich will! Ist was im Code falsch?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WkS As Worksheet
Set WkS = ThisWorkbook.Worksheets("Eingabe")
Select Case Range("N4").Value
Case "mh"
ActiveSheet.Unprotect Password:="wg"
WkS.Range(WkS.Cells(13, 4), WkS.Cells(1267, 14)).Locked = False
WkS.Cells(4, 14).Locked = False
WkS.Cells(5, 4).Locked = False
WkS.Cells(5, 6).Locked = False
ActiveSheet.Protect Password:="wg"
ActiveSheet.EnableSelection = xlUnlockedCells
Case "rro"
ActiveSheet.Unprotect Password:="wg"
WkS.Range(WkS.Cells(13, 14), WkS.Cells(1267, 14)).Locked = False
ActiveSheet.Protect Password:="wg"
ActiveSheet.EnableSelection = xlUnlockedCells
Case ""
ActiveSheet.Protect Password:="wg"
Case "as"
ActiveSheet.Unprotect Password:="wg"
End Select
End Sub
Also was ich erreichen möchte, wenn in der Zelle "mh" steht soll der Bereich A13:N1200 entsperrt sein
zusätzlich die Zellen N4, D5 und F5!
Wenn rro drinnsteht soll alles gesperrt sein ausser N13:N1200,
wenn nichts drinsteht soll alles gesperrt sein und bei as nichts!
Grüße