One place for your PW

In a sheet i have several macro's to lock or unlock a sheet/line/cell.

For example:

shp.Unprotect Password:="Secret"
LR = shp.Cells(Rows.Count, 2).End(xlUp).Row
LC = shp.Cells(5, Columns.Count).End(xlToLeft).Column
shp.ListObjects("PKB").Resize Range("$B$5", Cells(LR, LC))
shp.Protect Password:="Secret", UserInterFaceOnly:=True

Is there a way to place a PW somewhere and to call it. So when i want to change the PW there is one place to change it.