Unprotect the Excel workbooks in a specified path and refresh the workbook conection and then protect the workbooks

To elaborate(Unprotect the Excel workbooks in a specified path and refresh the workbook conection and then protec the workbooks)

I've a four workbooks in a specific path used by different users. I've used the power query to consolidate the workbooks with my Mastersheet using Data--> Refreshall. Some of the internal team issues I'm in a situation of protecting the workbooks.

After the initiation, the mastersheet won't get refreshed it indicates '[DataFormat.Error] File contains corrupted data.'. When i'm unprotecting the workbook, it worked properly.

So, please help me with this.

Option Explicit
Sub Unlock_Refresh()

    Dim wb As Workbook, ws As Worksheet
    Dim Filepath As String, Filename As String
    Dim n As Long
    
    Const pass = "1519"
    Filepath = Worksheets("Sheet2").Range("A1").Value
    If Right(Filepath, 1) <> "\" Then Filepath = Filepath & "\"
    
    Filename = Dir(Filepath & "*.xls*")
    Application.ScreenUpdating = False
    Do While Filename <> ""
        
        Set wb = Workbooks.Open(Filepath & Filename, Password:=pass)
        With wb
            .Unprotect Password:=pass
            .RefreshAll
            Application.Wait Now + TimeValue("00:00:10")
            .Protect Password:=pass
            .Close savechanges:=True
        End With
        n = n + 1
        Filename = Dir

    Loop
    Application.ScreenUpdating = True
    MsgBox n & " workbooks refreshed in " & vbLf & Filepath, vbInformation    
End Sub