AW: Datei öffnen verhindern
26.05.2004 16:07:25
Winni
Hallo Matthias,
ne, dass reicht leider nicht so ganz. Eigentlich hab ich nix dagegen, dass man die Datei durch mehrer User benutzen kann -im gegenteil- mein Problem liegt im Bereich des Datei schließens und des Spreicherns. Hier habe ich folgenden Code entworfen :
Sub Anwendung_Beenden()
Application.ScreenUpdating = False
Menue_einblenden
Entschuetzen_vorSchließen
ComboBox_MonatsauswahlMeune_löschen
Datei_beenden
'nachfolgender Code vermeidet die nochmalige Frage, ob die Datei gespeichert werden soll.
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"S:\M&V\Kunden\Aventis Pharma Deutschland GmbH\100252_VADreport.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'die nächste Zeile wird benötigt, dass überhaupt wieder nach Speichern gefragt wird
Application.DisplayAlerts = True
Application.Quit
End Sub
Dieser speichert wie Du sehen kannst die Datei immer am gleichen Ort. Wenn nun ein zweiter User diese Datei öffnet und anschließend wieder über den Button schließen -dieser beinhaltet den o.g. Code- schließt, geht der Debugger auf.
Eigentlich möchte ich nur, dass immer nur der die Datei speichern kann der sie zuerst geöffnet hat.
Kompliziert was ?
Aber vielleicht weisst Du trotzdem eine Lösung.............
Gruß
Winni