Разблокировать листы через VBA

Question

У меня есть Excel с большим количеством формул, и он передается руководящей команде. Естественно, я заблокировал две сводные страницы, чтобы предотвратить случайное удаление формул, но в некоторых системах файл работает медленно. Я добавил VBA для преобразования всех формул в значения (вставлено ниже), однако он попадает в стену на заблокированных листах.

Как получить один макрос, который бы разблокировал листы 1 и 2 и преобразовал бы все в значения? (Лист1 называется "Сводка", Лист2 - "Детали")

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

Спасибо!