|
>>これを回避したいのですが、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
Else
'保存されたときも戻しておかないと・・・・
Call set_window(True)
ThisWorkbook.Saved = True
End If
> End Sub
>'===================================================================
>Sub set_window(t_or_f As Boolean)
> ActiveWindow.DisplayWorkbookTabs = t_or_f
> ActiveWindow.DisplayVerticalScrollBar = t_or_f
>End Sub
>
>確認してみて下さい。
|
|