Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Edu_Gaijutis

Para pensar

Recommended Posts

AGRADEÇO A RAPIDEZ DADAE REVENDO O ENUNCIATO REALMENTE DIZ 7 GAROTAS CADA GAROTA COM 7 MOCHILASE EU NA MINHA PRESSA NEM ME TOQUEI ASSOCIEI 1 GAROTA COM 1 MOCHILAAI FOI O ERROESTA PERFEITOPARABENSKARMENSP

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pra quem tem preguiça para pensar, uma dica de como acabar com a senha de arquivos excel:

 

Tirar senha de planilha protegida do excel

 

-Teclar Alt + F11

-Inserir, Módulo

-Colar o código abaixo

-Clicar no Play (Executar Sub/UserForm)

-Demora de 1 a 5 min dependendo do tamanho da senha

-Vai aparecer uma janelinha escrito "One usable password is AAAABABAA" ou algo assim

-Apenas clique em OK e a planilha já está desprotegida!

 

Option Explicit

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 "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Quem dirige a p*))@ do onibus ?

uma das garotas, ou um dos gatos.

não, os gatos não, eles estão nas mochilas, deve ser algum deficiente físico que não tenha as duas pernas

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.