Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schreibschutz per VBA abfragen/abfangen

Schreibschutz per VBA abfragen/abfangen
09.01.2005 20:35:36
Frank
Hallo,
ich habe ein Excel-Workbook, das von bis zu 116 Usern (hoffentlich niemals gleichzeitig - wer weiß, was dann passiert) benutzt wird. Obwohl es freigegeben ist, kommt es hin und wieder vor, dass die bei nicht freigegebenen Workbooks übliche Frage "...wird von einem anderen Benutzer verwendet. Wollen Sie ... schreibgeschützt öffnen, benachrichtigt werden..." oder so ähnlich erscheint. Das passiert dann, wenn ein User die Datei gerade in der "Öffnungsphase" ist und ein zweiter User das Workbook öffnen möchte.
Da sehr viele unerfahrene User die Datei benutzen, möchte ich verhindern, dass diese Meldung erscheint und zur Verwirrung führt.
Ich habe nun vor, diese Abfrage nach "schreibgeschützt öffnen oder benachrichtigen" im Arbeitsmappen-Modul abzufangen und über eine "Wait-Schleife" den zweiten User hinten anzustellen (vordrängeln gibt's nicht ;-) ).
Hat jemand eine Idee, wie dies umgesetzt werden kann? Oder hat jemand eine Idee, anders vorzugehen?
Vielen Dank.

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

Betreff
Datum
Anwender
Anzeige
AW: Schreibschutz per VBA abfragen/abfangen
09.01.2005 21:20:17
Frank
Hallo,
ich - der Fragesteller - bin's noch einmal:
zur Ergänzung: bei dem Dialog, den ich ausschalten bzw. abfangen möchte, geht es um die sog. Dateireservierung.
AW: Schreibschutz per VBA abfragen/abfangen
Ramses
Hallo
bei VBA Gut kannst du das sicher umsetzen.
Notfalls eine Do-While Schleife drumrum ;-)
Das Makro prüft vor dem definitiven Öffnen ob die Datei problemlos geöffnet werden kann.
Sub TestFileOpen()
Dim isOpen As Integer
Dim strFile As String
strFile = Application.GetOpenFilename("EXCEL Files *.xls, *.xls")
If strFile = "" Then Exit Sub
isOpen = TestOpen(strFile)
Select Case isOpen
Case 0: MsgBox "Datei " & strFile & " ist frei"
Case 1: MsgBox "Datei " & strFile & " ist geöffnet"
Case 2: MsgBox "Datei " & strFile & " wurde nicht gefunden"
End Select
End Sub

Private Function TestOpen(strFilePath As String) As Integer
If Dir(strFilePath) = "" Then
TestOpen = 2
Else
On Error GoTo errorhandler
Open strFilePath For Random Access Read Lock Read Write As #1
Close #1
End If
errorhandler:
If Err = 70 Then TestOpen = 1
End Function

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige