Passworteingabe
30.09.2008 15:44:00
Snewi
ich mache nun eine Passworteingabe bevor ich meine Excel-Datei öffne!
Private Sub UserForm_Initialize()
txtPasswort.SetFocus
End Sub
Private Sub btnOk_Click()
If txtPasswort "Test" Then
MsgBox "Das Passwort war falsch!!!", vbOKOnly + vbInformation, "Passwortabfrage"
Unload Me
End If
Passwort = txtPasswort
Sheets("Eingabe").Visible = True
Unload Me
End Sub
Private Sub btnEnde_Click()
btnEnde_Click
End Sub
Nun möchte ich aber in Abhängigkeit welches Passwort eingegeben wird folgendes ausführen:
Dim WkS As Worksheet
Set WkS = ThisWorkbook.Worksheets("Eingabe")
WkS.Unprotect Password:="wg"
WkS.Cells.Locked = True
Select Case Range("N4").Value
Case "mh"
WkS.Range("D13:N1264").Locked = False
WkS.Range("N4,D5,F5").Locked = False
Case "rro"
WkS.Range("M13:M1264").Locked = False
WkS.Range("N4,D5,F5").Locked = False
Case ""
WkS.Range("N4").Locked = False
Case "as"
WkS.Range("N4").Locked = False
Exit Sub
End Select
WkS.EnableSelection = xlUnlockedCells
WkS.Protect "wg"
Wo muss ich das aber nun hinschreiben?
Gruß
Anzeige