Olá Sidnei, tudo bem? Espero que sim!
É possível definir uma senha, basta escrever na frente dos métodos Protect e Unprotect a cláusula Password:="senha"
As aspas duplas são necessárias e no lugar da palavra senha você pode colocar a que desejar.
Portanto, as partes do código com modificação seriam:
ActiveSheet.Unprotect Password:="senha"
ActiveSheet.Protect Password:="senha"
A senha deve ser a mesma para os dois para que seja possível. Mas tenha em mente que caso alguma pessoa entre no ambiente VBA, vai conseguir visualizar a senha através do código.
Espero que tenha tirado sua dúvida.
Estou à disposição. Bons estudos!