ExcelVBA Tips(VBE)

ブック内のすべてのマクロを消去・削除するには？

キーワード>>VBProject・VBComponents・CodeModule・DeleteLines 1・Remove

Point ：全てのマクロを削除したはずなのにマクロの警告が出てしまう。

　'ThisWorkbookの全てのマクロを消去・モジュールを削除します。

Sub Test()
　Dim myVBComp
　　For Each myVBComp In ThisWorkbook.VBProject.VBComponents
　　　If myVBComp.Type = 100 Then
　　　'Documentモジュール(ThisWorkbokやSheet)なら消去
　　　　With myVBComp.CodeModule
　　　　　　.DeleteLines 1, .CountOfLines
　　　　End With
　　　Else
'Documentモジュール(標準モージュール、クラスモジュール、Formなど)以外なら削除
　　　　　Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
　　End If
　Next myVBComp

End Sub
　

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。