|
▼初心者 さん:
こんにちは。
>これを回避したいのですが、Workbook_BeforeCloseに表示命令を
>書いてしまうと、保存確認のメッセージが表示されたり、
>折角非表示にしている所まで表示されてしまいます。
しかし、記述するとしたら、やっぱり「Workbook_BeforeClose」の
プロシジャーですよね?
保存確認のメッセージまで自作してみたらどうでしょうか?
Thisworkbookのモジュールに
'=============================================================
Private Sub Workbook_Open()
Call set_window(False)
End Sub
'=============================================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
ans = MsgBox(ThisWorkbook.Name & " を保存しますか?", vbExclamation + vbYesNoCancel)
If ans = vbYes Then
Call set_window(True)
ThisWorkbook.Save
ElseIf ans = vbNo Then
Call set_window(True)
ThisWorkbook.Saved = True
Else
Cancel = True
End If
End If
End Sub
'===================================================================
Sub set_window(t_or_f As Boolean)
ActiveWindow.DisplayWorkbookTabs = t_or_f
ActiveWindow.DisplayVerticalScrollBar = t_or_f
End Sub
確認してみて下さい。
|
|