Proteger un libro con una sola clave

hola, Daniel !

... q un libro solo pueda ser abierto con una clave q se le asigne
... q no pueda cambiar la clave al cerrar el libro en guardar como [...]

visita la siguiente direccion: http://www.sistemaslym.net/vba/excel/exarc1.html

saludos,
hector.

Hola Hector con respecto a la pagina web q me pusistes en el foro sobre la
pregunta q te hice de proteger un libro con una unica clave y q sea siempre
esta encontre algo interesante espero me puedas ayudar con referencia este
codigo q encontre

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Permiso As String

Select Case Target.Address
'Si el usuario selecciona "B6" ó "B18"...
Case Range("B6").Address, Range("B18").Address
'Se le "pide" una clave.
Permiso = InputBox("¿Cuál es tu clave?")
'Si la clave es "incorrecta" lo "mandamos" arriba.
'(Podrías "avisarle" que... ¡ NO es la clave K !!!)
If Permiso <> "Hocus Pocus" Then Target.Offset(-1, 0).Select
End Select
End Sub

Yo quisiera usar este codigo porq me es util, ahora mis dudas son las
siguientes despues q pide la clave como se hace para q trabaje con esa clave
q yo le proporciono si le digo q la clave es dany por ejemplo siempre sera
esa clave o el la puede cambiar? dentro del codigo donde iria para q cuando
ponga la clave q yo le doy acepte y pueda trabajar en esos rangos

Otra consulta ya q tengo varias hojas como 140 mas o menos y cada cierto
tiempo los rango q los usuarios deben entrar cambian hay una forma de q en
esta macro se le de la instruccion de q en una fecha determinada cambia los
rangos automaticamente aca en el ejemplo es de B6 a B18 pero q dentro de 1
mes por decir pida clave en C6 a c18 si gustas te mando una de mis hojas q
tengo para q veas como es el caso

Gracias
Saludos
Danel Padilla

hola, Daniel !

... con referencia este codigo [...]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$B$6", "$B$18"
Permiso = InputBox("¿Cual es tu clave?")
If Permiso <> "Hocus Pocus" Then Target.Offset(-1, 0).Select
End Select
End Sub
... si le digo q la clave es dany ... siempre sera esa clave o el la puede cambiar?
... donde iria para q cuando ponga la clave q yo le doy acepte y pueda trabajar en esos rangos

=> la clave que esta 'usando' el codigo [del ejemplo] es ->Hocus Pocus<-
[tu puedes sustituirla por cualquier cadena de caracteres que desees]
y... el usuario NO 'puede' cambiarla [a menos que tenga acceso al proyecto de macros]

... varias hojas ... los rango q los usuarios deben entrar cambiar
... instruccion de q en una fecha determinada cambia los rangos automaticamente [...]

=> si 'le dices' al codigo que fecha es el 'punto de partida' [para que puede 'contar' los meses transcurridos]
y cuales serian los rangos [dependiendo de cuantos meses hubieran pasado desde el punto de partida]
y... 'que hacer' cuando se alcance algun 'limite' [o cualquier otra 'variante' que necesites 'contemplar']

saludos,
hector.

Estimado amigo Hector con relacion al archivo "Proteger" de la pagina que
me recomendastes tengo algunas preguntas espero me las puedas contestar

La macros trabajan en el libro cuando es solo lectura?
ya q cuando veo los codigos por visual haces referencia a
q solo trabajan si es solo lectura, pueden trabajar de modo
normal?

hola, Daniel !

... con relacion al archivo "Proteger" de la pagina ... tengo algunas preguntas [...]
La macros trabajan en el libro cuando es solo lectura?
... haces referencia a q solo trabajan si es solo lectura, pueden trabajar de modo normal?

cuando el libro se abre como de 'solo lectura' [segun las condiciones que menciona el articulo]
'el trabajo' de las macros sigue siendo: 'prevenir' si el usuario 'trata' de hacer un 'guardar como...'
[en resumen] todas las macros 'trabajan' SI las condiciones [libro y excel] 'les permiten' hacerlo ;)

saludos,
hector.