Excel VBA質問箱 IV

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

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


6781 / 13644 ツリー ←次へ | 前へ→

【43164】メニューバー&タイトルバーを非表示に... KAMU 06/10/4(水) 9:36 質問[未読]
【43165】Re:メニューバー&タイトルバーを非表示... Jaka 06/10/4(水) 11:16 発言[未読]

【43164】メニューバー&タイトルバーを非表示に...
質問  KAMU  - 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

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