Clave

hola, Angelo !

... me referia a ... que apenas que entre a Excel me pida un password
para validar y entrar.

suponiendo que [solamente] quieres impedir/validar el uso del excel
instalado en 'tu' pc...
[te sugiero] utiliza el evento '_open' del objeto 'workbook' EN el libro
de macros 'personal.xls'
[si no lo has creado o no sabes como se crea... ¿comentas?]
algunas [des]ventajas cuando existe el libro de macros personal son que
excel...
- NO 'pregunta' si quieres habilitar las macros [suponiendo que NO esta en
'alto' el nivel de proteccion]
- NO se abre con un libro 'en blanco' [el famoso Libro1]
el codigo que 'tendrias que' usar es +/- como el siguiente...
en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_Open()
If InputBox("Ingresa tu clave por favor ...", "Validando...") <> "Aqui TU
clave a comparar" _
Then Application.Quit Else Workbooks.Add
End Sub


saludos,
hector.
notas:
1.- si no quieres que 'se vean' los caracteres de la clave... [tendras que
cambiar el 'inputbox' por...]
diseñar un userform con un control textbox usando la propiedad
'PasswordChar' [etc. etc. etc.]
2.- habra que diseñar una 'secuencia' distinta para casos en que la
aplicacion se abra 'a peticion'
[p.ej. al hacer un doble-click en algun acceso directo a archivos de
excel] etc. etc. etc.

Angelo,

Tambien podrias repasar el siguinte articulo de un autor "desconocido" :-))
http://www.sistemaslym.net/vba/excel/exarc1.html

Saludos,
KL

"Héctor Miguel" wrote in message
news:OqSjzpT%
> hola, Angelo !
>
>> ... me referia a ... que apenas que entre a Excel me pida un password
>> para validar y entrar.
>
> suponiendo que [solamente] quieres impedir/validar el uso del excel
> instalado en 'tu' pc...
> [te sugiero] utiliza el evento '_open' del objeto 'workbook' EN el libro
> de macros 'personal.xls'
> [si no lo has creado o no sabes como se crea... ¿comentas?]
> algunas [des]ventajas cuando existe el libro de macros personal son que
> excel...
> - NO 'pregunta' si quieres habilitar las macros [suponiendo que NO esta en
> 'alto' el nivel de proteccion]
> - NO se abre con un libro 'en blanco' [el famoso Libro1]
> el codigo que 'tendrias que' usar es +/- como el siguiente...
> en el modulo de codigo del libro [ThisWorkbook] ==> > Private Sub Workbook_Open()
> If InputBox("Ingresa tu clave por favor ...", "Validando...") <> "Aqui TU
> clave a comparar" _
> Then Application.Quit Else Workbooks.Add
> End Sub
>
>
> saludos,
> hector.
> notas:
> 1.- si no quieres que 'se vean' los caracteres de la clave... [tendras que
> cambiar el 'inputbox' por...]
> diseñar un userform con un control textbox usando la propiedad
> 'PasswordChar' [etc. etc. etc.]
> 2.- habra que diseñar una 'secuencia' distinta para casos en que la
> aplicacion se abra 'a peticion'
> [p.ej. al hacer un doble-click en algun acceso directo a archivos de
> excel] etc. etc. etc.
>