Cómo funciona JustAnswer:
  • Preguntar a un Experto
    Los expertos tienen muchos conocimientos valiosos y están dispuestos a ayudar en cualquier pregunta. Credenciales confirmadas por una empresa de verificación perteneciente a Fortune 500.
  • Obtener una respuesta profesional
    Por correo electrónico, mensaje de texto o notificación mientras espera en su sitio. Haga preguntas de seguimiento si lo necesita.
  • Garantía de satisfacción plena
    Garantizamos tu satisfacción.
Formule su propia pregunta a edward Ojeda
edward Ojeda
edward Ojeda, Técnico informático
Categoría: Informática
Clientes satisfechos: 117
Experiencia:  TÉCNICO SOPORTE INFORMÁTICO
105269862
Escriba su pregunta sobre Informática aquí...
edward Ojeda está en línea ahora

Tengo un fichero excel y olvidé la contraseña. Quiero poder

Pregunta del cliente

Tengo un fichero excel y olvidé la contraseña. Quiero poder abrirlo. En realidad son 4 ficheros excel.
JA: ¿Cuándo fue la última vez que cambiaste tu nombre de usuario y contraseña?
Customer: La contraseña me fue enviada y la he perdido
JA: ¿Qué sucedió justo antes de que sucediera esto? ¿Qué has intentado para resolver el problema?
Customer: Nada, no puedo abrirlo
JA: ¿Hay alguna otra cosa que quieras que el técnico sepa?
Customer: Mostrar la contraseña existente para poder abrir los 4 ficheros excel.
Enviada: hace 11 días.
Categoría: Informática
Experto:  edward Ojeda escribió hace 10 días.

Hola, mi nombre es Edward Ojeda, Bienvenido a Justanswer, Hare todo lo posible para ayudarle con su consulta de hoy. Estoy revisando su pregunta. Le respondere con detalle lo antes posible.

Experto:  edward Ojeda escribió hace 10 días.

Estimado usuario, por favor siga los siguientes pasos para que le aparexca una clave alternativa y usted pueda ingresar a su archivo de excel :

Experto:  edward Ojeda escribió hace 10 días.

Click con el ratón en el nombre de la hoja que se quiere desproteger.
Click con el ratón en Ver código.
Copiar y pegar el siguiente código macro VBA
.

Experto:  edward Ojeda escribió hace 10 días.

Public Sub decod()
On Error Resume Next: c = Space(10)
For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop

Experto:  edward Ojeda escribió hace 10 días.

Estimado usuario, por alguún problema de la paguina no me permite enviar el codigo, Usted me puede decir por favor su correo para enviarle por ese medio el codigo, muchas gracias !!