ＥＸＣＥＬ２０００ＶＢＡ実践プログラミングリファレス「著者：大村あつし

質問

ＥＸＣＥＬ２０００ＶＢＡ実践プログラミングリファレス「著者：大村あつし、栗山　恵吉、田中　博人、出版社エーアイ出版」のサンブルマクロが動かない。

マクロの初心者です。
私のパソコンはエクセル２００７を利用しています。
サンプルマクロを動かす以前に、全てのサンプルに
With ThisWorkbook.VBProject.VBComponents("Module1")
に黄色のエラーが出てしまいます。
なぜかわかればご教示お願いします。

'コードを表示
Function GetCode(ByVal NowProc As String, ByVal NextProc As String) As String
Dim myStartLine As Integer
Dim myEndLine As Integer

黄色のエラー箇所⇒With ThisWorkbook.VBProject.VBComponents("Module1")
myStartLine = .CodeModule.ProcBodyLine(NowProc, vbext_pk_Proc)
If NextProc <> "" Then
myEndLine = .CodeModule.ProcStartLine(NextProc, vbext_pk_Proc)
Else
myEndLine = .CodeModule.ProcCountLines(NowProc, vbext_pk_Proc) + myStartLine
End If
GetCode = .CodeModule.Lines(myStartLine, myEndLine - myStartLine)
End With
End Function

回答No.1

tinu 2000（@tinu2000） · ベストアンサー

たぶんですが、
Excel 2007のセキュリティがVBAの中までアクセスするなっ！
と警告を発しているからと思われます。

セキュリティーセンター→マクロの設定→開発者向けのマクロ設定
→VBAプロジェクトオブジェクトモデルへのアクセスを信頼する（V)
にチェックを入れてみて下さい。

おそらく、その本はExcel 200０用ですから、
ここまでセキュリティが厳しくなるとは想定していなかったのでは、
と思います。

外していたらごめん。
ではでは。

お礼

ありがとうござました。
バッチリ動きました。
また機会ありましたら、ご教示ください。