| |
▼IROC さん：
>>全画面表示を元に戻せばいいと思うんですけど。
>そうですね。解釈を間違えてました。
説明不足ですみません。
ブックを開いた時エクセル自体の最小化、元に戻す、×は表示させており、×のみ使用不可にしてあります。
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
'wFlagsに指定する値の定義
Public Const MF_BYCOMMAND = &H0&
'nPositionに指定する値の定義
Public Const SC_CLOSE = &HF060
Public Const SC_MAXIMIZE = &HF030
Public Const SC_MINIMIZE = &HF020
Public Const SC_RESTORE = &HF120
Sub Auto_Open()
Dim lnghWnd As Long
Dim lngRet As Long
Dim lngWk As Long
lngWk = FindWindow("XLMAIN", Application.Caption)
lnghWnd = GetSystemMenu(lngWk, 0) 'メニューのハンドルを取得
lngRet = RemoveMenu(lnghWnd, SC_CLOSE, MF_BYCOMMAND) ' 閉じるボタン
If lngRet = 0 Then Exit Sub '戻り値が 0 の場合はエラー
lngRet = DrawMenuBar(lnghWnd) 'メニューバーを再描画
Application.WindowState = xlMaximized '最大化処理
With ActiveWindow
.DisplayHorizontalScrollBar = False '水平スクロールバーを消す
.DisplayVerticalScrollBar = False '垂直スクロールバーを消す
.DisplayWorkbookTabs = False 'シート見出しを消す
.DisplayGridlines = False '枠線を消す
.DisplayHeadings = False '行列番号を消す
End With
Toolbars(1).Visible = False '標準ツールバーを消す
Toolbars(2).Visible = False '書式設定ツールバーを消す
Toolbars(5).Visible = False '図形を消す
Toolbars(7).Visible = False 'フォームを消す
Toolbars(9).Visible = False 'ＶＢを消す
Application.DisplayFormulaBar = False '数式バーを消す
Application.DisplayStatusBar = False 'ステータスバーを消す
Application.CommandBars("Worksheet Menu Bar").Enabled = False 'ﾜｰｸｼｰﾄﾒﾆｭｰﾊﾞｰを消す。
ActiveWindow.Zoom = 100
End Sub
Sub 終了処理()
With ActiveWindow
.DisplayHorizontalScrollBar = True '水平スクロールバーを表示
.DisplayVerticalScrollBar = True '垂直スクロールバーを表示
.DisplayWorkbookTabs = True 'シート見出しを表示
.DisplayGridlines = True '枠線を表示
.DisplayHeadings = True '行列番号を表示
End With
Toolbars(1).Visible = True '標準ツールバーを表示
Toolbars(2).Visible = True '書式を表示
Toolbars(5).Visible = True '図形を表示
Toolbars(7).Visible = False 'フォームを消す
Toolbars(9).Visible = False 'ＶＢを消す
Application.DisplayFormulaBar = True '数式バーを表示
Application.DisplayStatusBar = True 'ステータスバーを表示
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'ﾜｰｸｼｰﾄﾒﾆｭｰﾊﾞｰを表示
Application.DisplayAlerts = False '閉じる際に確認メッセージを出さない
ActiveWorkbook.Close 'このブックを終了する
End Sub
Sub エクセル終了()
With ActiveWindow
.DisplayHorizontalScrollBar = True '水平スクロールバーを表示
.DisplayVerticalScrollBar = True '垂直スクロールバーを表示
.DisplayWorkbookTabs = True 'シート見出しを表示
.DisplayGridlines = True '枠線を表示
.DisplayHeadings = True '行列番号を表示
End With
Toolbars(1).Visible = True '標準ツールバーを表示
Toolbars(2).Visible = True '書式を表示
Toolbars(5).Visible = True '図形を表示
Toolbars(7).Visible = False 'フォームを消す
Toolbars(9).Visible = False 'ＶＢを消す
Application.DisplayFormulaBar = True '数式バーを表示
Application.DisplayStatusBar = True 'ステータスバーを表示
Application.CommandBars("Worksheet Menu Bar").Enabled = True 'ﾜｰｸｼｰﾄﾒﾆｭｰﾊﾞｰを表示
Application.DisplayAlerts = False '閉じる際に確認メッセージを出さない
Application.Quit 'アプリケーション(エクセル)を終了する
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
