家計簿77/シートが保護されていると、エラーにならない？

　24日の「iPS-BBの会」で、

家計簿77の［翌月分シート作成］で、シートはできるが、前月分のデータが入っている（残る）

との不具合を指摘された。

• 原因は、
  1. シートが保護されていたため、
  2. 行削除ができなかった もの。
• 処置は、
  1. シート見出しを右クリックし、
  2. ［シート保護の解除］をクリックする。
     • 注）［シートの保護］はクリックしないこと!!!

---

1. ソースコードを見ると‥‥
   1. Selection.EntireRow.Delete が利いていない。
      • 利かない原因は、シートが保護されていたためで、これは納得できる。
   2. 問題は「On Error GoTo Err_データ部クリア」が入っているのに、効いていないこと。
      　但し、呼び出し元には「On Error GoTo」文は入っていない。
2. ステップ実行して追うと‥‥
   1. 上記 1.1. でエラーとなり、
   2. Err_データ部クリア（下記）に飛ぶ。
      1. Err_データ部クリア:
      2. MsgBox "データ部クリアに失敗しました。", vbCrLf & vbCrLf _
      3. & "　引数1＝" & argシート名 & vbCrLf & vbCrLf _
      4. & Err.Number & Err.Description, vbCritical, mbTitle
      5. Resume Exit_データ部クリア
   3. しかし、MsgBox を出すことなく、呼び出し元に戻る。
   4. 呼び出し元には On Error GoTo は無いので、正常終了してしまう。
   5. 但し、2.2. の　Err_データ部クリア にジャンプした後、
      デバッグウィンドウで ?Err.Number すると 1004 と表示された。
      （∵Delete が実行できなかったためであろう）

結論

• 呼び出し元に On Error GoTo文を入れた。
• 結果として、下図のエラーが出る。
  左側：翌月分シート作成　右側：翌月分ブック作成