Long time lurker/first time poster here, seeking some help.

I believe that Excel 2016 updated last week (7-14-16 time frame) on my Windows 10 machine. I have had a workbook that I have used for the last few years that has been ever evolving, with a couple of re-writes and structure changes. But within that coding, I have always used some simple code to Unprotect/Protect worksheets and to select worksheets in a template for printing to PDF. Now all of a sudden that coding doesn't work anymore. I don't know if the update changed a setting or just what is going on, but I need help to get this working again. I have a workaround in place right now, but it is frustrating for the workbook to not function properly, so any help you guys can provide would be awesome! See the code below:

This code works to Unprotect the main workbook without issue:
'Names Dbook as the main information workbook
Dbook = ActiveWorkbook.Name

With Application.Workbooks(Dbook)
For Each wSheet In Worksheets
wSheet.Unprotect Password:="XXXX"
Next
End With

This code works to Unprotect the template file:
Rbook = ActiveWorkbook.Name

With Application.Workbooks(Rbook)
For Each wSheet In Worksheets
wSheet.Unprotect Password:="XXXX"
Next
End With

But when the macro has to execute the following code, it does not Protect the workbooks and will not select the sheets within the template for printing to PDF:
'Protect each sheet in the user file.
With Application.Workbooks(Dbook)
For Each wSheet In Worksheets
wSheet.Protect Password:="XXXX"
Next
End With

'Protect each sheet in the template.
With Application.Workbooks(Rbook)
For Each wSheet In Worksheets
wSheet.Protect Password:="XXXX"
Next
.Sheets("Copied").Visible = False
End With

'Print proposal.
If MsgBox("Would you like to generate the proposal in Adobe PDF format or would you like to view the results first?" & vbCr & "Click Yes to generate to PDF or No to view the results.", vbYesNo) = vbYes Then
For Each sht In Worksheets
If sht.Visible = True Then sht.Select False
Next
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Adobe PDF"
ActiveWorkbook.Close (0)
Else
Application.ScreenUpdating = False
Workbooks(Rbook).Sheets("Title Page").Select
End If

If I have posted something incorrectly, let me know. Again, thanks in advance for any help that may be provided!