'Copyright (C) 1 JUL 2004 Keisuke Kigawa All Right Reserved
'変数宣言強制
Option Explicit
'グローバル変数
Dim gFlg As Boolean

'自動実行
Public Sub Auto_Open()

    'フラグ設定
    gFlg = True
    'ユーザーフォーム表示
    UserForm1.Show
    '自分自身を閉じる
    Call Module1.Back_to_Excel

End Sub

Public Sub Back_to_Excel()

    '自分をクローズ
    If gFlg = False Then
        ThisWorkbook.Worksheets("Sheet1").Activate
        If ActiveWindow.Visible = False Then ActiveWindow.Visible = True
        ThisWorkbook.Close False
    ElseIf gFlg = True Then
        ThisWorkbook.Saved = True
    End If
    
    gFlg = False

End Sub