Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6783 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43164】メニューバー&タイトルﾊﾞｰを非表示に... ＫＡＭＵ 06/10/4(水) 9:36 質問[未読]
【43165】Re:メニューバー&タイトルﾊﾞｰを非表示... Jaka 06/10/4(水) 11:16 発言[未読]
【43164】メニューバー&タイトルﾊﾞｰを非表示に...
質問  ＫＡＭＵ  - 06/10/4(水) 9:36 -
引用なし
パスワード
   エクセルのメニューバーやタイトルバー(上のファイル名表示してる個所)を
消そうと思い、マクロを組んだのですが、その時に全画面表示にてタイトルバーを
非表示にすると、消したはずのメニューバーが再表示されてしまいます。
タイトルバー及びメニューバーは同時に非表示にできないのですか。
　この目的としては、エクセルを終了する方法をオブジェクトで設定した
「end」ボタンのみとしたい為です。そうした場合、タイトルバーの「×」や最小化をするボタンを無効にする方法がありましたら教えていただきたいと思います。
よろしくお願いいたします。
【43165】Re:メニューバー&タイトルﾊﾞｰを非表...
発言  Jaka  - 06/10/4(水) 11:16 -
引用なし
パスワード
   こういうのじゃダメ？
APIとか他これ以上解りません。

Sub 自作メニューバー()
　　Application.DisplayFullScreen = True
　　Application.MenuBars.Add ("MenuTest")
　　MenuBars("MenuTest").Menus.Add ("自作メニューバー")
　　MenuBars("MenuTest").Menus("自作メニューバー").MenuItems.Add Caption:="メニューバー消去(&T)", OnAction:="メニューバー消去"
　　MenuBars("MenuTest").Activate
　　Application.CommandBars.DisableCustomize = True
End Sub

Sub メニューバー消去()
　　On Error Resume Next
　　Application.MenuBars("MenuTest").Delete
　　Application.CommandBars.DisableCustomize = False
　　Application.DisplayFullScreen = False
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6783 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free