|
▼Excel大好きちゃんさん、IROCさん、おはようございます。
>>
>例えば、Book1.xlsをアクティブにした状態で
>「新しいウインドウを開く」を実行すると
>Book1.xls:1
>Book1.xls:2
>が同時に表示されます。
>この状態で、間違ってBook1.xls:1を先に閉じてしまうと
>Book1.xlsで元々設定していた表示関係の情報が
>クリアされてしまいます。
>表示の倍率、ウインドウ枠の固定 等の設定です。
>「間違ってBook1.xls:1を先に閉じようとしたときに
>警告するようにできないでしょうか?」
>特定のブックに対してではなく、任意のブックに対して
>いつでもこのチェックが効くようにしたいです。
ウインドウを閉じる時に警告する方法はわかりませんが、
閉じても復元すると言う方法はどうでしょうか?
「ユーザー設定のビュー」を使用しました。
例えば、新規ブックに以下のコードを貼り付けて実行して下さい。
'=====================================================
Sub sample1()
With ActiveWindow
.Zoom = 200
.SplitColumn = 0
.SplitRow = 2
.Parent.CustomViews.Add ViewName:="sample", PrintSettings:=True, _
RowColSettings:=True
.NewWindow
End With
End Sub
↑で、倍率200の2行目で分割されたウインドウと通常のウインドウの二つが
できあがります。
倍率200のウインドウを閉じて下さい。
次に以下のコード実行
'====================================================
Sub 復元()
ActiveWindow.NewWindow
ActiveWorkbook.CustomViews("sample").Show
End Sub
CustomViewオブジェクトを探ってみて下さい。
|
|