管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

【訂正版あります】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

Excel2003くらいからですかね、VBAProjectオブジェクトへアクセスする際、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」にチェックが入っていないといけなくなったじゃないですか。
普段からチェック入れたまま、というのもアレですし、かといって、設定箇所どこだっけ...みたいになりがちじゃないですか。
これです☟
f:id:ksk1130:20170426233638p:plain

というわけで、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」を開くためのマクロを作りました。VBAでひたすら当該箇所までのキー押下を再現しています。
標準モジュールに以下のソースを書いて実行です!
チェックON/OFFはトグルなので、最終的にONなのか、OFFなのかは目視確認が必要ですが、どこだっけ...?の手間は軽減できると思います。

    • 追記

Office2013で検証したのですが、Office2013同士でも、また、Office2016では挙動が異なることが判明。書き直しました☟

追記ここまで--

>|vb|
Option Explicit

Sub セキュリティセンター_マクロの設定を開く()
Dim i As Integer

ActiveWorkbook.Activate

'セルの入力状態他を解除するため、ESCキーを5回押下する
For i = 1 To 5
SendKeys "{ESC}"
Next

' オプション画面を開く
SendKeys "%to"

' セキュリティセンターを選択するようキー操作する
' 左ペインにカーソルが移動するようTABキー押下
For i = 1 To 17
SendKeys "{TAB}"
Next

' 左ペインの「セキュリティセンター」を選択
For i = 1 To 9
SendKeys "{DOWN}"
Next

' 「セキュリティセンター」ウィンドウを開く
SendKeys "%t"

' 「ActiveXの設定」→「マクロの設定」となるようキー操作
' 前回選択した項目を記憶している?ようなので、「ActiveXの設定」を起点にキー操作する
SendKeys "a{DOWN}"

' Alt+VでチェックON/OFFをトグルで切り替え
SendKeys "%v"

End Sub

|