Aktion bei falschem passwort
22.03.2007 19:18:00
Erik
Ich bin am Verzweifeln. Vielleicht kann mir hier jemand helfen. Habe auch schon das Forum durchforstet kann aber keinen Beitrag finden....
Also in meinen einfachen Worten:
Habe 2 Worksheets (1. test, 2. Input) das sheet "test" ist passwordgeschützt. Nun möchte ich im sheet "input" einen command button installieren, der den passwordschutz aufhebt und auf dieses wechselt. Bis dahin habe ich auch schon geschafft.
ABER wenn ein falsches password eingegeben wird, soll man wieder auf das ursprüngliche sheet "input" galangen, aber ohne "runtime error 1004".
Vielen Dank für die Hilfe. Ich bin mir sicher, dass es nur eine Kleinigkeit ist, aber für mich als "Aushilfs VBA-Programmierer" eine echte Herausforderung.
Gruss, Erik
Sub Makro1Test()
Worksheets("test").Select
Worksheets("test").Unprotect
If Password = False Then
Worksheets("Input").Select --------HIER HAKT ES!!!------
msgbox "Sie benötigen ein Password!"
End If
End Sub
Anzeige