Excel - Refresh data in locked worksheet

gistfile1.txt

'Refresh data in a protected worksheet
'Source: https://www.extendoffice.com/documents/excel/4379-excel-protect-sheet-but-allow-data-refresh.html
'Save workbook as .xlsm, hit Alt+F11, and paste the following code into the MODULES section of your workbook:

Sub DataRefresh()
    ActiveSheet.Unprotect
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2()
    If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
        Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
    Else
        ActiveSheet.Protect
    End If
End Sub