Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas По мотивам, кому лень руками делать, скопировать и выполнить один раз:
Public Sub HideRibbon() Dim prpNew As Property With CurrentDb .Execute ("CREATE TABLE USysRibbons (RibbonName TEXT (15), RibbonXML MEMO);") .Execute ("INSERT INTO USysRibbons ( RibbonName, RibbonXML ) VALUES ('HideTheRibbon', '<customUI xmlns=" & Chr(34) & "http://schemas.microsoft.com/office/2006/01/customui" & Chr(34) & "><ribbon startFromScratch=" & Chr(34) & "true" & Chr(34) & "></ribbon></customUI>');") Set prpNew = .CreateProperty("CustomRibbonID", dbText, "HideTheRibbon") .Properties.Append prpNew End With MsgBox "Нужна перезагрузка", vbInformation, "Kill Ribbon нах" Quit End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.