Accessでリボンバーてめえは引っ込んでろ設定をVBAでやるぞい

1857 ワード
Microsoft365 VBA access Windows10 VBA テキストリンク

バージョン

Windows10 Pro バージョン1909 OSビルド18363.1198
Access for Microsoft 365 MSO（16.0.13328.20262）32ビット

リボンバーってどこやねん

ここやねん。

なんで非表示に？

  • ユーザーにとってはほぼほぼ不要だから。逆にリボンバーを表示しておくことで、ユーザーにシステムを改変されてしまう可能性が増える。（そもそもユーザーに勝手に変えられてしまう余地がある時点でAccessってどうなの？ってとこはあるんだけどね…はは…(´・ω・`)）
  • 画面を少しでも広く使える。

VBAそーす

非表示

DoCmd.ShowToolbar "Ribbon", acToolbarNo

表示

DoCmd.ShowToolbar "Ribbon", acToolbarYes

リボンバー非表示にするとこんな感じ

ウィンドウを重ねて表示する と フォームを開いた時に最大化 を組み合わせてます。
そこそこシンプルにできます。

蛇足

印刷用のレポートの場合は、リボンバー表示に切り替えた方がユーザーの使い勝手＆構築工数的はいいかなって思います。

いくら非表示にしたところで開発者モードでファイル開かれちゃったらどうしようもないね…(´・ω・`)

『構築の時はリボンバー出したい』ってことあるよね。
リボンバー出す為にいちいちファイル閉じて開発者モード開くの面倒って時あるよね。
そういう時はリリースノート的なフォーム or レポート用意しておいて、そこにリボンバー表示のVBAコード仕込んでおくのもアリかなと。（バックドア的なオブジェクト）