如果在保护工作表时想要启用缩放功能,可以使用以下代码示例:
Sub EnableZoom() ActiveSheet.Protect Password:="password", UserInterfaceOnly:=True ActiveSheet.EnableSelection = xlUnlockedCells End Sub
该代码将保护活动工作表,并将UserInterfaceOnly属性设置为True,以确保可以通过VBA代码访问保护的元素。然后,将EnableSelection属性设置为xlUnlockedCells,从而启用可以缩放的单元格。用户仍然无法编辑保护的单元格,但可以通过缩放调整单元格大小。
请注意,为提高安全性,密码应被替换为实际使用的密码。此外,该方法仅适用于Excel 2013及更高版本。