Option Explicit
Private Sub Workbook_Open()
Symbolleiste
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
MyBar.Visible = True
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
MyBar.Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Verzögerung, "Countdown", , False
Application.OnTime Verzögerung, "Countup", , False
End Sub
In ein "normales Modul"
Gruß
Nepumuk
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen