Excel VBA質問箱 IV

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

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


20641 / 76732 ←次へ | 前へ→

【61504】Re:新しいウインドを開くのウインドウを閉じるときイベント
発言  n  - 09/5/13(水) 22:40 -

引用なし
パスワード
   >hoge.xls:1,hoge.xls:2
>のようにしているとき
>ブックの×ボタンで閉じられないようにしたいと思っていますが
>上記に相当するイベントは無いようです
>
>(複数ウインドウ時 hoge.xls:1,hoge.xls:2 の場合の、1方を閉じるときです)
常に2つのWindowを左右並べで整列させて、片方を閉じさせないという意味でしょうか?
かん違いしていなければ、閉じた場合強制で復活させて整列し直す、という対応でも良い?

'ThisWorkbookModule
Option Explicit
Private bk_close As Boolean
'-----------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  bk_close = True
End Sub
'-----------------------------------------------------------
Private Sub Workbook_Open()
  test1
End Sub
'-----------------------------------------------------------
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  If Not bk_close Then
    Application.OnTime Now, Me.CodeName & ".wnChk"
  End If
End Sub
'-----------------------------------------------------------
Sub wnChk()
  If Me.Windows.Count <> 2 Then
    test1
  End If
End Sub
'-----------------------------------------------------------
Sub test1()
  Dim max_h  As Double
  Dim max_w  As Double
  Dim count_w As Long
  Dim i    As Long
  
  Application.EnableEvents = False
  With Me
    count_w = .Windows.Count
    If count_w > 2 Then
      For i = count_w To 3 Step -1
        .Windows(i).Close
      Next
    ElseIf count_w = 1 Then
      .NewWindow
    End If
    With .Windows(1)
      .WindowState = xlMaximized
      max_h = .Height - 20.25 'なぜか-20.25 必要
      max_w = .Width
      .WindowState = xlNormal
      .Top = 1
      .Left = 1
      .Height = max_h
      '.Width = 300
      .Width = 140
      .Caption = "メイン"
    End With
    With .Windows(2)
      .Top = 1
      '.Left = 300
      .Left = 142
      .Height = max_h
      '.Width = max_w - 300
      .Width = max_w - 142
      .Caption = "サブ"
    End With
  End With
  Application.EnableEvents = True
End Sub
0 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 発言

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