Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61632 / 76732 ←次へ | 前へ→

【19714】マクロを削除して保存したいのですが
質問  shell  - 04/11/15(月) 20:38 -

引用なし
パスワード
   お世話になります。
マクロの処理を行った後ファイル名を変えて保存します。
できた「new.xls」を、後で開いたときに「マクロを有効にしますか」というメッセージを出したくないので、マクロを削除したいのですが、困っています。

Sub hozon()
Dim myFileName As String
myFileName = "new.xls"
ActiveWorkbook.SaveAs Filename:=myFileName
   
'マクロを削除
  With Workbooks(myFileName).VBProject
    For Each VBC In .VBComponents
      Select Case VBC.Type
      Case 100
        With VBC.CodeModule
          .Deletelines 1, .Countoflines
        End With
      Case Else
          .VBComponents.Remove VBC
      End Select
    Next
  End With

ここまででマクロを終了すると、
閉じるボタンでとじるときに、
「変更を保存しますか?」のメッセージがでて、
「はい」で保存すると、できた「new.xls」はマクロが残りません。
「いいえ」で保存すると、マクロが残ってしまいます。
この部分をマクロで書きたいのですが、

  ActiveWorkbook.Save
  ActiveWorkbook.Close

End Sub

こうすると、どうしても
マクロが残ってしまいます。
マクロを削除した状態でそのまま保存して
終了することは出来ないのでしょうか?
(元のマクロの書いてあるファイルは上書き保存したくないのです。
また、複数のグラフができているので、新規にブックを作成してシートのコピーをすると、「自動リンクが〜」というメッセージが出てしまうのでさけたいです。)

どうぞよろしくお願いいたします。

0 hits

【19714】マクロを削除して保存したいのですが shell 04/11/15(月) 20:38 質問
【19716】Re:マクロを削除して保存したいのですが かみちゃん 04/11/15(月) 22:54 発言
【19717】Re:マクロを削除して保存したいのですが かみちゃん 04/11/15(月) 23:00 回答
【19733】Re:マクロを削除して保存したいのですが Jaka 04/11/16(火) 11:40 発言
【19779】Re:マクロを削除して保存したいのですが shell 04/11/16(火) 22:12 質問
【19781】Re:マクロを削除して保存したいのですが かみちゃん 04/11/16(火) 23:30 回答
【19786】自己レス反省文。 Jaka 04/11/17(水) 9:52 発言
【19846】Re:自己レス反省文。 shell 04/11/17(水) 21:41 お礼

61632 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free