Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Öffnen eines geöffneten Dokuments verhindern VBA

Öffnen eines geöffneten Dokuments verhindern VBA
28.11.2017 10:35:34
Herby
Gibt es eine Möglichkeit ein Öffnen einer Arbeitsmappe zu verhindern, wenn jemand anderes im Netzwerk bereits darauf zugreift? Hintergrund: Es kommt zu fehlermeldungen, wenn jemand schreibgeschützt die Datei öffnet, da er keine Makros im Schreibschutz ausführen darf.

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

Betreff
Datum
Anwender
Anzeige
AW: API
28.11.2017 11:07:36
Phi
@Herby:
es gibt eine Möglichkeit mit Windows-API's. Aus meinem Archiv:

Private Declare Function lOpen Lib "kernel32" Alias "_lopen" _
(ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose Lib "kernel32" _
Alias "_lclose" (ByVal hFile As Long) As Long
Private Const OF_SHARE_EXCLUSIVE = &H10
Private Function FileIsOpen(strFullPath_FileName As String) As Boolean
Dim hdlFile As Long
Dim lastErr As Long
hdlFile = -1
hdlFile = lOpen(strFullPath_FileName, OF_SHARE_EXCLUSIVE)
If hdlFile = -1 Then
lastErr = Err.LastDllError
Else
lClose (hdlFile)
End If
FileIsOpen = (hdlFile = -1) And (lastErr = 32)
End Function
Sub CheckFileOpen()
If FileIsOpen("Full File Name") Then
MsgBox "File Is open"
Else
MsgBox "File Is Not open"
End If
End Sub
Es könnte auch andere Wege geben, also warte auch auf weitere Antworten.
Anzeige
AW: API
28.11.2017 17:52:27
Andy
Wie kann ich das verstehen? Was muss ich da machen ?

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige