Re: Zellen über ein Passwort einblenden
25.11.2002 12:52:38
Rainer Wittstock
Hallo Martin,
gib in das Code-Fenster von "DieseArbeitsmappe" folgenden Code ein:
Ins Code-Fenster von z.B. Tabelle1 gib folgenden Code wenn du UserForm über einen Button in Tabelle1 aufrufen möchtest:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Ins Code-Fenster der UserForm folgenden Code:
Private Sub cmdAbbrechen_Click()
End
End Sub
Private Sub cmdOk_Click()
' Das Passwort steht z.B. in Tabelle1 in Zelle H2
If TextBox1.Text = Range("H2") Then
Worksheets("Tabelle1").Range("A:C").EntireColumn.Hidden = False
Else
MsgBox "Falsches Passwort"
TextBox1.Text = ""
End If
Unload Me
End Sub
Gruß Rainer