UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO proteger archivos el 26/11/12, 02:36 pm

®bital


Hola de nuevo, con tal de brindar una mayor protección a nuestros trabajos en excel, se han creado varios métodos para este propósito.
En mi caso use el método de cantidad de veces que se usa el archivo, es decir cuando el archivo se usa mas de 10 veces, automáticamente se inhabilita y se cierra.
Ahora, lo que quisiera lograr es que cumplido ese tiempo, me pida una contraseña.
Para mas detalles les adjunto el archivo que quiero modificar.
Espero contar con su cooperación y ayuda

Saludos
Archivos
proteger archivo.xls
No tienes los permisos para descargar los archivos.
(37 KB)

2RESUELTO Re: proteger archivos el 27/11/12, 04:14 am

ioyama


Hola obital

Con algo como

Código:
If Range("B1") >= 10 Then
'mostramos un mensaje
nota = InputBox("Lo siento, ya has trabajado con el fichero 10 veces," & _
Chr(10) + "tiempo más que suficiente para evaluar esta aplicación." & _
Chr(10) + Chr(10) + "Ahora debes introducir la clave de acceso :-)")
If nota <> "012345" Then ThisWorkbook.Close
'cerramos el fichero

Else
'si todavía no hemos llegado a los 10 usos,

podría valerte

Un saludo desde Vitoria

3RESUELTO Re: proteger archivos el 27/11/12, 09:48 am

®bital


gracias ioyama
eso es lo que quería que hiciera, pero ademas me gustaría que cuando se introduzca el password, se reinicie el contador de veces.
Es decir cuando llegue al limite y introduzca la clave, me aparezca un cartel diciéndome que tengo 10 intentos mas ara seguir usando el archivo.

Espero que me puedas ayudar.
Saludos

4RESUELTO Re: proteger archivos el 28/11/12, 04:23 am

ioyama


Hola obital


Código:
If Range("B1") >= 10 Then
'mostramos un mensaje
nota = InputBox("Lo siento, ya has trabajado con el fichero 10 veces," & _
Chr(10) + "tiempo más que suficiente para evaluar esta aplicación." & _
Chr(10) + Chr(10) + "Ahora debes introducir la clave de acceso :-)")
If nota <> "012345" Then ThisWorkbook.Close
Range("B1").ClearContents
'cerramos el fichero
Else
'si todavía no hemos llegado a los 10 usos,
'escribimos lo que nos interesa
Range("A1") = "Veces abierto:"
'ponemos la fecha y hora del sistema
Range("B1") = Range("B1") + 1
End If
'Ocultamos de nuevo la Hoja3

Un saludo desde Vitoria

5RESUELTO Re: proteger archivos el 29/11/12, 02:05 pm

®bital


Muchas gracias ioyama, gracias a tu ayuda, ahora se puede dar un poco mas de protección a nuestros trabajos.

Hasta la próxima

6RESUELTO Proteger archivos el 13/06/15, 02:11 am

Trilce


Hola, les dejo un link con un buen ejemplo para proteger su data de sus archivos.  Para ello podemos crear un formulario en VBA que proteja la data al momento de abrir el documento Excel.
http://www.excel-avanzado.com/12943/formulario-en-vba-para-proteger-data.html

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.