エクセルVBAにて保存するとき

質問

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("エクセルを終了してもよろしいですか？", vbYesNo) = vbNo Then
Cancel = True
Exit Sub
End If
Application.DisplayAlerts = False
Application.Quit
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "そのボタンでは保存できません。" & vbCrLf & _
"雛形は残しておきましょう" & vbCrLf & _
"" & vbCrLf & _
"ツールバーの「マクロなし出力」から保存できます。"
Cancel = True

End Sub

という二つのマクロをThisworkbookにいれてあるんですが、
この二つを有効（今は2つ目を'でコメント状態にしてあるので保存可）にすると保存できなくて困っています。

二つを有効にした時はどのようにほぞんすればいいですか？

回答No.2

hana-hana3

＞雛形は残しておきましょう

原本をテンプレート(*.xlt)として保存しておけば改変されて同名で保存される事はありません。

http://www.wanichan.com/pc/xl2002/b01.htm

お礼

回答ありがとうございます。

テンプレートにするなんて考えもつきませんでした＾＾；
参考にさせていただきます。

回答No.1

chibita_papa

保存できない原因は
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True　'<--- コレ
End Sub

です。

対策として、Private Sub Workbook_BeforeSave　を全てコメントにして、このファイルをReadOnlyにしておき名前を付けて保存するを利用したらいかがでしょうか。

お礼

回答ありがとうございました。

回答いただいたのですが、自己解決してしまいました。（マクロを無効にして保存でできちゃいました＾＾；）

chibita_papaさんの方法も参考になりました

お手数おかけして申し訳ありませんでした＾＾；