AW: ..und Excel ausblenden? auch nicht? oT
27.02.2016 19:07:24
Jan
Paaah ;)
Modul mit:
#If Win64 Then
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Diese Arbeitsmappe:
Private Sub Workbook_Open()
Application.Visible = False
ArbeitsplanerUserForm.Show
End Sub
Private Sub UserForm_Initialize()
Me.Left = 0
Me.Top = 0
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
End Sub
und Abbruch Button mit:
Private Sub CommandButton1_Click()
Application.Visible = True
Unload Me
End Sub