Tenta assim

Copie os codigos em um modulo e crie um botao na planilha

Sub Proteger()

Dim Senha As String

Senha = Range("C4").Value


Sheets("Plan1").Protect Senha

MsgBox "Planilha Bloqueada Com Sucesso!", vbOKOnly, "Obrigado..."

End Sub
Sub Desproteger()

Dim Senha As String


Senha = Range("C4").Value

 Sheets("Plan1").Unprotect Senha
 
 MsgBox "Planilha Desbloqueada Com Sucesso!", vbOKOnly, "Obrigado..."

End Sub

MPrudencio obrigado, funcionou.
Porém quando coloco uma senha errada, ele da erro e vai pro "depurador".
Não tem como colocar uma mensagem de erro, msgbox?
Se puder ajudar, grato!
Desculpe quaqluer coisa, ainda sou leigo em VBA.

Melhor que esse acho difícil...
Senha : LokoTec
Se quiser trocar a senha vá no vba e procure entre as aspas no modulo...
Espero ter ajudado!

Esse arquivo é o mesmo...
Com a adição de: Assim que fecha ele protege e salva automaticamente.

Muito obrigado Messiasmbm
Isso vai ajudar sim, vou adaptá-lo aqui...
Obrigado, forte abraço.