Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

WBeforeClose-Ereignis funktioniert nich bei ".xla"

Forumthread: WBeforeClose-Ereignis funktioniert nich bei ".xla"

WBeforeClose-Ereignis funktioniert nich bei ".xla"
04.04.2003 12:14:03
Dario
Hallo zusammen!
ich hab ein Problem, hoffe jemand kann mir helfen!
Ich starte ein Add-In(*.xla) Datei mit doppelklick(Desktopverknüpfung).
Das Add-In wird instaliert und ich kann es benutzen, dabei werden auch einige Schaltflächen und Buttons erstellt(Workbook_Open Eigenschaft).
Bei schließen der Datei(Excel beenden) möchte ich das Add-In deinstalieren und die Schaltflächen und Buttons entfernen,so dass beim "normal" Excel-Start mein Add-In nicht mehr vorhanden ist.
Das Problem: Die "Workbook_BeforeClose" Eigenschaft funktioniert nicht in der (*.xla) Datei.
Würde mich freuen wenn jemand die Lösung hätte.
Übrigens unter "Office 97" hat das funktioniert.

Vielen Dank!



Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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




Anzeige
Re: WBeforeClose-Ereignis funktioniert nich bei ".xla"
04.04.2003 13:39:13
Dario

Hallo Michael,
danke fur deine Antwort.
Leider kann ich dein Code nicht ganz nachvollziehen. Wenn du mir nur kurz deine Absichten erklären würdest.


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige