|
>メニュー/ウインドウ/整列/左右に並べて表示
>hoge.xls:1,hoge.xls:2
>のようにしているとき
>ブックの×ボタンで閉じられないようにしたいと思っていますが
>Aブック:一般ブック1
>Bブック:一般ブック2
>Cブック:当初コード付ブック
>実際の
>行いたい動作は
>Cブックは2画面表示
>その他のブックが存在しているとき、タスクバーで選択されたときは最大化して表示
>その後、Cブックを選択しても2画面表示
>したいと思っています・・・・
↑の仕様で、ブックの保護(ウィンドウをチェック)を用いると以下のように簡単でしょう。
'ブックモジュール(ThisWorkbook)
Option Explicit
Private Sub Workbook_Activate()
Unprotect
Windows.Arrange ArrangeStyle:=xlVertical
ActiveWindow.Width = ActiveWindow.Width + 2
Protect Structure:=False, Windows:=True
End Sub
Private Sub Workbook_Deactivate()
Unprotect
ActiveWindow.WindowState = xlMaximized
End Sub
Private Sub Workbook_Open()
If Windows.Count = 1 Then ActiveWindow.NewWindow
Windows(Name & ":1").Activate
End Sub
|
|