excel - 如何通过Excel VBA禁用缩放 slider ？

Question

我希望禁用 Excel 工作表中的缩放 slider 。我环顾四周但找不到解决方案。有一些解决方案指向将缩放设置为定义的值，但它们都不能满足禁用缩放选项本身的需求。任何帮助将非常感激。

我正在添加放入 ThisWorkbook 中的代码，以禁用工作表上的大部分可见选项。

Private Sub Workbook_Activate()

Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Deactivate()
Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.ScreenUpdating = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
'Hide list of sheets
Call hide_sheets
Windows(1).WindowState = xlMaximized
ActiveWindow.DisplayGridlines = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.Zoom = 100


'Lock cells in the UI sheet
ThisWorkbook.Sheets("UI").ScrollArea = "A1:t46"

'Hide scroll bar
With ActiveWindow
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
End With

Application.ScreenUpdating = True    
welcomeScreen.Show 0

End Sub

我面临的问题的一些屏幕截图。我目前正在使用一些临时安排，通过在工作簿打开时加载最大化版本的用户表单。所以 slider 被隐藏了。

Answer 1

环顾四周后，似乎没有办法完全禁用缩放或特别禁用 slider 。如果您的主要任务是避免有人点击缩放 slider ，我可能会一起隐藏状态栏。

Application.DisplayStatusBar = False