|
こんにちは。
97では、WithEventsキーワードでOffice.CommandBarButtonは使えないのでしょうか。
環境がないのでこちらでは確認できません。
>組み込み機能の 上書き保存 に+α した ボタンを作ろうとしています。
ApplicationレベルのWorkbookBeforeSaveイベントで処理すると方法を示します。
以下でどうでしょう。
'ThisWorkbookモジュール
Option Explicit
Dim WithEvents App As Application
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then '上書き保存時の処理
Cancel = True '本来の上書き処理をキャンセルする場合
MsgBox "ActiveWorkBook.Save +αの機能を持ったマクロを実行"
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set App = Nothing
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
|
|