業務アプリの場合は、リボンを消したい事も多いと思います。"SHOW.TOOLBAR(""Ribbon"",True)"しかし、まだExcel2003以前が混在している環境の場合、Excel2003以前では、上記コードを実行しても何も起こりません。Falseでも良いです。IfNextツールバーの再表示は、どのツールバーを表示するかが問題となります。全てのツールバーが表示されてしまいます。上記で消したツールバーを、どこかに保存しておく必要があります。Sub表示する場合は、FalseをTrueに変更したプロシージャーを作成するか、引数でTrue,Falseを渡すようにして下さい。リボンを非表示、2003以前ならメニューを非表示このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。