Excel VBA質問箱 IV

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

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


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

60938 / 76732

←次へ　｜　前へ→


	【20421】Re:×ボタンを使用不可⇒使用可にしたい

AKIRA - 04/12/8(水) 15:44 -


	引用なし

	パスワード

▼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

0 hits

▼

【20415】×ボタンを使用不可⇒使用可にしたい AKIRA 04/12/8(水) 14:21