Hallo Hady,

hätt' ich jetzt nicht gedacht, aber ja mit ein paar Kniffen ist es möglich. Dazu musst du folgende Codes eingeben:

In das Modul "Diese Arbeismappe"

Private Sub Workbook_Open()
  On Error Resume Next
  ThisWorkbook.Windows(1).Visible = False
  UserForm1.Show
  'Application.Visible = False 'Falls auch Excel insgesamt nicht sichtbar sein soll
End Sub

In das entsprechende "UserForm1"

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Startzeit = Now + TimeValue("0:00:01")
  Application.OnTime Startzeit, "Entladen"
  
  'Falls Excel insgesamt nicht sichbar ist:
  'Application.DisplayAlerts = False
  'Application.Quit
End Sub

In ein Standardmodul ("Modul1")

Public Startzeit
Sub Entladen()
  On Error Resume Next
  Application.OnTime EarliestTime:=Startzeit, Procedure:="Entladen", Schedule:=False
  ThisWorkbook.Windows(1).Visible = True
  ThisWorkbook.Close True
End Sub

Außerdem musst du in den Eigenschaften des Userforms ShowModal auf False und StartUpPosition auf Bildschirmmitte setzen.

Allerdings wird es schwierig, an die Ansicht der Arbeitsmappe heranzukommen, wenn diese ausgeblendet ist. Hierzu solltest du dir entweder auf dem Userform oder in einer anderen Arbeitsmappe auf die nur du Zugriff hast eine Codezeile einbauen wie:

Workbooks("Dateiname").Windows(1).Visible = True

Den jeweiligen User kannst du mit Environ("Username") oder Application.UserName abfragen. Sollten jedoch mehrere Nutzer gleichzeitig auf die Datei zugreifen können musst du diese zuerst "Freigeben" (bis Excel 2016) oder das Bearbeiten von Bereichen zulassen (ab Excel 2019) - Beides im Menü "Überprüfen". Ob die Makros dann noch vollumfänglich funktionieren, kann ich leider hier nicht testen. Musst du selbst rausfinden.

Ich hoffe ich konnte dir helfen.

Gruß Mr. K.