![通过 VBA 解锁工作表](https://linux22.com/image/1583530/%E9%80%9A%E8%BF%87%20VBA%20%E8%A7%A3%E9%94%81%E5%B7%A5%E4%BD%9C%E8%A1%A8.png)
我有一个 Excel,里面有很多公式在运行,它被发送给执行团队。当然,我锁定了两个摘要页面,以防止公式被意外删除,但在某些系统上,文件很慢。我添加了一个 VBA 来将所有公式转换为值(粘贴在下面),但它在锁定的工作表上遇到了障碍。
我怎样才能使用一个宏来解锁 Sheet1 和 Sheet2 并将其全部转换为值?(Sheet1 名为“Summary”,Sheet2 名为“Details”)
Sub AllValues()
Dim wSh As Worksheet
For Each wSh In ActiveWorkbook.Worksheets
With wSh.UsedRange
.Copy
.PasteSpecial xlPasteValues
End With
Next wSh
Application.CutCopyMode = False
End Sub
谢谢你!