Workbook nicht schließen lassen

Hallo Forum,
habe eine Frage: Ich will, dass ein Fragebogen, den ich erstelle, nur geöffnet werden kann, wenn sonst keine Excel Anwendung offen ist. Außerdem will ich, dass man alle Excel Anwendungen schließen muss, bevor man ihn schließen kann, dazu habe ich folgenden Code geschrieben:


Sub Workbook_Open()
If Workbooks.Count > 1 Then
MsgBox "Sie müssen zuerst alle anderen Excel Anwendungen Schließen, bevor Sie den  _
Fragebogen öffnen können."
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub


Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks.Count > 1 Then
MsgBox "Bitte schließen Sie zuerst alle anderen Excel Anwendungen, bevor Sie den Fragebogen  _
schließen."
End If
End Sub

Das Workbook_Open() Ereignise klappt super, was ich nciht auf die Reihe bekommen ist das BeforeClose Ereignis:
Ich will, dass man man das den Fragebogen nur schließen kann, wenn der Workbooks.COunt = 1 ist. Es soll also solange die MsgBox aufpoppen, bis alles andere durch den Anwender geschlossen wurde.
Ich weiß aber leider den befehl dazu nicht, hat den jemand parat?
Vielen Dank im Voraus,
MfG, Benni.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks.Count > 1 Then Cancel=true MsgBox "Bitte schließen Sie zuerst alle anderen Excel Anwendungen, bevor Sie den Fragebogen _ _ schließen." End If End Sub

Sub Workbook_BeforeClose(Cancel As Boolean) Select Case Workbooks.Count Case 1 Application.Quit Case 2 If Workbooks(1).Name = "PERSONL.XLS" Or Workbooks(2).Name = "PERSONL.XLS" Then Application.Quit Else MsgBox "Bitte schließen Sie zuerst alle anderen Excel Anwendungen, bevor Sie den _ Fragebogen schließen." Cancel = True End If Case Else MsgBox "Bitte schließen Sie zuerst alle anderen Excel Anwendungen, bevor Sie den Fragebogen _ schließen." Cancel = True End Select End Sub

Hi Benny,
an die personl.xls hatte ich nicht gedacht, danke Andi.
Manuell würde ich sie nicht erzeugen, weil sie muss auch im richtigen Verzeichnis stehen und das ist zwar herauszufinden, aber kostet Zeit, grade wenn man mehrere Excelversionen hat.
Sicherer und auch viel schneller ist: Extras--Makro--Aufzeichnen, dann dort als Speicherort des makros "persönlicheArbeitsmappe auswählen im DropDownfeld, dann irgendwas belangloses aufzeichen.
Excel legt dann die personl.xls im richtigen Verzeichnis an.
Personl.xls ist standardmäßig ausgeblendet. Dortiger Code ist von jeder offenen Datei aus aufrufbar.
Falls du eine Abprüfung einbaust ob sie vorhanden ist, so prüfe auch gleich nach "personAl.xls", so heißt sie in engl. Excelversionen.
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread