如何在不使用vba的情况下锁定Excel中的缩放

如何在不使用vba的情况下锁定Excel中的缩放,excel,locking,zooming,Excel,Locking,Zooming,我正在开发一个由多个用户使用的多个工作表组成的工作簿,我希望各个工作表的缩放被锁定(用户不应放大或缩小),有没有一种没有VBA的快速方法来实现这一点 如果VBA是唯一的解决方案,那么最简单的代码是什么 谢谢 Elie每次打开工作簿时,最好重置缩放因子。在任何编辑会话期间完全删除缩放功能可能会导致错误,如果用户能够放大工作表以验证某些内容,则可以避免这些错误。允许他们使用缩放功能,同时为其他用户重置每个工作表的缩放因子似乎是一种舒适的折衷方案 点击Alt+F11,当VBE打开时,查看左上角的项目资

我正在开发一个由多个用户使用的多个工作表组成的工作簿,我希望各个工作表的缩放被锁定(用户不应放大或缩小),有没有一种没有VBA的快速方法来实现这一点

如果VBA是唯一的解决方案,那么最简单的代码是什么

谢谢


Elie

每次打开工作簿时,最好重置缩放因子。在任何编辑会话期间完全删除缩放功能可能会导致错误,如果用户能够放大工作表以验证某些内容,则可以避免这些错误。允许他们使用缩放功能,同时为其他用户重置每个工作表的缩放因子似乎是一种舒适的折衷方案

点击Alt+F11,当VBE打开时,查看左上角的项目资源管理器。如果它不可用,可以使用View打开它► 项目资源管理器或Ctrl+R。双击此工作簿。这将在右侧打开一个新窗格,标题类似于Book.xlsm-ThisWorkbook(代码)。将以下内容粘贴到新窗格中

Private Sub Workbook_Open()
    Dim w As Long, ow As Long
    On Error GoTo Safe_Exit
    Application.ScreenUpdating = False
    ow = ActiveSheet.Index
    For w = 1 To Worksheets.Count
        Worksheets(w).Activate
        ActiveWindow.Zoom = 80
    Next w
    Worksheets(ow).Activate
Safe_Exit:
    Application.ScreenUpdating = True
End Sub
ActiveWindow.zoom=80
中调整缩放级别以适合您自己的用途。点击Alt+Q返回工作表

将单个工作表缩放级别更改为你认为残缺不全的东西。将工作簿另存为启用宏的工作簿(例如.XLSM)或Excel二进制工作簿(.XLSB)


重新打开工作簿时,所有单个工作簿的缩放级别都将重置为您注意到的级别。每个工作表的单独缩放设置可能都可以适应,但我认为使用单个缩放级别的循环最容易开始。

是专业和热心程序员的网站。如果您不想使用VBA进行此操作,那么这不是编程问题,也不是主题。为什么要使用
Excel VBA
标记针对VBA程序员询问他们如何不使用VBA?所以使用工作簿的先决条件是视力和你的一样好?如果你的老板有更好的视力,并希望它进一步缩小,然后锁定呢?你将如何完成你的工作?@HoboSapiens如果你一直读到最后,我没有取消VBA选项,所以这仍然是一个编程问题。然而,我的主要观点是找到一个有效的解决方案,无论是VBA还是普通Excelabove@lallouss999-缩放是一种易于访问的功能,不应从用户的“工具箱”中删除。如果您试图通过锁定缩放因子来隐藏视图中的某些内容,有比删除非常有用的功能更好的方法来实现这一点。