Unprotecting multiple files in folder in a sub

Hello I need to unprotect (no password) about 200 files in a folder before I can run the script below (which allows me to Find and Replace in all those files)
Any idea on how I can incorporate "unprotect" each file in my script??? Or even a separate script is fine. The only things I can find are for password protected files and its not working for me.

Capture.JPG

Thanks!

##########################
Sub ReplaceInFolder()
Dim strPath As String
Dim strFile As String
Dim wbk As Workbook
Dim wsh As Worksheet
Dim strFind As String
Dim strReplace As String
strFind = InputBox("Enter Text to Find")

If strFind = "" Then
MsgBox "No find text specified!", vbExclamation
Exit Sub
End If
strReplace = InputBox("Enter Text to Replace")

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then
strPath = .SelectedItems(1)
Else
MsgBox "No folder selected!", vbExclamation
Exit Sub
End If
End With
If Right(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
Application.ScreenUpdating = False
strFile = Dir(strPath & "*.xls*")
Do While strFile <> ""
Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False)
For Each wsh In wbk.Worksheets
wsh.Cells.Replace What:=strFind, Replacement:=strReplace, _
LookAt:=xlWhole, MatchCase:=False
Next wsh
wbk.Close SaveChanges:=True
strFile = Dir
Loop
Application.ScreenUpdating = True
End Sub

################################

Worked like a charm! Thx!