excel VBA コピーファイルのマクロ削除
下記３つの、プロシージャを組み合わせて、下記のやりたいことをやりたいのですが、うまくいきません。
どうかご教授の程よろしくお願いいたします。
excelは2000です。
○やりたいこと
今現在開いているファイルの、コピーをデスクトップに保存して、その保存したブックのマクロ（標準モジュールと、コマンドボタン）を削除したい。
○自分でやろうとすると
コピーをデスクトップに保存すると、コピー元のファイルが勝手に閉じてしまい、コピー先のファイルのマクロを削除できない。
'■デスクトップにコピー保存
Sub copysave()
Dim 場所 As String
場所 = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ActiveWorkbook.SaveAs Filename:=場所 & "\" & Format(Date, "yyyymmdd") & "○◆△.xls"
End Sub
'■標準モジュールの削除
Sub DelModule()
Application.VBE.ActiveVBProject.VBComponents.Remove _
Application.VBE.ActiveVBProject.VBComponents("Module1")
Application.VBE.ActiveVBProject.VBComponents.Remove _
Application.VBE.ActiveVBProject.VBComponents("Module2")
End Sub
'■CommandButtonの削除
Sub DelCommandButton()
Dim c As Excel.OLEObject
For Each c In Worksheets(1).OLEObjects
If TypeOf c.Object Is Msforms.CommandButton Then
c.Delete
End If
Next
End Sub
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
お礼
うまくできました。 ありがとうございました。