Excel VBA


Taskleiste ausschalten

Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" _
  (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub TaskBarAusblenden()
Dim strZugriffsnummer, dummy
  strZugriffsnummer = FindWindow("Shell_TrayWnd", vbNullString)
  dummy = ShowWindow(strZugriffsnummer, 5)
End Sub

Sub TaskBarEinblenden()
Dim strZugriffsnummer, dummy
  strZugriffsnummer = FindWindow("Shell_TrayWnd", vbNullString)
  dummy = ShowWindow(strZugriffsnummer, 0)
End Sub