|
▼初心者 さん:
こんばんは。
>欲を申し上げれば、保存している3,4秒の間に
>(「保存しない」の場合2,3秒)
>非表示部分が見事に見えてしまうのをどうにかしたいところですが、
容量の小さいものでテストしたので気が付きませんでした。
それで、よく見ると、保存で「いいえ」を選択しても一瞬見えますね!!
以下のように変えました。
'=========================================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
ans = MsgBox(ThisWorkbook.Name & " を保存しますか?", vbExclamation + vbYesNoCancel)
If ans = vbYes Then
ThisWorkbook.Save '先に保存
Call set_window(True)
ThisWorkbook.Saved = True
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)
Dim w As Window
Set w = ActiveWindow
If t_or_f = True Then
w.Visible = False '戻すところを非表示にして見せない
End If
w.DisplayWorkbookTabs = t_or_f
w.DisplayVerticalScrollBar = t_or_f
End Sub
再度、確認して下さい。
|
|