Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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

Обработчика ошибок нет.