Categoria: suporte Técnico | |||
---|---|---|---|
AssuntoQuebrar senha de arquivo - MS-Excel | |||
ConteúdoSegue os passos para desproteger o arquivo do excel: 1 - abrir o arquivo protegido 2 - pressionar alt+F11, em seguida escolher exibir código e colar o texto abaixo: Sub DesprotegerPlanilhaAtiva() 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 | |||
Autor: JOSUE BEZERRA DA SILVA Criado em 31-10-2016 16:19 Última atualização em 31-10-2016 16:19 | 949 vistas Este item é parte da FAQ |