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