Hi Everyone,

I am not sure what is wrong with these code but workbook does not ask for password when i open. Please see below

Any help will be appreciated 




With New_Wkbk
    New_Wkbk.SaveAs rCell_Summary.Value & " " & Format(Date, "mmmm yyyy")
    Application.DisplayAlerts = False
    Set thisWb = ActiveWorkbook
    With thisWb
    ActiveWorkbook.Protect Password:="SSC", Structure:=True, Windows:=False
            ActiveWorkbook.SaveAs fileName:=thisWb.Path
    ActiveWorkbook.Close savechanges:=False
    End With
        Application.DisplayAlerts = True