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.