Excel macro trying to make changes after macro is finished and worksheet is locked

I've been protecting a Excel document from being edited since users keep breaking it.
While this excel document shouldn't be able to be broken this easily in the first place; it is outside my scope to fix it. I am just here to provide a temporary solution.

The issue
When users execute the refresh macro it locks the worksheet to fast; in turn it gives a the error that it can't make changes since the cell or chart is protected.
Strange thing is that the module for locking the sheet only gets executed at the end.
Anyone knows why this is happening?

My Code

Sub Verversen()
'
' Verversen Macro
'
Call Module11.unlockcells
    Range("J12").Select
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Worksheets("Batch Checker").ListObjects("AllStockSQL").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("Batch Checker").ListObjects("AllStockSQL").Sort. _
        SortFields.Add Key:=Range("AllStockSQL[[#Headers],[#Data],[Batch]]"), SortOn _
        :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Batch Checker").ListObjects("AllStockSQL").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'Call Module12.Refresh_All_Data_Connections
'   Range("G31").Select
    ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
    ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
'   ActiveWorkbook.RefreshAll
Call Module9.lockcells
End Sub

Module 9

Public Sub lockcells()

Worksheets("Batch Checker").Range("F4:N200").Locked = True
ActiveSheet.Protect Password:="temp", UserInterfaceOnly:=True, AllowUsingPivotTables:=True


End Sub

Module 11

Public Sub unlockcells()

ActiveSheet.UNprotect Password:="temp"
Worksheets("Batch Checker").Range("F4:N200").Locked = False

End Sub

I've tried putting in a wait timer;
I've turned off the background refresh except option Refresh this connection on Refresh All;
I've tried to put DoEvent before;
I've tried creating different modules which I'd call in
Nothing works, possibly I am overlooking something simple as I am quite a novice in VBA.

Solution was given by Emilio Silva.

In the lock module before it locks I put Application.CalculateFull and Application.CalculateUntilAsyncQueriesDone.

Module 9

Public Sub lockcells()
    Application.CalculateFull
    Application.CalculateUntilAsyncQueriesDone
    Worksheets("Batch Checker").Range("A4:N200").Locked = True
    Worksheets("Batch Checker").Protect Password:="REDacted", UserInterfaceOnly:=True, AllowUsingPivotTables:=True
End Sub