Заблокировать все панели инструментов, включая контекстные меню, а также убрать почти все стандартные элементы Excel — Visual Basic(Бейсик)

disel

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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

Похожие записи/страницы:

Leave a Comment