Hi Didi1b
Versuchs mal damit
in einem Modul (zB.: Modul1)
Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub
in DieseArbeitsmappe
Private Sub Workbook_Open()
Auto_Open
End Sub
und in der UserForm1
Private Sub UserForm_Terminate()
Application.Visible = True
End Sub
Ich hofe dass ich dir damit etwas geholfen habe.
gruss Eddie