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     'VBを消す
    
    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    'VBを消す

    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    'VBを消す

    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 質問
【20417】Re:×ボタンを使用不可⇒使用可にしたい IROC 04/12/8(水) 14:35 回答
【20418】Re:×ボタンを使用不可⇒使用可にしたい Jaka 04/12/8(水) 14:41 発言
【20419】Re:×ボタンを使用不可⇒使用可にしたい IROC 04/12/8(水) 14:44 回答
【20421】Re:×ボタンを使用不可⇒使用可にしたい AKIRA 04/12/8(水) 15:44 お礼
【20429】Re:×ボタンを使用不可⇒使用可にしたい [名前なし] 04/12/9(木) 0:05 回答

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