Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen auf Schreibrechte

Prüfen auf Schreibrechte
12.09.2008 09:39:02
Captain
Moin,
wie kann ich überprüfen, ob der User, der die Excelmappe öffnet, auch Schreibrechte auf den Ordner, in dem sich die Exceldatei befindet, hat?
Jack

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen auf Schreibrechte
12.09.2008 09:47:12
chris
Hallo Jack,
das kannst du prüfen indem du in der Datei ausliest ob sie schreibgeschützt geöffnet ost oder nicht.
Etwa so :
'Wenn Datei Schreibgeschützt ist dann nicht öffnen !
If ThisWorkbook.ReadOnly = True Then
MsgBox ("Datei schreibgeschützt" & Chr(10) & "Datei kann deshalb nicht geöffnet werden"), vbCritical, "Datei wird geschlossen"
ThisWorkbook.Close (False)
Exit Sub
End If
gruß Chris
AW: Prüfen auf Schreibrechte
12.09.2008 12:31:16
JogyB
Das hilft aber nicht bei dem Problem, da es nur überprüft, ob er die Datei schreibgeschützt geöffnet hat (oder nicht), aber nicht die Schreibberechtigung im Ordner.
Ist jetzt nicht elegant, geht aber:

on error resume next
' hier irgendeinen wirren Dateinamen, der nicht vorkommt
' \ vor Namen muss sein, da im Path am Ende keiner kommt
open thisworkbook.path & "\dsjkajkdhajjkas.ghd" for output as #1
if err.number = 0 then
schreibRechte = true
else
schreibrechte = false
end if
close #1
kill thisworkbook.path & "\dsjkajkdhajjkas.ghd"
on error goto 0

Gruss, Jogy

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige