Office: Button If Abfrage

-hi Kann mir Schnell Helfen

ich Will Ein Button Einbaun

Wenn xlVeryHidden Akteviert Dann Passwort.Show
Wenn xlVeryHidden Deakteviert Dann NeuFormular.Show

Die Codes für xlVeryHidden

Code:

Private Sub AbmeldenButton_Click()
    'Abmelden
    Dim Antwort
    Antwort = MsgBox("Wollen Sie Abmelden?", 4, "Abmelden")
    If Antwort = vbYes Then
        Worksheets("DatenBank").Visible = xlVeryHidden
        Worksheets("Info").Visible = xlVeryHidden
        Worksheets("Fehler").Visible = xlVeryHidden
        Call Alle_Ausblenden
        Else
    End If
End Sub

Sub Alle_Ausblenden()
    'Alle Blättern Ausblenden
    Dim wksSheet As Worksheet
    Dim intI As Integer
        For Each wksSheet In ThisWorkbook.Worksheets
            If wksSheet.Name <> "Start" Then
                wksSheet.Visible = xlSheetVeryHidden
            End If
        Next wksSheet
End Sub

Alle Einblenden

Code:

Sub Alle_Ausblenden()
    'Alle Blättern Ausblenden
    Dim wksSheet As Worksheet
    Dim intI As Integer
        For Each wksSheet In ThisWorkbook.Worksheets
            If wksSheet.Name <> "Start" Then
                wksSheet.Visible = xlSheetVeryHidden
            End If
        Next wksSheet
End Sub

Bitte Hilf mir