Excel remove password multiple files on network

I need to remove the workbook open password (which is the same) to multiple files on our network.  I found a code dated back in 2014 by Graham Mayor; however, I am unable to hide or set automatic update all links.  I tried many UpdateLink= or := options to no prevail.

Please help

Thanks 

Here is the code G. Mayor posted

Sub RemovePasswords()

Dim xlBook As Workbook

Dim strFilename As String

Const fPath As String = "C:\Path"        'The folder to process, must end with ""

Const strPassword As String = "openpassword"        'case sensitive

Const strEditPassword As String = "editpassword" 'If no password use ""

    strFilename = Dir$(fPath & "*.xls") 'will open xls & xlsx etc

    While Len(strFilename) <> 0

        Application.DisplayAlerts = False

        Set xlBook = Workbooks.Open(Filename:=fPath & strFilename, _

                                    Password:=strPassword, _

                                    WriteResPassword:=strEditPassword)

        xlBook.SaveAs Filename:=fPath & strFilename, _

                      Password:="", _

                      WriteResPassword:="", _

                      CreateBackup:=True

        xlBook.Close 0

        Application.DisplayAlerts = True

        strFilename = Dir$()

    Wend

End Sub