| |
おはようございます。いつもありがとうございます。また是非教えてください。
マクロで「日報」のデータを「データ履歴」のフォルダーに保存しています。
保存するとマクロのコードまで保存するので、毎日の「日報」保存データにマクロコードを削除することを目的に、以下のコードを作成しました。（シート１で作成しています）
「日報」に作成されたデータは、問題なく「日報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 '･･･コマンドボタン１を削除しています
Selection.Cut
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
