VBA disable / Enable ReadOnly

Jeg har en mappe med en række excelfiler, og fælles for dem er, at jeg benytter følgende kode til at opdatere dem alle :

Sub LoopThroughFolder()
    Dim folderPath As String
    Dim filename As String
    Dim WB As Workbook
    'Change path to suit
    folderPath = "W:\Product Masters\Product statistics salesmarked\2016\"
   
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"
   
    filename = Dir(folderPath & "*.xlsx")
    Do While filename <> ""
        Set WB = Workbooks.Open(folderPath & filename)
       
        'Call a subroutine here to operate on the just-opened workbook
        ActiveWorkbook.RefreshAll
       
            ActiveWorkbook.Close savechanges:=True
       
        filename = Dir
    Loop
   
End Sub

Jeg ønsker at koden starter med at fjerne ReadOnly på filen inden opdateringen foretages, og tilsvarende sætter den til inden filen likes igen

Kan ikke lige finde noget kode som virker efter hensigteh :-(