Как заблокировать все панели инструментов, включая контекстные меню, а также убрать почти все стандартные элементы Excel?

Для того, чтобы заблокировать все панели инструментов, включая собственные панели и контекстные меню, а также убрать заголовок окна книги, изменить заголовок окна приложения, убрать строку состояния, строку формул, сетку, заголовки столбцов, вертикальную и горизонтальную полосу прокрутки, а также ярлычки листов, достаточно выполнить макрос UserInterface() Для того, чтобы восстановить вид окна, по умолчанию, достаточно выполнить макрос RestoreInterface().

code: #vba
Private Sub ChangeInterface(Value As Boolean)
    With Application
         .ScreenUpdating = False
         .Caption = IIf(Value = True, Empty, "Наше окно")
         .DisplayStatusBar = Value
         .DisplayFormulaBar = Value
         Dim iCommandBar As CommandBar
         For Each iCommandBar In .CommandBars
             iCommandBar.Enabled = Value
         Next
         With .ActiveWindow
              .Caption = IIf(Value = True, .Parent.Name, "")
              .DisplayHeadings = Value
              .DisplayGridlines = Value
              .DisplayHorizontalScrollBar = Value
              .DisplayVerticalScrollBar = Value
              .DisplayWorkbookTabs = Value
         End With
         .ScreenUpdating = True
    End With
End Sub
 
Private Sub UserInterface()
    ChangeInterface False
End Sub
 
Private Sub RestoreInterface()
    ChangeInterface True
End Sub
Поделиться:

Похожие статьи: