PROTEGER PROYECTO VBA

10 envíos / 0 nuevos
Último envío
fjlruiz
Imagen de fjlruiz
Offline
última acción: Hace 7 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 11/01/2010 - 10:59
Puntos: 817
PROTEGER PROYECTO VBA

Hola:

He desarrollado una cuantas macros para que nos facilite el trabajo que habitualmente realizamos en Excel en mi oficina.

Pues mirando por internet, he visto que hay un archivo, que cuando intentas acceder al proyecto, no te deja ni siquiera introducir la contraseña, para de esta forma evitar que lo modifiquen.

Si alguien va a descargarse el archivo, os recuerdo que lo he bajado de internet, y no se si contendrá algún virus. Yo lo he abierto y creo que no me ha pasado nada.

Además he intentado romper la contraseña con algún programa comercial pero no se puede.

Alguien sabría decirme como puede hacerse esto?

He visto que hay programas para hacerlo, pero se puede hacer con macros?.

 

Un saludo

AdjuntoTamaño
Office spreadsheet icon Unviewable_Test.xls24 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 hora 38 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: PROTEGER PROYECTO VBA

¿te refieres a acceder al código VBA de este libro?

Siempre he pensado que un sistema de seguridad informático es más o menos seguro según las ganas que alguien tenga de reventarlo.

Si nadie quiere ver tu documento, puede que no necesites ni contraseña. Si alguien quiere ver tu documento, seguro que consiguen acceder al contenido de una manera u otra. Si han conseguido acceder a los datos de las tarjetas visa...

Entiende esto como una manera de ponerselo difícil a alguien para que no llegue por accidente hasta tu contenido.

Si tu pregunta es cómo proteger el código de un libro para ponerselo difícil a los usuarios interesados de una manera más sofisticada que la que ofrece Excel por defecto, mira este sitio donde te explican cómo proteger el código VBA del libro, jugando con convertirlo en un complemento, compartirlo, volver a convertirlo en libro normal y descompartirlo.

 

------
Ya sé Excel, pero necesito más

 

------
Ya sé Excel, pero necesito más.

visitante (no verificado)
Imagen de visitante
Re: PROTEGER PROYECTO VBA

DESCARGE EL ARCHIVO Y REALMENTE NO ES POSIBLE PONER LA CONTRASEÑA PARA VER EL PROYECTO.  NOTE QUE LA OPCIÓN DE COMPARTI  RL LIBRO NO ESTA HABILITADA. ASI QUE EL METODO USADO PARA CONSEGUIR ESE TIPO DE PROTECCIÓN NO ES COMPARTIR EL LIBRO PODRIAN AYUDARME A SABER COMO  SE LOGRO O QUE PROGRAMA ADICIONAL SE USO GRACIAS. (jnicolasnavarro@gmial.com)

visitante (no verificado)
Imagen de visitante
Re: PROTEGER PROYECTO VBA
JN (no verificado)
Imagen de visitante
Funciono no me funciona

No me funciona. No se si hice todo bien

Eric Hernández Rojas (no verificado)
Imagen de visitante
IMPEDIR DESBLOQUEAR PROYECTOS

EXCELENTE ASÍ PUEDO COMPARTIR O BRINDAR PROYECTOS A LOS DEMÁS SIN QUE ME ROBEN LAS IDEAS CON LAS MACROS.

TENGO 10 AÑOS DE ESTAR APRENDIENDO CON EXCEL Y NO TERMINO.

Eric Hernández Rojas (no verificado)
Imagen de visitante
IMPEDIR DESBLOQUEAR PROYECTOS

EXCELENTE ASÍ PUEDO COMPARTIR O BRINDAR PROYECTOS A LOS DEMÁS SIN QUE ME ROBEN LAS IDEAS CON LAS MACROS.

TENGO 10 AÑOS DE ESTAR APRENDIENDO CON EXCEL Y NO TERMINO.

AdjuntoTamaño
File filtrar_2.xlsm34.22 KB
carlos espinosa (no verificado)
Imagen de visitante
Solicitando informacion sobre proteccion vba excel

Saludos

Mil disculpas por molestarte, pero me gustaría nos indiques que método empleaste para proteger el archio filtrar_2.xlsm.

Atentamente

CArlos Espinosa

ARTURO (no verificado)
Imagen de visitante
COMO LO REVIERTO

y como lo revierto para que me pida la contraseña?

HAFLOCO (no verificado)
Imagen de visitante
FILTRAR

Rem Attribute VBA_ModuleType=VBADocumentModule

Option VBASupport 1

Private Sub dato_Click()

Application.ScreenUpdating = False

Dim Contraseña As String

On Error Resume Next

Contraseña = (Text)

'Worksheets("Hoja1").Activate

If Text = Empty Then

MsgBox "Eliga el dato requerido", vbInformation, "    ***Campos vacios****"

Exit Sub

End If

    Worksheets("Hoja1").Activate

   ' Range("e3").Select

     Cells(3, 5) = (Text) '3 fila, 5 columnas

Filtrar

      


'MsgBox "¡Digite la cuenta a filtrar!", vbExclamation







Application.ScreenUpdating = True


End Sub


Private Sub CommandButton1_Click()


dato_Click

End Sub


Private Sub userform1()

userform1.Show

End Sub


Private Sub CommandButton2_Click()

Mostrar_Todo

End Sub


Private Sub UserForm_Click()


End Sub