Office: Fehlermeldung abfangen: "Zugriff verweigert

Hallo zusammen,

wie im Betreff schon erwähnt möchte ich eine Fehlermeldung abfangen und eine Msgbox erscheinen lassen:

In meiner Excel Liste kann man per Knopfdruck andere Excellisten öffnen.

Für die Personen, welche keinen Ordnerzugriff auf den Pfad haben, kommt die Fehlermeldung. Den Personen soll die Msgbox gezeigt werden.

Die Fehlermeldung lautet:
"Zugriff verweigert - Bitte wenden Sie sich an den Administrator"


Code:

Ich habe es versucht mit "On Error GoTo" hat aber leider nicht funktioniert.
Habt ihr Tipps?


Vielen Dank und Grüße
Hias

:)

 

Hallo,

wenn, dann müsste dein On Error vor die Codezeile, die den Fehler verursacht.

PHP:

         Sub Oeffne_XXXXX__M6()
Dim Pfad As String

Pfad = "Hier ist der Pfad"

On Error GoTo ErrorHandler
Workbooks.Open Pfad & "Dateiname"
Exit Sub

ErrorHandler:
MsgBox " Sie haben aktuell keinen Zugriff auf diese Liste. Bitte wenden sie sich an" & Chr(13) & Chr(13) & "XXX" & Chr(13) & Chr(13) & "YYYY" & Chr(13) & Chr(13) & "ZZZ"
On Error GoTo 0
End Sub


 

Servus,


Mir würde nur einfallen, dass du im Makro zuerst versuchst in dem Ordner eine datei zu erstellen und dann checkst, ob diese vorhanden ist. wenn nicht, kommt deine msgbox zum greifen, wenn ja, datei wieder löschen und weiter im code.

unterdrücken kannst du die fehlermeldungen mit
Code:

danach wieder mit true einschalten wäre sehr hilfreich.

lg Chris

 

Hallo,

danke für die schnellen Antworten.

On Error vor die Codezeile hat geholfen..


Ich versuche es nun noch zu erweitern, um zwei Fehlerfälle herausfiltern:

Fehlerfall 1: keine Zugriffsrechte
Fehlerfall 2: Datei wurde umbenannt - Pfad geht nicht mehr


Ich hab es 2 Mal probiert, aber jedes Mal ist irgendwo der Haken drin *frown.gif*

Variante 1:
Code:

Variante 2:
Code:

Ich bin mir nicht sicher ob der Fehlercode 659 der richtige ist, wenn man keinen Zugriff hat.
Der Code 1004 wird auf jeden Fall angezeigt wenn ich den Dateinamen verändere...


Viele Grüße
Hias

 

Hallo,

versuch mal:
Code:

Gruß Werner

 

Hallo Werner,

Fehlerfall 2, Änderung des Dateinamens funktioniert.

aber Fehlerfall 1 (keine Zugriffsrechte) funktioniert nicht.



Dateiname war korrekt und es wurde bei eingeschränkten Zugriffsrechten getestet. Dabei wurde die falsche Msgbox angezeigt:
MsgBox "Der Dateiname wurde geändert, bitte überprüfen!"


Danke im Voraus

Grüße

 

Hallo,

was ist denn, wenn du es in zwei separate If-End If Blöcke packst?
Code:

Gruß Werner

 

Hallo Werner,

ich habs jetzt herausgefunden, bei beiden Fehlerfällen wird der Code "1004" ausgegeben...

Ich habs jetzt mit einer Usernamen Abfrage gelöst.




Dim Nutzer as String

nutzer = Application.UserName

If Nutzer = ("Name1") Or Nutzer = ("Name2") Then

Ordner öffen

Else
Msgbox "Sie haben keine Berechtigung"


Grüße Hias