Download - Quebrar Senha de Planilha

Transcript

7/21/2019 Quebrar Senha de Planilha

http://slidepdf.com/reader/full/quebrar-senha-de-planilha 1/1

Sub Desbloquear ()

'CÃ³digo criado por MÃ¡rio Andrade www.cursoexcelvba.com.br'[email protected]

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 Then

MsgBox "A Senha foi quebrada com sucessoâ"Exit SubEnd IfNextNextNextNextNextNextNextNextNextNext

NextNext

End Sub

Top Related