Make a Cell read only

r/sir
i am insert a vba macro code to make a cell read only than i am click on the button the calls was make a read only than second time i am click on the this button the the error was generate this vba macro code only make a cells read only please edit this vba code to remove the cells read only