WorkBookOpenでユーザーフォームしか表示させない

'ThisWorkbook
Private Sub Workbook_Open()
    ' Workbookをウィンドウレベルで非表示にする
    Me.Windows(1).Visible = False
     ' Workbookを非表示にする
    Application.Visible = False
    ' UserForm1を表示する
    ShowForm
End Sub

'MeinForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' UserFormが閉じられたときにWorkbookを再表示する
    ThisWorkbook.Windows(1).Visible = True
    Application.Visible = True
End Sub

Adminボタンを作ってデータソースがあるSheetは管理者だけが見れるようにするのもいいかもしれない