通过 VBA 解锁工作表

Question

我有一个 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

谢谢你！