如何通过excel vba禁用缩放滑块？

Question

我期待在Excel工作表中禁用缩放滑块。我环顾四周，但无法找到解决方案。有一些解决方案指向将缩放设置为定义的值，但没有一个迎合禁用缩放选项本身。 任何帮助将不胜感激。

我添加了放在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 

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

Answer 1

独自隐藏缩放滑块您可以通过编辑注册表键

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\StatusBar

这样做的ZoomSlider值无论如何设置为0

，我不认为这能即使在SaveSetting的情况下也可以使用VBA来实现。

您可以尝试编写.reg文件来更改目标密钥和VBA加载它。我不确定这是否可以完成，但即使它工作，用户仍然可以在系统提示中单击“是”，以允许将密钥加载到注册表中。

即使当用户单击是以允许.reg文件加载和更改注册表项时，Excel状态栏不会刷新以显示/隐藏ZoomSlider，直到Excel重新启动。

简而言之，使用VBA独自隐藏缩放滑块似乎并不可行。

Answer 2

似乎没有成为一个办法环顾四周后完全或专门禁用缩放滑块。如果你的主要任务是避免有人点击缩放滑块，我可能会一起隐藏状态栏。

Application.DisplayStatusBar = False