Tabelle Ausblenden
19.08.2003 15:08:50
Andreas
Kann ich in einer UserForm mittels Button eine ausgeblendete Tabelle wieder einblenden.
Habe diesen Button ein Code mit einem Passwort gegeben.
Nach eingabe des Passwortes soll die Tabelle wieder eingeblendet werden.
Const Passw = "07.03.1965"
Private Sub CommandButton1_Click()
If TextBox1.Value = Passw Then
MsgBox "Passwort OK !"
Unload Me
Else
Label2.Visible = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Dim frm As UserForm
Set frm = UserForm18
frm.TextBox1.PasswordChar = "*"
frm.TextBox1.SetFocus
frm.Label2.Visible = Fase
End Sub
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub
Das ist der Code für das Passwort
Gruss Andreas
Anzeige