Re: Cerra libro con contrase#a

hola, Alex !

... un libro con 3 a 4 hojas... una encuesta... en la que el usuario tiene preguntas y... de 3 a 4 opciones de respuesta por pregunta
... que al final de la encuesta, el usuario tenga una ultima opcion, la de guardar los cambios de sus respuestas y cerrar el libro
... para que asi las respuestas lleguen tal y como el usuario las hizo la primera vez que lo utilizo, al encargado de las encuestas
... el libro ha sido creado con anterioridad, ya tiene un nombre, y se desea que... pueda ser abierto... con normalidad, sin contrase#a
... pero que el utilizar la macro, guarde el libro con una contrase#a X que sera la misma para todas las encuestas...

1) con unas instrucciones +/- como la macro que expongo al final del presente [asignada a 'tu boton']...
-> se guarda el libro con el mismo nombre... se agrega una contrase#a... y se cierra el libro 'en cuestion'
-> [se supone que] al abrirse NO tiene la contrase#a, con lo cual, se puede abrir por el usuario 'con normalidad' ;)
-> PERO... la siguiente vez que lo abra [o intente abrirlo]... el libro le solicitara 'la contrase#a' :))
2) [supongo que] habra 'otras cuestiones' [aun no comentadas, pero si 'imaginadas' -por mi-] como...
-> y si el libro 'le llega' por correo-electronico ? [tendria la opcion de re-escribir/regresar/... al libro 'origina'] :-(
-> si el libro tiene otros objetos incrustados [para facilitar las respuestas], otras macros, [etc. etc. etc.]
[que ya comentaras si es necesario] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
== en un modulo de codigo 'normal' ==Private Sub Protege_Guarda_Cierra()
If MsgBox("Deseas dar por 'finalizada' la encuesta ?", vbQuestion + vbYesNo, "") = vbNo Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs PassWord:="Pon aQui tU cLavE"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub