Schreibschutzabfrage bevor eine Excel-Datei geöffn
30.09.2004 14:34:29
Thorsten
habe keine kleine Frage und und grosses Problem.
Ich möchte über ein VBA-Makro (Excel) eine Excel-Datei öffnen.
Diese Datei darf aber nur geöffnet werden, wenn sie niemand anders geöffnet hat.
Also, die Datei darf nicht Schreibgeschütz geöffnet werden.
Als Beispiel noch mein Code:
Dim Dateiname As String
Dateiname = Dir(pfad_programm + datei)
If Dateiname = "" Then
MsgBox "Pfad oder Dateiname nicht gefunden. Hilfe finden Sie unter 'help'"
help.Show
End
Else
Workbooks.Open FileName:=pfad_programm & datei, _
UpdateLinks:=0, Notify:=True
End If
Vielen Dank schonmal
mfg
Thorsten Böing