Option Compare Database Option Explicit Function IsRuntime() As Boolean IsRuntime = SysCmd(acSysCmdRuntime) End Functionここで、考えるシナリオが2つ、いずれも、信頼できる場所に無いなどセキュリティ関係。
- Runtime版での実行
- 製品版での実行
- Runtime版の場合、セキュリティに関する通知が出現しても、OK押下でVBAコードの実行が許可されるから問題はなさそう。
- 製品版の場合、セキュリティの警告が表示されつつもファイルは開いてしまう。その状態ではVBAコードが実行されない。これは、ちょっと困る。
リボンカスタマイズとチョイ悪社員対策(AllowBypasskeyやaccde化/各種オプションの設定)は必要に応じて。
0 件のコメント:
コメントを投稿