Supportnet / Forum / Tabellenkalkulation
Speichern und Beenden per MSG-Box - Problem!
Frage
Hallo!
Ich habe eine Datei, auf die sehr viele Anwender zugreifen. Natürlich kommt es vor, daß die Datei gerade bearbeitet wird, während ein anderer versucht sie zu öffnen. Dann kommmt die bekannte Fehlermeldung ".. wird gerade bearbeitet..., etc.). Die meisten Anwender öffnen dann "schreibgeschützt", obwohl es ja eigentlich nichts bringt. Jetzt arbeiten wir viel mit Buttons und Makros in dieser Datei. Unter anderem eines, dass die speichert und fragt, ob das Programm beendet werden soll. Bei Klick auf "ok", speichert jetzt Excel die schreibgeschützte Datei in dem Standardverzeichniss ohne einen Hinweis oder Fehlmeldung. Der Anwender geht natürlich davon aus, dass die die Datei ordnungsgemäss in ihrem alten Verzeichnis gespiechert ist und die vorgenommen Änderungen übernommen wurden. Dies ist natürlich nicht so, da die Originaldatei in ihrem Originalverzeichniss schreibgeschützt geöffnet ist.
Das Makro sieht in dem Bereich so aus:
[code]
...
Application.DisplayAlerts = True
ActiveWorkbook.save
Dim Beenden
Beenden = _
MsgBox( _
"Ihre Eintragung wurde gespeichert." & Chr(13) & _
"Möchten Sie jetzt beenden?" & Chr(13) & _
Chr(13) & _
Chr(13), vbYesNo + vbQuestion)
If Beenden = vbYes Then
Application.Quit
Else
End If
...
[/code]
Wer hat eine Lösung für mein Problem?
Vielen Dank!
Grüße Jones
Antwort 1 von coros
Hi Jones,
frage doch nach ActiveWorkbook.ReadOnly ab. Ein Beispiel hierfür wäre.
If ActiveWorkbook.ReadOnly Then
MsgBox "Datei ist schreibgeschützt. Bitte speichern Sie die Datei unter einem anderen Namen ab"
End If
Diesen Code in Diese Arbeitsmappe in Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) abgefragt, sollte Dein Problem lösen.
Ich hoffe, ich konnte Dir weiterhelfen,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar
Dein Problem gelöst hat.
frage doch nach ActiveWorkbook.ReadOnly ab. Ein Beispiel hierfür wäre.
If ActiveWorkbook.ReadOnly Then
MsgBox "Datei ist schreibgeschützt. Bitte speichern Sie die Datei unter einem anderen Namen ab"
End If
Diesen Code in Diese Arbeitsmappe in Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) abgefragt, sollte Dein Problem lösen.
Ich hoffe, ich konnte Dir weiterhelfen,
coros
Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar
Dein Problem gelöst hat.
Antwort 2 von JonesM
Hi Coros!
Vielen Dank! Das wars schon!
Ist immer wieder schön hier zu sein... ;)
Jones
Vielen Dank! Das wars schon!
Ist immer wieder schön hier zu sein... ;)
Jones
Antwort 3 von coros
Hi Jones,
freut mich, dass Dich mein Vorschlag weitergebracht hat. Danke auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll aber alle machen mit.
freut mich, dass Dich mein Vorschlag weitergebracht hat. Danke auch für die Rückmeldung.
MfG,
coros
Jeder macht was er will, keiner macht was er soll aber alle machen mit.