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

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

我正在添加我放在此工作簿中的代码，以禁用工作表上的大多数可见选项

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

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

---

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

Application.DisplayStatusBar = False

---

要单独隐藏缩放滑块，可以编辑注册表项

HKEY\U CURRENT\U USER\Software\Microsoft\Office\15.0\Excel\StatusBar

通过将

ZoomSlider

值设置为

0

无论如何，我认为即使使用

SaveSetting

，使用VBA也无法实现这一点

您可以尝试编写一个

.reg

文件来更改目标密钥并加载它。我不确定是否可以这样做，但即使它能工作，用户仍然需要在系统提示中单击“是”，以允许将密钥加载到注册表中

即使用户单击“是”以允许

.reg

文件加载和更改注册表项，Excel状态栏也不会刷新以显示/隐藏ZoomSlider，直到Excel重新启动

---

简而言之，使用VBA单独隐藏缩放滑块似乎无法实现。

尝试过，但滑块仍然出现。我试过右键点击工具栏（窗口中出现滑块的部分）。单击后，将打开一个框，缩放滑块旁边有一个勾号选项。取消选中时，滑块将消失。@ashishjain-您确定没有从其他应用程序中看到滑块吗。“我为我正在做的另一个项目测试了这个，效果很好。”斯科特。请参阅附加的屏幕截图。如果有可能的解决办法，请告诉我。谢谢