VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gaba	Datum: 16.04.2018 20:33:18	Views: 885	Rating:	Antwort:
Thema: Passwortabfrage & Cancel
Servus, ich hoffe ihr könnt mir weiterhelfen. Ich bin völlig neu in VBA und hab die Aufgabe bekommen eine passwortgeschützte Excel in einer anderen aufzurufen. Dabei soll bei Abbrechen oder schließen der Passwortabfrage kein Fehlercode kommen (vorher kam meistens der Fehlercode 1004) und bei Falscheingabe des Passoworts a) auch kein Fehlercode 1004 auftauchen und b) die Anzeige: Falsches Passwort kommen. Nach dreimaliger Falscheingabe soll dann die Abfrage abgebrochen werden. Das Programm so wie es vorher war sah so aus: Dim fName As String fName:= "directory der datei" Workbooks.Open Filename:=fName Meine Alternative bis jetzt: Dim fName As String Dim err.Counter As Long fName:="directory der datei" On Error GoTo WrongPwd Workbooks.open Filename:=fName On Cancel GoTo DoNothing WrongPwd: err.Counter=err.Counter+1 If Not errCounter>=3 Then MsgBox("Passwort falsch"), 0, vbNullString Resume Else MsgBox("Dreimal falsch") Exit Sub End If DoNothing: If Cancel = True Then MsgBox("Vorgang wird abgebrochen") Exit Sub End If Bis jetzt kommt bei falscher Passworteingabe und bei Abbrechen/Schließen die Meldung "Passwort falsch"). Ich danke euch im Voraus für jegliche Hilfe!

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen