| |
|
|
| | Раньше так было
Set cbar = CommandBars("Menu Bar")
cbar.Enabled = False
А теперь ничего не берет его. И 'Ribbon" тоже.
Помогите кто чем может. | |
| |
| |
| |
|
|
| | http://msdn.microsoft.com/en-us/library/bb258192.aspx | |
| |
| |
|
|
| |
|
|
| | По мотивам, кому лень руками делать, скопировать и выполнить один раз:
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
|
Обработчика ошибок нет.  | |
| |
| |
| |
|
|
| | да, действительно работает!
только с включенной защитой от шифт при каждом открытии нужно скрывать ее занова! | |
| |
| |
| |
|
|
| | А так не проще? 
DoCmd.ShowToolbar "Ribbon", acToolbarNo
|
| |
| |
| |
