How to protect the worksheet using VBA and make sure the protected option is the same?

Question

Hi everyone,

I have a VBA code in my worksheet. The structure of my code is:

Sub Display_Chart()

    Application.ScreenUpdating = False
    With A