' [460.xls]



' [Module1] のコード
'★★☆　ユーザーフォームからExcelを最小化する　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub



' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()

        If CommandButton1.Caption = "戻す" Then
            CommandButton1.Caption = "フォームからExcelを最小化"
            Me.Hide
            Application.WindowState = xlNormal
            Me.Show
        Else
            CommandButton1.Caption = "戻す"
            
            'ユーザーフォームを非表示
            Me.Hide
            
            'Excelを最小化する(次の2行はセットで)
            Application.WindowState = xlMinimized
            AppActivate Application.Caption
            
            'ユーザーフォームを表示
            Me.Show
        End If
        
    'ユーザーフォームを最前面に表示するためのおまじない
    '(それでも他のソフトに隠れる時もあり)
    AppActivate Application.Caption
    
End Sub

Private Sub UserForm_Initialize()

    'ユーザーフォームの起動位置を画面の中心に
    Me.StartUpPosition = 2

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    'ユーザーフォームを非表示にしなくては次の行が実行されない為、
    'Excel が非表示のままになってしまう
    If Application.WindowState = xlMinimized Then Me.Hide
    
    Application.WindowState = xlNormal
        
End Sub