Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20523 / 76732

←次へ　｜　前へ→


	【61624】Re:新しいウインドを開くのウインドウを閉じるときイベント

yoshi - 09/5/22(金) 11:59 -


	引用なし

	パスワード

>メニュー/ウインドウ/整列/左右に並べて表示
>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

1 hits

▼

【61498】新しいウインドを開くのウインドウを閉じるときイベント ON 09/5/13(水) 17:57