あるファイルのVBAのマクロを常に有効にする

こんばんは。

表題の通り、あるファイルのVBAのマクロを常に有効にして開けるようにしたいです。

・デジタル署名
・「信頼できる場所」の設定
、
は会社の規定上、実現不可でしたので、

https://www.saka-en.com/office/vba-open-the-macro-enabled-fibly/

のやり方を参照してダミー用シートを作成して、コンテンツを有効化にしないと編集用シートが開けないようにしました。

私が実現したいマクロは、下記の通りです。

保存されていない状態(ワークブックのSavedプロパティがfalseの場合)で閉じる「保存しますか？」とメッセージが表示される。

→「はい」を選択すると、上書き保存をしてダミーシートのみを表示にして保存
→「キャンセル」を選択すると、前回上書き保存したところまでの状態でダミーシートのみを表示にして保存

上記URLのマクロは「キャンセル」を選択すると、閉じる処理がキャンセルされる形です。

何か良い方法があればご教授頂けると幸いです。

Secret

2019/07/29 15:47

そのURLのサイトは閉鎖されていないですか？何よりも質問者さんのコードを提示されるほうが良いかと思います。

Tetsuya3456

2019/07/29 22:51

申し訳ありません、下記のURLでした。 https://www.saka-en.com/office/vba-open-the-macro-enabled-forcibly/ 私のコードを提示したいのですが、会社で作成しているマクロで、持ち出し厳禁で全て手打ちになってしまうのでURLの方が早いかと思いましたm(_ _)m

行動規範の内容に同意します

回答3件

こんばんは。

教えて頂いた方法や自分でも色々試して、実際に使うユーザーに様々試してもらったもらった結果、下記の対応策になりました。

1.BeforecloseイベントにSavedプロパティがFalseの場合、「ファイルを保存しますか？」というMsgboxを出す。

2.「いいえ」が選択された場合、Savedプロパティをtrueにして「Workbooks.open Thisworkbook.path & Thisworkbook.name」で同じファイルを開いて保存していない部分の情報を破棄する。

3.ユーザーには「いいえ」を押して同ファイルが開いた後に再度×でファイルを閉じるようにしてもらう。

3の行動をユーザーにとってもらうことが少し面倒ですが、この方法が一番無難そうな形になりました。

回答を頂き、ヒントが得られました。
ありがとうございましたm(__)m

(2020/7/6 追記)
最終的にベストアンサーの方のやり方で実装することになりました。

追記がだいぶ遅くなってしまい、大変申し訳ありません。

投稿2019/08/08 13:43

編集2020/07/06 11:31

Tetsuya3456

総合スコア22

質問を根底から覆すかもしれませんが、VBSを使うという手はどうでしょうか？

VBS
1Dim Obj
2
3Set Obj = WScript.CreateObject("Excel.Application")
4Obj.Visible = True
5CreateObject("WScript.Shell").AppActivate Obj.Caption
6Obj.Workbooks.Open "ここに起動するExcelファイルのフルパスを入力"
7Obj.Application.Run "ここに実行するプロシージャ名を入力"

上記のコードをメモ帳などに入力して、拡張子をvbsに変更します。
メモ帳の文字コードはANSIが良いです。UTF-8で保存するとエラーが出るかと思います。
（規定がANSIですので、気にする必要はないかもしれません）

VBSファイルを実行して、狙い通りに動けばOKです。

起動時に自動実行させる適当なプロシージャがない場合は、中身が空っぽのダミーのプロシージャを作って、それを指定してください。とにかく、VBSから1つでもプロシージャが動けば、他のプロシージャも警告なしで動くはずです。

投稿2019/07/30 05:54

Secret

総合スコア220

Tetsuya3456

2019/07/30 07:44

ご回答ありがとうございます。 VBSを知らなかったので、検索して試してみます！ありがとうございます。

行動規範の内容に同意します

ベストアンサー

閉じる時にどうこうするのではなく、
保存時にダミー用シートを有効にして保存するようにするのはどうでしょう。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Sheets("Sheet2").Visible = True
    Sheets("Sheet1").Visible = False
    ActiveWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("Sheet1").Visible = True
    Sheets("Sheet2").Visible = False
End Sub

キャンセル時云々は
http://officetanaka.net/excel/vba/file/file03.htm
の、『ブックが変更されたか？』が参考になると思います。

投稿2019/07/30 00:54