Option Explicit

'ブックを閉じるとき
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    If gFlg = False Then Exit Sub
    
    'コマンドバーをリセット
    Application.CommandBars("Worksheet Menu Bar").Reset
    Application.Caption = ""
    
    gFlg = True
    
    'ユーザー初期値に戻す
    Call mdlMain.MainClose

End Sub

'ブックを開くとき
Private Sub Workbook_Open()

    Dim lngBookCount As Long
    Dim objWorkbook As Object
    Dim bytMsg1 As Byte
    Dim bytMsg2 As Byte
    Dim blnNewFile As Boolean
    
    lngBookCount = Workbooks.Count
    If lngBookCount <> 1 Then
        bytMsg1 = MsgBox("作業中のブックを閉じますか。", vbYesNo + vbInformation, "問い合わせ")
        Select Case bytMsg1
            Case vbYes
                With ThisWorkbook
                    .Worksheets("Sheet1").Activate
                    .Protect structure:=True, Windows:=True
                End With
                MsgBox "「はい」が選択されました。" & vbLf & vbLf & _
                    "保存メッセージ表示後クローズします。", vbOKOnly + vbExclamation, "情報"
                For Each objWorkbook In Workbooks
                    If objWorkbook.Name <> ThisWorkbook.Name Then objWorkbook.Close savechanges:=True
                Next objWorkbook
                With ThisWorkbook
                    .Unprotect
                    .Activate
                End With
            Case vbNo
                MsgBox "「いいえ」が選択されました。" & vbLf & vbLf & _
                    "作業中のブックはクローズされません。", vbOKOnly + vbExclamation, "情報"
        End Select
    End If
    
    Call mdlMain.PreviwAbout
    Call mdlMain.HideBooks
    Call mdlMenu.CreateMenuBar
    
End Sub