Обновление и защита данных макросов Excel

Question

В макросе Excel мне нужно снять защиту с листа, обновить данные, а затем защитить лист. Следующие работы:

Dim rs As Worksheet 
For Each rs In Worksheets 
    rs.Unprotect Password:="SomePassword" 
Next rs 
ActiveWorkbook.RefreshAll 

Это не:

Dim rs As Worksheet 
For Each rs In Worksheets 
    rs.Unprotect Password:="SomePassword" 
Next rs 
ActiveWorkbook.RefreshAll 
For Each rs In Worksheets 
    rs.Protect Password:="SomePassword" 
Next rs 

Выдает следующую ошибку:

The cell or chart you are trying to change is protected and therefore read-only.

Я пробовал много способов, чтобы задержать продолжающуюся макросы до обновления закончен, но ничего не сработало. Я просмотрел методы на этом форуме и не нашел ничего такого. Что будет работать?

Answer 1

Попробуйте один из следующих действий:

1. Добавить DoEvents после ActiveWorkbook.RefreshAll. Как это:

   Dim rs As Worksheet 
   For Each rs In Worksheets 
       rs.Unprotect Password:="SomePassword" 
   Next rs 
   ActiveWorkbook.RefreshAll: DoEvents 
   For Each rs In Worksheets 
       rs.Protect Password:="SomePassword" 
   Next 
   

2. Set UserInterfaceOnly аргумент верно при защите книги. Что-то вроде:

   rs.Protect Password:="SomePassword", UserInterfaceOnly:=True 
   

Answer 2

я получаю то же сообщение об ошибке со следующими подразделами, я не заметил, что сообщение об ошибке относится к рабочим листам, содержащим сводные таблицы:

Private Sub Refresh() 
Dim wks As Worksheet 
For Each wks In ThisWorkbook.Worksheets 
    wks.Unprotect 
Next wks 
ThisWorkbook.RefreshAll: DoEvents 
For Each wks In ThisWorkbook.Worksheets 
    wks.Protect UserInterfaceOnly:=True 
Next wks 
End Sub