Re: WBeforeClose-Ereignis funktioniert nich bei ".xla"
04.04.2003 12:46:17
Michael Scheffler
Folgendes klappt.'==================================================================================================
'Methods:
' Workbook_Open: Creates export menu
' Workbook_BeforeClose: Removes export menu
'==================================================================================================
'========================================================================================
'2002-02-20, Michael Scheffler
'Main options for this class module
'========================================================================================
Option Explicit
Option Base 1
Private Sub Workbook_Open()
'========================================================================================
'2002-02-20, Michael Scheffler, IMA
' Creates export menu
'========================================================================================
Dim strVersion As String
' ADOI installed?
strVersion = GetAdoVersion
If strVersion = "Exit" Then
MsgBox "ADO is not installed " & vbLf & "Please use Mdac_typ.exe to update!"
Application.Quit
End If
Main
If bolCD Then
CreateMenu
Else
Application.Quit
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'========================================================================================
'2002-02-20, Michael Scheffler, IMA
' Removes export menu
'========================================================================================
RemoveMenu
End Sub