エクセル ブック（マクロを含む）を保存してとじると、また開きます。

質問

ブックに保護をかけた状態で保存してあります。
共有状態にあり、マクロを有効にしてもらいたいので、
(1)開くときに保護解除
(2)保存のときに、保護をかけて保存後、（まだ閉じるとは限らないので）保護解除
ということをやろうとし、以下のように書きました。

エクセルごとではなく、このファイルのみ終了しようとすると、
開いた後と上書保存後に保護を解除する為、
ファイルを終了する時には必ず「変更を保存しますか？」と訊かれ、
その時に「はい」を選択すると、一度はそのファイルが終了するのですが、
すぐに マクロを含むファイルを開くときに出るメッセージ「セキュリティ警告マクロ　マクロ有効　マクロ無効　詳細」が出て、また開こうとします。
保存「いいえ」を選択すると、普通に終了します。
エクセルごとを終了すれば保存「はい」にしても、普通に終了します。

このファイルのみ終了する時、保存の確認で、「はい」を選び、普通に終了するには、何を直したらよいでしょうか？
その前に、根本的に間違ってたりしますでしょうか・・・。
よろしくお願いします。

ThisWorkbookに、
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="（パスワード）"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveSheet.Protect Password:="（パスワード）"
Application.OnTime Now, "保護解除"
End Sub

標準モジュールに、
Sub 保護解除()
ActiveSheet.Unprotect Password:="（パスワード）"
End Sub

回答No.8

Wendy02 · ベストアンサー

chihuma　さん、merlionXX さん、こんばんは。

> 砂時計のまま、画面がもどってこないですか？

少し、見させていただきました。どうやら、命令が二重になって、不履行のコマンドが残っているようです。

[Ctrl + F4] = Window Close でも、基本的には同じ考え方のはずですが、やはりちょっと、命令の実行にはズレがあるのかもしれませんね。たぶん、こういうことで解消するのではないかと思います。

------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　If ThisWorkbook.Saved = False Then　'←変更したけれど保存されていない場合
　　　　If MsgBox("保存しますか？", vbYesNo + vbQuestion, "（＾o＾）？　") = vbYes Then
　　　　　ThisWorkbook.Save
　　　　Else
　　　　 ThisWorkbook.Saved = True　
　　　　End If
　　End If
　　'ThisWorkbook.Close　'←二重の命令(不要）
End Sub
------------------
これは、すでに、Close の命令が出ているので、その上に、ThisWorkbook.Close をする必要がありません。

それと、OnTime(EarliestTime, Procedure, LatestTime, Schedule)

のLatestTime に以下を入れるというのは、
myTime + TimeSerial(0, 0, 1)

命令不履行になったときには、経過時間が過ぎたら待たないという意味なのです。それを入れないと、いつまでも、命令の履行を待ってしまうわけですね。実際に、そのような現象があるのか、はっきりはしていないのですが。

------------------
myTime = Now + TimeSerial(0, 0, 1) 'そのままNow だけでも可、でも今回は関係ないと思いますが、変数で置く習慣を身に着けたほうがよいと思います。　　
　　Application.OnTime myTime, "保護解除", myTime + TimeSerial(0, 0, 1)
それから、Sub 保護解除() 側の最後に、以下を入れたほうがよいですね。
　　ThisWorkbook.Saved = True　'←これは、「保護解除」で変更されたけれども、それはカウントしないという意味です。そうすると、ThisWorkbook.Saved は、純粋に、これ以外の変更だけを監視できます。

また、私の#5のマクロに書かれていませんでしたが、 Workbook_Open()　は、Call 保護解除を呼び出すか、UnProtect した後に、Saved = True を入れないと、開いただけでも変更のフラグが立ってしまいます。
------------------

なお、私の場合は、標準モジュールに行き来するタイムラグと、オートメーション・オブジェクト(=CreateObject)の場合に備えて、
"ThisWorkbook.保護解除"

としました。オートメーション・オブジェクトにすると、標準モジュールが素通りしてしまいます。本当は、オートメーションにしたら、セキュリティのために、逆に、プロテクトのままにするという方法も良いかもしれません。私は、最初、マクロの意味が、よく分からなかったけれども、これは、セキュリティとマクロを有効にするために考えられたもので、単純だけどアイデアとしては、抜群だと思います。私もメモに残して、今後の参考にさせていただくことにします。

お礼

回答ありがとうございます<(_ _)><(_ _)><(_ _)><(_ _)>

丁寧な解説＆アドバイスありがとうございました！