Application.Visible = False + Tasksymbol

1. Als Add-In speichern 2. in "DieseArbeitsmappe": Private Sub Workbook_Open() Application.Visible = False UserForm1.Show Application.Quit End Sub und dann, drittens, im Modul des UserForms: Private Sub UserForm_Initialize() Application.WindowState = xlMinimized Application.Visible = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal:

Option Explicit

#If Win64 Then
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32.dll" Alias "GetWindowLongPtrA" ( _
    ByVal Hwnd As LongPtr, _
    ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32.dll" Alias "SetWindowLongPtrA" ( _
    ByVal Hwnd As LongPtr, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As LongPtr) As LongPtr
#Else
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal Hwnd As LongPtr, _
    ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32.dll" Alias "SetWindowLongA" ( _
    ByVal Hwnd As LongPtr, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As LongPtr) As LongPtr
#End If

Private Declare PtrSafe Function FindWindowA Lib "user32.dll" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "user32.dll" ( _
    ByVal Hwnd As LongPtr, _
    ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function SendMessageA Lib "user32.dll" ( _
    ByVal Hwnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    ByVal lParam As Any) As LongPtr

Private Const WM_SETICON As Long = &H80
Private Const GC_CLASSNAMEUSERFORM As String = "ThunderDFrame"
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_APPWINDOW As LongPtr = &H40000
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5

Private mlngptrHwnd As LongPtr

Private Sub CommandButton1_Click()
    Call Unload(Object:=Me)
    ' Application.Visible = True
End Sub

Private Sub UserForm_Activate()
    Dim lngptrStyle As LongPtr
    Call ShowWindow(Hwnd, SW_HIDE)
    lngptrStyle = GetWindowLongPtr(Hwnd, GWL_EXSTYLE)
    lngptrStyle = lngptrStyle Or WS_EX_APPWINDOW
    Call SetWindowLongPtr(Hwnd, GWL_EXSTYLE, lngptrStyle)
    Call ShowWindow(Hwnd, SW_SHOW)
End Sub

Private Sub UserForm_Initialize()
    Hwnd = FindWindowA(GC_CLASSNAMEUSERFORM, Caption)
    'Icon in Titlebar and Taskbarwindow
    ' Call SendMessageA(Hwnd, WM_SETICON, 0&, Image1.Picture.Handle)
End Sub

Private Property Get Hwnd() As LongPtr
    Hwnd = mlngptrHwnd
End Property

Private Property Let Hwnd(ByVal pvlngptrHwnd As LongPtr)
    mlngptrHwnd = pvlngptrHwnd
End Property

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Application.Visible = False + Tasksymbol

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.Visible = False + Tasksymbol

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread