|
おはようございます。いつもありがとうございます。また是非教えてください。
マクロで「日報」のデータを「データ履歴」のフォルダーに保存しています。
保存するとマクロのコードまで保存するので、毎日の「日報」保存データにマクロコードを削除することを目的に、以下のコードを作成しました。(シート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
|
|