Proteja as suas planilhas !

A macro a seguir protege todas as pastas de uma planilha.

Para isso basta ;

Inserir um novo módulo no VBA, copie o código abaixo neste módulo, agora volte para as pastas.

Na planilha, aperte ( ALT + F8 ) e execute a macro proteger.

Um pop up vai aparecer pedindo para inserir a senha.


'Macro___________________________________

Sub Proteger()
On Error Resume Next
Dim ws As Worksheet
Dim codigo As String
codigo = InputBox("Por favor inserir o Código")
For Each ws In ThisWorkbook.Worksheets
ws.Protect (codigo)
Next ws
End Sub

Sub Desproteger()
On Error Resume Next
Dim ws As Worksheet
Dim codigo As String
codigo = InputBox("Por favor inserir o Código")
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect (codigo)
Next ws
End Sub