2

Как избавиться от меню ФАЙЛ в MS Access 2013

Posted by admin on 16.04.2014 in Office 2013 |

MS Access 2013Проблема. В среде MS Access сделана программа (.MDB) со своим  интерфейсом. Там свои кнопки, и на экране не нужны ни меню, ни что-то еще лишнее от среды Access. Чтобы избавиться от строки меню Access, создано пользовательское пустое меню и оно задано в качестве меню по умолчанию. Все было нормально в версиях Access 97, 2000, 2003 (в режиме 2000). В связи с репрессиями MS относительно устаревших систем Windows XP/Office 2003, захотелось запускать эту же программу под управлением Access 2013. Но в Access 2013 на экране остается бессмысленно занятым пространство под две широкие полосы с меню ФАЙЛ (интерфейс Backstage), аватаркой, именем текущего пользователя и панель быстрого доступа (на скриншоте область выделена голубым). На самом деле меню быстрого доступа можно встроить в строку заголовка и убрать из него все пункты, но оно все равно остается, и пользователь может сам его снова наполнить, а это совершенно ни к чему. Вопрос: “Как избавиться от меню ФАЙЛ (представление Backstage) и от меню быстрого доступа, причем, желательно только для текущей БД, т.е программно или настройками именно этой программы.”

Долго искал ответ, но так и не найдя его написал в техподдержку микрософт: russia@microsoft.com. В ответ получил, буквально, следующее:

Меню «Файл» является частью интерфейса продукта, убрать его стандартными способами нельзя. Однако, возможно, существуют сторонние программы и надстройки, которые Вам смогут помочь это сделать. Я не могу советовать Вам эти сторонние компоненты, но Вы можете уточнить данный вопрос на нашем техническом форуме, где наши специалисты, возможно, смогут посоветовать Вам сторонние способы решения вопроса.

C уважением, Шнидров Пётр.

Так бы и дал бы в морду за такой “ответ”, но руки коротки.

Естественно я писал на оба эти форума (technet.microsoft.com и answers.microsoft.com), но не получил ни одного ответа. А решается все достаточно просто, причем, штатными средствами. Плохо, что техподдержка МС об этом не знает. За что мы только им платим…

1. В текст программы, например, в процедуру “Load” первой загружаемой формы добавляем одну единственную строку:

DoCmd.ShowToolbar "Ribbon", acToolbarNo

2. Но тут есть ВАЖНЫЙ нюанс. Как ни странно, но для того, чтобы этот код работал, т.е. выключал ленту, она обязательно должна быть включена в настройках: ФАЙЛ — Параметры — Текущая база данных — раздел «Параметры ленты и панелей инструментов» — флажок «Встроенные панели инструментов». Если этот флажок сброшен, то код из первого пункта работать НЕ будет.

Параметры Access 2013

Прежде чем писать в техподдержку и форумы, я еще обратился за помощью к нашему “персональному” техническому консультанту Игорю Стенину, который приезжал знакомиться вместе с нашим персональным менеджером. При встрече Игорь сказал, что к нему можно обращаться по любым техническим вопросам. Так он вообще, прикрывая некомпетентность, прикинулся религиозным фанатиком: “Я правильно понял, Вы хотите избавиться от того, что является основой идеологии?”

На самом деле, я добавил себе в код программы не одну строку, а несколько:

   'Для 2010/2013 отключаем Ленту и меню ФАЙЛ
   Dim vrs As Double: vrs = Val(Application.Version)
   If vrs >= 14 Then
       DoCmd.ShowToolbar "Ribbon", acToolbarNo
   End If

 

Метки:

2 Comments

  • Сергей:

    Не то что благодарен, а просто прыгаю от счастья. Спасибо за статью.

  • Kraysh:

    Код работает, скрыл ленту и меня файл, только вот проблема, как вернуть все обратно, комбинации клавиш и контекстное меню не работает…

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Copyright © 2011-2017 Сисадминские будни All rights reserved.
Любое воспроизведение материалов сайта возможно только с активной ссылкой на admsoft.ru.