Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data Entry (B)")
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
Dim BkMkRng As Range
objWord.Visible = True
objWord.Documents.Open "C:\Users\" & Environ("username") & "\Desktop\xxx\xxxN"
objWord.ActiveDocument.Unprotect Password:="xxx"
With objWord.ActiveDocument



.FormFields("pr1").Range.Text = ws.Range("C28").Value

 If .Bookmarks.Exists(StrBkMk) Then
    Set BkMkRng = .Bookmarks(StrBkMk).Range
    BkMkRng.Text = StrTxt
    .Bookmarks.Add StrBkMk, BkMkRng
    End If
  .Fields.Update


objWord.ActiveDocument.Protect Password:="xxx", NoReset:=False, Type:=wdAllowOnlyFormFields
End With

Set objWord = Nothing
End Sub