Proteja as suas planilhas !

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Proteja as suas planilhas !

Mensagem  KDU em Seg Dez 12, 2011 4:23 pm

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
avatar
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 37

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum