Excel VBA質問箱 IV

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

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


60163 / 76732 ←次へ | 前へ→

【21213】マクロコードを削除して保存について
質問  YN61  - 05/1/15(土) 10:39 -

引用なし
パスワード
   おはようございます。いつもありがとうございます。また是非教えてください。

マクロで「日報」のデータを「データ履歴」のフォルダーに保存しています。
保存するとマクロのコードまで保存するので、毎日の「日報」保存データにマクロコードを削除することを目的に、以下のコードを作成しました。(シート1で作成しています)
「日報」に作成されたデータは、問題なく「日報01-15」として保存されるのですが、
その、今日の日報(”日報01-15”)を閉じる時に・・・→

! マークのついた「'日報.xls’への変更を保存しますか?」が出ます。
「はい(Y)」 「いいえ(N)」 「キャンセル」 を選択しなければならない状態を招きます。
このアラームを出さずに保存してしまう方法がありましたら教えてください。
(言わば、テンプレート的な扱いをさせたいのです)

(因みに「はい」を選択すると、マクロのコードは削除され日報のデータだけが保存され希望する状態になりますが、「いいえ」を選択するとマクロのコードが残ったままで保存されます。)


Sub newDsave()

On Error Resume Next

ActiveWorkbook.SaveAs Filename:= _
"C:\My Documents\データ履歴\日報" & _
Format(Date, "mm" & "-" & "dd")
   
Dim W_Book As Workbook
 Set W_Book = Workbooks("日報" & Format(Date, "mm" & "-" & "dd") & ".xls")

 With W_Book.VBProject.VBComponents.Item("Sheet1").CodeModule
     .DeleteLines 1, .CountOfLines
 End With

On Error GoTo 0

ActiveSheet.Shapes("Button 1").Select '・・・コマンドボタン1を削除しています
  Selection.Cut
   
End Sub

0 hits

【21213】マクロコードを削除して保存について YN61 05/1/15(土) 10:39 質問
【21214】Re:マクロコードを削除して保存について IROC 05/1/15(土) 11:11 回答
【21215】Re:マクロコードを削除して保存について かみちゃん 05/1/15(土) 12:02 回答
【21217】Re:マクロコードを削除して保存について YN61 05/1/15(土) 13:44 お礼

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