1a opção: Para Excel 2003
Um “aplicativo” muito interessante para retirar senha planilha, quando uma planilha está com proteção de sheets ou de células .
Este aplicativo inseri um menu em Ferramentas para desativar proteção, ai basta abrir a planilha com bloqueios e desativar clicando no menu.
1- Clicar no executável –>> download <<–
2- Abrir a planilha bloqueada e usar os novos itens do menu.
2a opção: Excel 2007 ou superior
Passo 1: Abra a planilha protegida e digite ALT+F11
Passo 2: Se você fez certo o passo anterior agora deverá estar aberto o Microsoft Visual Basic.
Vá em INSERIR > MÓDULO
Passo 3: Insira a rotina abaixo copiando e colando desde a linha “Sub Desbloqueia_Planilha()” até “End Sub”
__________________________________
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
Sub Desbloqueia_Planilha() Dim i As Integer, j As Integer, k As Integer Dim 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 "Sua planilha foi desbloqueada " Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub |
______________________________
Passo 4: Clique no disquete em Salvar na tela de edição da macro.
Passo 5: Digite ALT+F11 novamente para retornar a planilha protegida.
Digite ALT+F8. Selecione sua macro (Desproteger_Planilha) e clique em executar.
Passo 6: Aguarde alguns segundos e após a execução da macro será exibida a mensagem “Sua planilha foi desbloqueada”.