VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ThisWorkbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit

Private Sub Workbook_Open() '開く
SheetClip.Visible = False 'クリップシート、非表示
SheetLog.Visible = False '履歴シート、非表示
MsgBox "。ｏ Ｏ ○ ( りっぷ2(りっぷつぅ)簡易説明書 ) ○ Ｏ ｏ 。" & Chr(10) _
  & Chr(10) & "■■起動方法■■" & Chr(10) _
  & "右クリック" & Chr(10) _
  & Chr(10) & "■■終了方法■■" & Chr(10) _
  & "りっぷ2(りっぷつぅ)の[×]ボタン(パレットの[×]ボタンでは終了しません)" & Chr(10) _
  & Chr(10) & "■■操作方法■■" & Chr(10) _
  & "【左クリック】" & Chr(10) _
  & "　パレットでペンの色(副)を選択します" & Chr(10) _
  & Chr(10) & "【右クリック】" & Chr(10) _
  & "　パレットでペンの色(主)を選択します" & Chr(10) _
  & "　描画します(コンテキストメニューは使用不可)" & Chr(10) _
  & "　ズームが100%でない、ウインドウ枠の固定や分割がされている時、" & Chr(10) _
  & "　描画機能がオフとなり、コンテキストメニューが使用可能となります" & Chr(10) _
  & Chr(10) & "■■補足事項■■" & Chr(10) _
  & "背景に画像を設定していても、" & Chr(10) _
  & "りっぷ2(りっぷつぅ)の起動、終了の際に解除されます" & Chr(10) _
  & "また、背景を設定したままブックを保存すると、" & Chr(10) _
  & "ファイルサイズが非常に大きくなってしまいます"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) '閉じる
If SheetCanvas.getBol_Init Then '起動しているなら
  MsgBox "りっぷ2(りっぷつぅ)が起動しています" & Chr(10) _
    & Chr(10) & "りっぷ2(りっぷつぅ)を終了してからExcelを閉じてください"
  Cancel = True
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) '保存前
Dim Msg_ans As Long
If SheetCanvas.getBol_Init Then '起動しているなら
  Msg_ans = MsgBox("ファイルサイズが大きくなりすぎる恐れがあるため、" & Chr(10) _
    & "保存をする前に背景と履歴を消去します" & Chr(10) _
    & Chr(10) & "背景と履歴を消去して保存をしますか", vbYesNo)
  If Msg_ans = 6 Then 'はい
    SheetCanvas.changeBack False '背景削除
    SheetCanvas.deleteLog '履歴消去
  Else
    Cancel = True
  End If
End If
End Sub
Private Sub Workbook_Activate() 'アクティブになった時
If ActiveSheet Is SheetCanvas Then 'アクティブシートがカンバスシートなら
  SheetCanvas.changeShowHide True 'りっぷ2(りっぷつぅ)の表示
End If
End Sub
Private Sub Workbook_Deactivate() 'アクティブが他に移った時
If ActiveSheet Is SheetCanvas Then 'アクティブシートがカンバスシートなら
  SheetCanvas.changeShowHide False 'りっぷ2(りっぷつぅ)の非表示
End If
End Sub