Passworteingabe funktioniert nicht
28.01.2009 15:16:00
Timmy
ich habe vor, ein Blatt mit einem Passwort zu hinterlegen, welches man eingeben muss, wenn man einen bestimmten Button drueckt. Dafuer habe ich folgenden Code:
Private Sub PurchasingButton1_Click()
'Last Change: 01/27/2009
'starts the Process and functions of the Purchasing Button
On Error GoTo showErrorMsg
Unload UserForm1 'closes the message box with the 2 buttons for Sales and Purchasing
Dim PurchasingPassword As String
Dim Error As Byte
Error = 1
PurchasingEnterPassword 'asks for the Purchasing Password
PurchasingPassword = (InputBox("Please enter your Password", "Purchasing Password", , 5, 5))
Select Case PurchasingPassword
Case "333" 'The Purchasing Password
Wenn ich das Programm laufen lassen will, kommt:
Compile Error
Sub or function not defined
Es sind meine ersten Eigenversuche in VBA, daher steh ich auf dem Schlauch ;-)
Vllt kann mir jemand behilfich sein.
Vielen Dank und liebe Gruesse
Timmy