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 質問
【61504】Re:新しいウインドを開くのウインドウを閉... n 09/5/13(水) 22:40 発言
【61507】Re:新しいウインドを開くのウインドウを閉... yoshi 09/5/14(木) 2:26 お礼
【61515】Re:新しいウインドを開くのウインドウを閉... neptune 09/5/14(木) 10:19 発言
【61604】Re:新しいウインドを開くのウインドウを閉... ON 09/5/21(木) 16:18 お礼
【61615】Re:新しいウインドを開くのウインドウを閉... neptune 09/5/21(木) 22:31 回答
【61619】Re:新しいウインドを開くのウインドウを閉... n 09/5/22(金) 1:37 発言
【61624】Re:新しいウインドを開くのウインドウを閉... yoshi 09/5/22(金) 11:59 回答
【61690】Re:新しいウインドを開くのウインドウを閉... ON 09/5/27(水) 18:44 お礼
【61723】Re:新しいウインドを開くのウインドウを閉... ON 09/5/29(金) 21:15 お礼
【61737】Re:新しいウインドを開くのウインドウを閉... yoshi 09/5/30(土) 16:19 回答
【61804】Re:新しいウインドを開くのウインドウを閉... ON 09/6/5(金) 16:17 質問
【61808】Re:新しいウインドを開くのウインドウを閉... yoshi 09/6/5(金) 18:17 回答
【61809】Re:新しいウインドを開くのウインドウを閉... ON 09/6/5(金) 19:10 質問
【61817】Re:新しいウインドを開くのウインドウを閉... yoshi 09/6/6(土) 16:54 回答
【61930】Re:新しいウインドを開くのウインドウを閉... ON 09/6/12(金) 16:36 お礼
【61931】Re:新しいウインドを開くのウインドウを閉... ON 09/6/12(金) 16:37 発言
【61932】Re:新しいウインドを開くのウインドウを閉... ON 09/6/12(金) 16:39 発言

20523 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free