Taskleiste wieder einblenden - BeforeClose
04.11.2006 00:03:00
Josef
gibt es eine Möglichkeit, unten stehende API zu aktivieren, sobald die Arbeitsmappe geschlossen wird? Wenn Ja, kann mir dann bitte jemand erklären, wie das geht?
Bisher wird die Taskleiste mit CommandButton ein und ausgeschaltet. Weil aber immer wieder vergessen wird, die Taskleiste beim beenden der AM wieder einzuschalten, soll das jetzt automatisch geschehen.
Habe bei der Formel unten mal den BeforeClose angewandt, aber so funktioniert das alles nicht.
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Taskbar einblenden
'Sub ShowTaskbar()
Dim hWnd As Long
hWnd = FindWindow("Shell_TrayWnd", "")
Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
Danke schon mal im Voraus
Gruß Josef
Anzeige