Bom dia Fernando!
Em primeiro lugar muito obrigado pela ajuda. Conheço muito pouco de vba e acredito que estou fazendo algo errado, o erro 1004 persiste. Fiz o seguinte caminho:
VBA > Esta Pasta de Trabalho > e inseri o código:
Sub protege()
ActiveSheet.Protect Password:="123", userinterfaceonly:=True
End Sub