Полностью удалять заголовки панелей и ячеек Excel

Question

Я разработал инструмент с использованием многих элементов управления activex, который теперь полностью работает. Просто, чтобы закончить его и сделать его немного чище, я хочу иметь возможность полностью удалить заголовки панели инструментов и столбцов и строк. Вот что мой Sub Auto_Open() выглядит следующим образом:

Sub Auto_Open() 

Application.DisplayStatusBar = Not Application.DisplayStatusBar 
ActiveWindow.DisplayWorkbookTabs = True 

On Error Resume Next 
Sheets("UserInput").Activate 
Range("A1").Select 
With Application 
    .WindowState = xlNormal 
    .Left = 300 
    .Top = 50 
    .Width = 800 
    .Height = 670 
    .CommandBars("Worksheet Menu Bar").Enabled = False 
    .CommandBars("Ribbon").Visible = False 
End With 

End Sub 

Вот скриншот того, что это выглядит так:

Я в основном просто хочу избавиться от всего, что это не на листе, или, если не в максимально возможной степени. Кто-нибудь знает, как это сделать? Благодарю.

Answer 1

Вы могли бы использовать:

application.DisplayFullScreen = True 
activewindow.DisplayHeadings = False 

FYI, элементы управления ActiveX на листах, как известно, отслаиваться. Контроль формы будет лучше, если вы должны поставить элементы управления на листе.