Makro mit PW Abfrage

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Makro mit PW Abfrage
von: Peter Wolplert
Geschrieben am: 31.07.2015 15:30:10

Hallo zusammen,
ich bin ein Anfänger und habe mich durch Foren gekämpft. Habe aber noch ein kleines Problem bei meinem Makro:
Ich habe hinter 4 Buttons jeweils ein Makro hinterlegt welches für eine benutzerdefinierte Ansicht ein Makro abfragt.
Wenn ich statt das PW einzugeben auf "abbrechen" drücke komme ich ebenfalls zu der Ansicht die _
durch ein PW gesperrt sein soll.


Option Explicit
Sub UserView_Peter()
Dim PW As String
PW = InputBox("Peter")
ActiveWorkbook.CustomViews("Peters Kalender").Show
If PW <> "DeinPasswort" Then Exit Sub
MsgBox "Makro wird fortgeführt."
End Sub

Finde leider meinen Fehler nicht.
Kann mir bitte jemand helfen?
Vielen Dank,
Gruss Peter.

Bild

Betrifft: Naja, wenn du die Ansicht zeigst BEVOR das ...
von: Luc:-?
Geschrieben am: 31.07.2015 15:35:50
…PW abgefragt wird, musst du dich nicht wundern, Peter! ;-]
Gruß, Luc :-?

Besser informiert mit …

Bild

Betrifft: Lies 'verglichen' statt 'abgefragt'! owT
von: Luc:-?
Geschrieben am: 31.07.2015 15:38:08
:-?

Bild

Betrifft: AW: Lies 'verglichen' statt 'abgefragt'! owT
von: Peter Wolplert
Geschrieben am: 31.07.2015 15:49:15
Oh ja,
selten dämlich.
Da hat sich der Fehlerteufel eingeschlichen.
Dankeschön habe es gelöst.
Gruss Peter

Bild

Betrifft: AW: Makro mit PW Abfrage
von: Michael
Geschrieben am: 31.07.2015 15:39:09
Hi Peter,
es müßte reichen, die zwei Zeilen zu vertauschen:

Option Explicit
Sub UserView_Peter()
Dim PW As String
PW = InputBox("Peter")
If PW <> "DeinPasswort" Then Exit Sub
ActiveWorkbook.CustomViews("Peters Kalender").Show
MsgBox "Makro wird fortgeführt."
End Sub

Schöne Grüße,
Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro mit PW Abfrage"