Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    gFlg = True
    'ユーザー初期値に戻す
    Call Module1.Back_to_Excel

End Sub