Password breaker

Sub SkjulArk2()
    Worksheets("Sheet2").Visible = xlVeryHidden
End Sub

Sub VisArk2()
    Dim password As String
    password = InputBox("Indtast password", "Password")
    If password = "123" Then
        Worksheets("Sheet2").Visible = True
    End If
End Sub