Visual Basic para Aplicaciones - Quitar la contraseña de un proyecto VB en excel

Life is soft - evento anual de software empresarial
   
Vista:

Quitar la contraseña de un proyecto VB en excel

Publicado por Daniela lanena6030@gmail.com (1 intervención) el 07/01/2014 17:32:33
Buen día mi nombre es Daniela necesito ayuda para eliminar la contraseña de un proyecto vb en excel he intentado lo que recomiendan en la web pero no he tenido buenos resultados.

Muchas gracias por la ayuda que podrían darme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Quitar la contraseña de un proyecto VB en excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 08/01/2014 02:04:37
pasame el archivo y veo si puedo ayudarte...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana

Quitar la contraseña de un proyecto VB en excel

Publicado por Antoni Masana (47 intervenciones) el 08/01/2014 07:45:08
Ejecuta esta Macro

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
42
Sub Quitar_contraseña()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
 
    On Error Resume Next
 
    For a = 65 To 66
        For b = 65 To 66
            For c = 65 To 66
                For d = 65 To 66
                    For e = 65 To 66
                        For a1 = 65 To 66
                            For a2 = 65 To 66
                                For a3 = 65 To 66
                                    For a4 = 65 To 66
                                        For a5 = 65 To 66
                                            For a6 = 65 To 66
                                                For f = 32 To 126
                                                    Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) & _
                                                                 Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
 
                                                    ActiveSheet.Unprotect Contraseña
 
                                                    If ActiveSheet.ProtectContents = False Then
                                                       MsgBox "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
                                                       Exit Sub
                                                    End If
                                                Next
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Quitar la contraseña de un proyecto VB en excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 08/01/2014 10:48:25
esa macro es para quitar contraseña a una hoja, no para desproteger un proyecto VBA...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Quitar la contraseña de un proyecto VB en excel

Publicado por Eng. Zeus Alberto Paez Renteria (5 intervenciones) el 21/01/2014 04:47:06
Buen Dia Daniela

Te recomiendo que utilices mi tutorial para que puedas desbloquear el codigo, solo antes de experimentar con tu archivo crea un backup del mismo.
Te dejo la direccion donde coloque el procedimiento:
http://artigoo.com/desbloquear-password-de-excel

Saludos y espero te sirva
Zeus Paez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar