|
こんにちは よろしくお願いいたします
メニュー/ウインドウ/新しいウインドウを開く
メニュー/ウインドウ/整列/左右に並べて表示
hoge.xls:1,hoge.xls:2
のようにしているとき
ブックの×ボタンで閉じられないようにしたいと思っていますが
上記に相当するイベントは無いようです
(複数ウインドウ時 hoge.xls:1,hoge.xls:2 の場合の、1方を閉じるときです)
どうすれば出来るでしょうか
アドバイスよろしくお願いします
取りあえずのコードは下記のようになっています
ThisWorkbookモジュール
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bk_close Then
ActiveWindow.WindowState = xlMaximized
MsgBox "閉じる"
Cancel = False
Else
MsgBox "×ボタン使用不可"
Cancel = True
End If
End Sub
Private Sub Workbook_Open()
bk_close = True
test1
End Sub
---------------------------------------------------------------
標準モジュール
Option Explicit
Public bk_close As Boolean
Public Sub test1()
Dim max_h As Double
Dim max_w As Double
Dim count_window As Integer
ActiveWindow.WindowState = xlMaximized
max_h = ActiveWindow.Height - 20.25 'なぜか-20.25 必要
max_w = ActiveWindow.Width
'count_window = Application.Windows.Count
ActiveWindow.Caption = "メイン"
Windows("メイン").Activate
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = max_h
'.Width = 300
.Width = 140
End With
ActiveWindow.NewWindow.Caption = "サブ"
Windows("サブ").Activate
With ActiveWindow
.WindowState = xlNormal
.Top = 1
'.Left = 300
.Left = 142
.Height = max_h
'.Width = max_w - 300
.Width = max_w - 142
End With
End Sub
|
|