|
▼あさか さん:
こんばんは。
以下のコードを記述する前に一度名前を付けて保存されているとして
>エクセルの右上にある_□×ボタンで終了できないようにし、
>新たに新設するボタンで必ず上書き保存でしか終了できないようにしたいのです。
>下記のような記述では成功しませんでした。
>どこをどのように記述すれば良いのでしょうか?
>よろしくお願い致します。
>
ThisWorkbookに
'=================================================================
Public cls_sv_ok As Boolean
'=================================================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not cls_sv_ok
End Sub
'=================================================================
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveAsUI = False
Cancel = Not cls_sv_ok
End Sub
'Notにしたのは初期値がfalseだからです。
標準モジュールに下記の記述
>Sub 終了()
>
> タイトル = "終了"
> メッセージ = "終了しますか?"
> スタイル = vbYesNo + vbQuestion
> YESNO = MsgBox(メッセージ, スタイル, タイトル)
> If YESNO = vbYes Then
With ThisWorkbook
.cls_sv_ok = True
.Save
End With
Application.Quit
End If
>
>End Sub
|
|