VBA to unprotect sheets x 2, refresh data then protect sheets

Hi I have this code that will run when something entered into C3.

I can't get it to run properly as I get error saying the sheet it still locked
If I step through the code (F8) it works but not if I let it run
Your advice will be much appreciated!

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet

If Target.Address = "$C$3" Then

 For Each ws In ThisWorkbook.Worksheets
   ws.Unprotect Password:="xxx"
 Next ws

Application.Wait (Now + TimeValue("0:00:10"))

 Workbooks(ThisWorkbook.Name).RefreshAll
 
 
 For Each ws In ThisWorkbook.Worksheets
   ws.Protect Password:="xxx"
 Next ws

End If
End Sub

Yes it is
If I step through code it works - why wont it work if it is left to run

I thought that adding the 10sec delay will give whatever in background to work before refreshing data but it seems that not it

I need the RefreshAll line in as I want data to Refresh before protecting the sheet again

I unprotected sheet
Then commented out the unprotect / protect lines

.... it worked!

*scratching my head*

Instead of having a loop to unprotect how may I say like ...

Sheet(0).Unprotect password = xyx
Sheet(1).Unprotect password = xyx

THanks!

No you are right BOTH ways I get the same error

It's like the RefreshAll is running before the Sheets are unprotected .... weird!

Instead of Do Events I tried

If Application.Ready = True Then

continue to Protect sheets

But that didn't work either

I finally got it to work

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet
Dim lo As ListObject


If Target.Address = "$D$2" Then

Application.ScreenUpdating = False

 For Each ws In ThisWorkbook.Worksheets
   ws.Unprotect Password:="xx"

       For Each lo In ws.ListObjects
        lo.QueryTable.Refresh BackgroundQuery:=False
    Next lo

 Next ws
 End If

 For Each ws In ThisWorkbook.Worksheets
   ws.Protect Password:="xx"
 Next ws

Application.ScreenUpdating = True
End Sub

Love code .... sometimes!!