JPeres, segue um exemplo veiculado em vários Foruns na Net e com adaptações diversas, nela encrementei as funções de Proteger e Desproteger quando abrimos e saimos do aplicativo, a parte interessante desta, é que ao abrirmos o arquivo temos a Tela (UserForm) para o Login de Usuários e Administradores com Senhas, faça os testes e acredito que irá servir as suas necessidades e de outros que procuram por ajuda semelhante.

Na Tela de abertura temos dois Usuários cadastrados, um como Admin. e outro Usuário Comum.
Para se logar :

Login Administrador : DANIEL
Senha : 123
Selecione o CheckBox : "Entrar como admin."

e

Login Usuário Comum : RAFAEL
Senha : 123

Veja se ajuda.

[]s

Mauro

Muito Obrigado mesmo....... Eu usarei a sua e outra planilha aqui inclusive devido ao LOG.. hahaha

Porem preciso de algo bem simples.. para ser usado em determinadas planilhas (abas) a escolher em qual a macro irá funcionar.

A planilha (aba) esta protegida, no modo clássico (revisão>proteger planilha), porem para desproteger o usuário precisa clicar no ESC saindo da visualização de tela inteira.

1 -Precisaria de uma macro que ao executar ela iria desproteger podendo os campos serem preenchidos pela pessoa responsável.

2- Complementar o codigo abaixo, de forma que ao clicar, salvar o que fez e bloqueasse a planilha novamente.
(so um atento na hora de proteger a unica opção que podera ser usada e utilização de filtro e classificação).

Sub Salvar()
If MsgBox("Seus dados serão salvos, Obrigado") = 1 Then
ThisWorkbook.Close SaveChanges:=True
Application.Quit
End If

End Sub

Abraçosssssss

Alias....

Consegui a opção de bloquear e desbloquear a planilha, porem em nenhum momento ela pede uma senha...

Sub Desbloquear()
ActiveSheet.Unprotect
End Sub

Sub Bloquear()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub

Alguem pode dar uma ajuda?

Pessoal consegui.... para bloquear tinha que definir o campo senha... AFFFFFFFFFFFFFFFF
Da 0 pra mim!!! rsrsrs

Sub Desbloquear()
  ActiveSheet.Unprotect
End Sub

Sub Bloquear()
Senha = "123456"
ActiveSheet.Protect Password:=Senha, DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True
End Sub