Desbloquear Planilha Protegida do Excel 2010 Segue abaixo um procedimento com macro para desbloquear em apenas alguns segundos uma planilha protegida por senha no EXCEL. Siga os passos abaixo conforme indicado: 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" 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

Desbloquear Planilha Protegida Do Excel 2010

Download DOCX Report

Upload
renato-rios
View
47
Download
22

Embed Size (px)

Citation preview

Passo 1:Abra a planilha protegida e digiteALT+F11

Passo 2:Se voc fez certo o passo anterior agora dever estar aberto o Microsoft Visual Basic.V emINSERIR > MDULO

Passo 3:Insira a rotina abaixocopiando e colando desde a linha "Sub Desbloqueia_Planilha()" at "End Sub"Sub Desbloqueia_Planilha()

Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerOn Error Resume NextFor i = 65 To 66For j = 65 To 66For k = 65 To 66For l = 65 To 66For m = 65 To 66For i1 = 65 To 66For i2 = 65 To 66For i3 = 65 To 66For i4 = 65 To 66For i5 = 65 To 66For i6 = 65 To 66For n = 32 To 126ActiveSheet.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 ThenMsgBox "Sua planilha foi desbloqueada "Exit SubEnd IfNextNextNextNextNextNextNextNextNextNextNextNext

End SubPasso 4: Clique no disquete emSalvarna tela de edio da macro.

Passo 5: DigiteALT+F11novamente para retornar a planilha protegida.DigiteALT+F8. Selecione sua macro (Desproteger_Planilha) e clique emexecutar.

Passo 6: Aguarde alguns segundos e aps a execuo da macro ser exibida a mensagem "Sua planilha foi desbloqueada".

Espero ter ajudado! Deixe seu comentrio abaixo, ok!