Number Sequence

Hi,
Is there anyway to remove this part of the code?

ActiveSheet.Unprotect Password:="Password"

and
This one:

ActiveSheet.Protect Password:="Password"

and still work the sequence number auto in Column A when you enter something in column B.
I try to removed it but the sequence number stop working.

I want to set the password by unlocking the worksheet then be able to select or click the “format cells” and “select unlock cells” instead the password in being set with the vba code.

See attachment. The password is "Password"

Thanks.