AW: Nochmal Userform, sorry
19.02.2004 16:53:56
Alexandra
Na klar:
hier der Code der Userform:
Option Explicit
Public AktWS, PW As String, Ursprung As String
Private Sub UserForm_Initialize()
fKennwort.Text = ""
fKennwort.PasswordChar = "*"
fKennwort.MaxLength = 8
Ursprung = GZelle
End Sub
Private Sub fCancel_Click()
Application.EnableEvents = False
GZelle = Ursprung
Unload Me
Application.EnableEvents = True
End Sub
Private Sub fOK_Click()
If fKennwort.Text = "" Then
MsgBox "Kennwort fehlt", vbOKOnly, "Nachricht"
fKennwort.SetFocus
ElseIf fKennwort.Text <> "" Then
AktWS = ActiveSheet.Name
Select Case AktWS
Case "Service Delivery"
If fKennwort.Text = "Server" Then PW = "ok"
Case "Systems & NW Services"
If fKennwort.Text = "System" Then PW = "ok"
Case "Proj. Mmgt."
If fKennwort.Text = "Project" Then PW = "ok"
Case "Wartung"
If fKennwort.Text = "Wartung" Then PW = "ok"
Case "IMAC"
If fKennwort.Text = "IMAC" Then PW = "ok"
Case "Presales"
If fKennwort.Text = "Sales" Then PW = "ok"
Case "HYD"
If fKennwort.Text = "HYD" Then PW = "ok"
End Select
If PW <> "ok" Then
MsgBox "Kennwort falsch, bitte wiederholen oder abbrechen", vbOKOnly, "Nachricht"
fKennwort.Text = ""
fKennwort.SetFocus
Else
Unload Me
End If
End If
End Sub
Aber hier der Code des Worksheets:
Option Explicit
Public GZelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$3" Then
GZelle = Range(Target.Address)
Userform1.Show
End If
End Sub
Ich Worksheet Change ruft die Userform auf, die ein Passwort verlangt.
Es gibt 7 Worksheets und in jedem könnte diese Abfrage kommen - je nachdem
welche Zelle geändert wird. Daher muß ich diesen Wert übergeben - mit GZelle
klappt es nicht...