Dim dai As String

'[1] アイコン（最小サイズ）でブックを開く
Sub ki023a()
fff = Application.GetOpenFilename
    Workbooks.Open fff
    ActiveWindow.WindowState = xlMinimized
End Sub

'[2] 非表示状態でブッブを開く
Sub ki023b()
fff = Application.GetOpenFilename
dai = Dir(fff)
    Workbooks.Open fff
    ActiveWindow.Visible = False
End Sub

'上記のブックは「ウインドウ｣｢再表示｣又は下記マクロで表示できる。
'[3] 非表示のブックの再表示
Sub ki023c()
    Windows(dai).Visible = True
End Sub