実行時エラー「9」モジュールエクセルVBA

Question

を削除するとき、私はいくつかの同僚とワークシートを共有しています。このスプレッドシートは最終的には外部に送信されるため、VBEモジュールをプログラム的にマクロの一部として削除しています。これは、一部のユーザーのために動作しますが、私は実行時エラーを取得

Dim vbCom As Object 

    Set vbCom = Application.VBE.ActiveVBProject.VBComponents 

    vbCom.Remove VBComponent:= vbCom.Item("sample_module") 

「9」他の人と：私は、Microsoftのドキュメントから撮影されたこのコードを使用していました。残りのスクリプトは最終的に実行されますが、モジュールは削除されません。

Answer 1

は、あなたが得るものを見る、下記For Each vbCom In .VBComponentsループでコードを実行するようにしてください：

Option Explicit 

Sub CheckVBProjComp() 

Dim vbCom As Object 
Dim flag As Boolean 
Dim VbComName As String 

VbComName = "sample_module" 

With ThisWorkbook.VBProject 
    For Each vbCom In .VBComponents 
     If vbCom.Name Like VbComName Then 
      .VBComponents.Remove .VBComponents(vbCom.Name) 
      flag = True 
      Exit For 
     End If 
    Next vbCom 
End With 

If flag Then 
    MsgBox "VB Component " & Chr(34) & VbComName & Chr(34) & " successfully removed", vbOKOnly 
Else 
    MsgBox "Unable to find VB Component " & Chr(34) & VbComName & Chr(34), vbInformation 
End If 

End Sub 

Answer 2

あなたは、VBA拡張ライブラリへの参照を追加し、それらのコマンドを実行している各クライアントの「Visual Basicのプロジェクトへのアクセスを信頼する」を有効にする必要があります。あなたは偉大な内訳でチップから、このページを見ることができます：http://www.cpearson.com/excel/vbe.aspx

Answer 3

目標は、内のすべてのモジュールを削除するだけである場合Excelワークブック与えられ、その後、WorkbookのVBProjectは、VBE.ActiveVBProjectはあなたがターゲットとしているワークブックの背後にあるプロジェクトになるだろうと想定していないことをオフに動作します。

この手順ストリップ指定targetからすべての非文書モジュール：

Public Sub RemoveAllMacros(ByVal target As Workbook) 

    'if the target is ThisWorkbook, we're removing the very macro we're running! 
    If target Is ThisWorkbook Then Exit Sub 

    Dim components As VBComponents 
    Set components = target.VBProject.VBComponents 

    Dim component As VBComponent 
    For Each component In components 
     If component.Type <> vbext_ct_Document Then components.Remove component 
    Next 

End Sub