Bei klick auf Abrechen, abrechen
19.12.2016 20:23:01
Thomas
Letzte Frage zum Projekt.
ich habe eine Passwort abfrage bei klick auf ein Bild in einer Userform.
Passwort wird eingegeben, Excel öffnet sich, Userform schließt.
Das funzt auch prima.
Wenn ich aber das Bild anklicke und nicht das Passwort eingebe, sondern auf abbrechen klicke, schließt sich auch die Userform. Dies soll nicht geschehen.
wie ändere ich meinen Code so ab, das nur die Passwortabfrage geschlossen wird, bei klick auf abbrechen?
Private Sub Image1_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "0815"
With Worksheets("Tabelle2")
.Visible = True
.Application.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "Falsches Passwort eingegeben!"
End Select
Unload UserForm1
End Sub