Proteger e Desproteger Planilhas/Protect and Unprotect spreadsheets - Excel/Macro para Iniciantes

Olá pessoal!

Gostaria de compartilhar um pouco do conhecimento que aprendi com o Excel (mesmo sem ter um curso avançado de VBA), quero mostrar que é possível (de uma forma simples e sem chatice) para qualquer um criar uma macro.

No vídeo estou mostrando como:

1 - Criar uma macro para proteger uma planilha com a senha TESTE;
2 - Criar uma macro para desproteger uma planilha com o usuário que definir que poderá desproteger a planilha na VBA com a senha TESTE;
3 - Criar teclas de atalhos para as macros.

Abaixo seguem os comandos utilizados no VBA, coloque no seu excel e veja o que acontece:

Macro para proteger planilha
Sub Protect()
Dim usuario As String
usuario = VBA.Environ("username")
For i = 1 To Sheets.Count
Sheets(i).Protect "TESTE"
Next
End Sub

Macro para o usuário Careca desproteger a planilha
Sub UnProtect()
Dim usuario As String
usuario = VBA.Environ("username")
If (usuario = "Careca") Then ' SE o usuário for o careca ENTÃO
For i = 1 To Sheets.Count
Sheets(i).UnProtect "TESTE" 'Desproteja a planilha
Next
Else 'MAS caso contrário
MsgBox "Você não tem permissão de desproteger a planilha"
End If 'FIM SE
End Sub

Peço que se tiverem dúvidas e sugestões fico a disposição.

Abraços e até o próximo vídeo.

[fabioalmeida]

Boa tarde, você ainda manteve os seus estudos sobre o vba?
Obrigado pela ajuda.

[MrToasa]

Gostaria de proteger apenas algumas células na planilha. Tem como?

[Eucantobem]

Se for mais de um usuario, como adicionado esse outro usuario ?

[lindomarsb]

Ola´, onde entra a senha "teste"?