' [057.xls]



' [Module1] のコード
'★★☆　ウィンドウをディスプレイの表示範囲の外に移動し隠す　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub

Sub 強制終了させてしまった時実行して下さい()

    Application.Top = 0

End Sub


' [UserForm1] のコード
Option Explicit

Dim mytop As Long   '画面に対する Excel の最上部位置の数値を格納

Private Sub CommandButton1_Click()

        'ボタンの文字で Excel の現在状態を判断
        If CommandButton1.Caption = "戻す" Then
            CommandButton1.Caption = "Excelを画面外に移動する"
            
            'Excelの Top 位置を元に戻す
            Application.Top = mytop
            Label2.Caption = mytop
        Else
            CommandButton1.Caption = "戻す"
            
            'Excelの Top 位置を 0 から Excel の高さを引いた位置に移動
            'ここで画面の上に移動させ Excelは見えなくなります
            Application.Top = -Application.Height
            Label2.Caption = Application.Top
            
        End If
    
End Sub


Private Sub UserForm_Initialize()

    'フォーム起動時にExcelの Top 位置を変数に格納
    mytop = Application.Top
    
    '現在のExcelの Top 位置を表示
    Label2.Caption = mytop

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    'フォーム終了時に Excel を必ず元の位置に戻す
    Application.Top = mytop

End Sub