Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub CommandButton1_Click()
Dim Passwort As String
Passwort = "zugang"
Dim Usereingabe As String
Usereingabe = Me.Eingabe.Text
If Passwort = Usereingabe Then
Worksheets("Tabelle4").Visible = True
Else
Worksheets("Tabelle4").Visible = False
MsgBox "Passwort war nicht korrekt"
End If
Me.Hide
Unload Me
End Sub