Excel wieder anzeigen lassen
19.12.2016 18:38:14
Thomas
Nun habe ich einen Code, der beim Click auf ein Bild ein Tabellenblatt öffnen soll inkl. einer Passwort abfrage.
Wie lasse ich nun Excel wieder einblenden?
Hier der verwendete Code:
Private Sub Image1_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "easz"
With Worksheets("Tabelle2")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub