Macro - Proteger

hola, Favio !

estoy seguro de que las caracteristicas que tienes disponibles desde la version 2002 en:
(menu) herramientas / proteger / permitir que los usuarios modifiquen rangos...
cubren perfectamente los requerimientos de que estas hablando
(que son "adivinables" ya que no los expones de forma total y explicita) :))
si las revisas/analizas/pruebas/... y comentas las necesidades que no te cubra... (seria un buen comienzo)

a menos que necesites "dar soporte" para versiones previas a la 2002 (habria que pensar en otros "mecanismos") -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

... como hacer una macro... que pueda proteger todas las hojas de un libro... que la clave figure en el codigo VBA. El objetivo es impedir que se vean en las celdas que funciones se estan usando pero... que otro usuario pueda cambiar los valores.
Por ejemplo si en la celda dice 60, que pueda cambiarlo por otro valor.
He probado de hacerlo, pero cuando voy a proteger hoja por mas que tenga una password lo mismo la desactiva.

Favio escribió el 30/11/2008 03:56 :

Hola!

Necesito saber como hacer una macro en la que pueda proteger todas las hojas
de un libro mediante una password y que la clave figure en el código
VBA.
El objetivo es impedir que se vean en las celdas que funciones se están
usando pero a la vez que otro usuario pueda cambiar los valores. Por ejemplo
si en la celda dice 60, que pueda cambiarlo por otro valor.
He probado de hacerlo, pero cuando voy a proteger hoja por más que tenga
una
password lo mismo la desactiva.
Gracias.

hola prueba con esta macro

Sub protect_all()
For Each sheet In ActiveWorkbook.Sheets
sheet.Protect Password:="ESCRIBE_AQUI_EL_PASS"
Next sheet
End Sub

Si la anterior no llena tus expectativas aqui te dejo otra:


Sub Proteger()

' Loop through all sheets in the workbook
For i = 1 To Sheets.Count

' Activate each sheet in turn.
Sheets(i).Activate

response = MsgBox("Desea proteger la hoja?", vbYesNo)
If response = vbYes Then
ActiveSheet.Protect Password:="AQUI_ESCRIBES_EL_PASS", DrawingObjects:=False, _
Contents:=True, Scenarios:=False

ElseIf response = vbNo Then
MsgBox ("Hoja no protegida")

End If
Next i
End Sub

En esta macro te saldra un cuadro de dialogo y puedes escoger si deseas proteger la hoja o no, si eliges "no" la hoja no se protege (aparece un mensaje "hoja no protegida") y pasa la siguiente, lo mismo pasa si eliges protegerla.