AW: logisch !!!
06.08.2007 17:32:00
Nepumuk
Hallo Leo,
in das Modul "ThisDocument":
Option Explicit
Private objApplication As clsApplication
Private Sub Document_Open()
Set objApplication = New clsApplication
Set objApplication.prpApplication = Word.Application
End Sub
In ein Klassenmodul mit dem Namen "clsApplication":
Option Explicit
Private WithEvents mobjApplication As Word.Application
Friend Property Set prpApplication(objApplication As Word.Application)
Set mobjApplication = objApplication
End Property
Private Sub mobjApplication_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
If Doc Is ThisDocument Then
MsgBox "Du willst mich wirklich schließen?", vbQuestion, "Abfrage"
End If
End Sub
Gruß
Nepumuk