I have this code to change the "Normal" style font. When a document that has the "recommend Read Only" it still open as read even though "ReadOnly:=False". I cannot figure this out. Any help appreciated.

Sub UpdateNormal()
 Dim strPassword As String
 strPassword = ""
 Application.ScreenUpdating = False
 Dim strFolder As String, strFile As String
 Dim SBar As Boolean, wdDoc As Document
 SBar = Application.DisplayStatusBar
 Application.DisplayStatusBar = True
 strFolder = GetFolder
 If strFolder = "" Then Exit Sub
 strFile = Dir(strFolder & "\*.docx", vbNormal)
 While strFile <> ""
   Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, ReadOnly:=False, _
     AddToRecentFiles:=False, Visible:=True)
   StatusBar = "Processing: " & strFile
   With wdDoc
     
     If wdDoc.ProtectionType <> wdNoProtection Then
     wdDoc.Unprotect Password:=strPassword
     End If
     If .AttachedTemplate.Name = "Normal.dot" Then
       .UpdateStylesOnOpen = True
       .UpdateStylesOnOpen = False
     End If
     
     
     With wdDoc.Styles("Normal").Font
        .NameFarEast = "+Body Asian"
        .NameAscii = "Arial"
        .NameOther = "Arial"
        .Name = "Arial"
        .Size = 11
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Scaling = 100
        .Kerning = 0
        .Animation = wdAnimationNone
        .DisableCharacterSpaceGrid = False
        .EmphasisMark = wdEmphasisMarkNone
        .Ligatures = wdLigaturesNone
        .NumberSpacing = wdNumberSpacingDefault
        .NumberForm = wdNumberFormDefault
        .StylisticSet = wdStylisticSetDefault
        .ContextualAlternates = 0
    End With
    
     
     Application.ActiveDocument.Protect wdAllowOnlyReading, Password:=strPassword
     With wdDoc
     .Save
     .Close
   End With
   End With
   strFile = Dir()
 Wend
 Set wdDoc = Nothing
 Application.DisplayStatusBar = SBar
 Application.ScreenUpdating = True
 
 End Sub
 
Function GetFolder() As String
 Dim oFolder As Object
 GetFolder = ""
 Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
 If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
 Set oFolder = Nothing
 End Function