VBA DESPROTEGER CELULA

USUARIO.EXCLUIDOS 19/12/2006 12:28:18
#190852
Galera minha duvida eh a seguinte, se eu protejo uma celula atraves do menu FERRAMENTAS->PROTEGER->PROTEGER PLANILHA eu tenho como através do VBA desproteger um celula, mudar o seu conteudo e proteger novamente?
JABA 19/12/2006 12:34:37
#190854 Resposta escolhida
De uma olhada nesta pag, talvez te ajude --> http://www.macoratti.net/vba_ofce.htm
JABA 19/12/2006 12:35:58
#190856
Essa também é boa http://www.macoratti.net/excel_vb.htm
USUARIO.EXCLUIDOS 19/12/2006 13:42:39
#190872
Eu faço assim pra Proteger:

Sub Proteger()
'
' Proteger Macro
' Macro gravada em 23/11/2006 por Almir Pires
'
[c]    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
End Sub


Pra Desproteger:
Este código funciona somente para senha implementada através do menu
Ferramentas - Proteger - Proteger Planilha, para remover outras senhas o código
é diferente e demora muiiiiito mais tempo.

Abra o Editor do Visual Basic do Excel, insira um módulo e cole o código abaixo.
Volte para planilha que está protegida, pressione Alt F8 e aguarde,
dependendo da senha e é claro da máquina, pode demorar um pouquinho mas destrava.

Option Explicit
[c]Sub Senha()
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, _
l As Integer, m As Integer, n As Integer

On Error Resume Next

For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) _
& Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Planilha desprotegida com sucesso!!!"

Exit Sub

End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar