Como llamo la siguiente instrucción para que se ejecute

hola, Sergio !

1) el procedimiento "de evento" (_open) se auto-ejecuta cada vez que abres el libro

2) si quieres hacer una prueba (sin tener que cerrar/abrir cada vez el libro)...
situa el cursor dentro del procedimiento y pulsa {F5}

3) me parece que "sobran" las comas (en exceso) al inicio de las lineas 2 y 3 del "For Each..." (???)

saludos,
hector.

__ OP __

Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", _
, "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", _
, "28", "29", "30", "31", "32", "33", "34", "34.1", "35", "36", "37", "38", "39", "40"))
Hoja.Protect Password:="RWWWTUICTYOHLDZ", UserInterfaceOnly:=True
Next
End Sub

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Este procedimiento se ejecuta al abrir el libro siempre que se abra
habilitando las macros

¿Cuando quieres que se ejecute?


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"Sergio Eduardo" escribió en el mensaje
news:

Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("1", "2", "3", "4", "5", "6", "7",
"8", "9", "10", _
, "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21",
"22", "23", "24", "25", "26", "27", _
, "28", "29", "30", "31", "32", "33", "34", "34.1", "35", "36",
"37", "38", "39", "40"))
Hoja.Protect Password:="RWWWTUICTYOHLDZ", UserInterfaceOnly:=True
Next
End Sub

On 24 jul, 12:58, "Héctor Miguel"
wrote:

hola, Sergio !

1) el procedimiento "de evento" (_open) se auto-ejecuta cada vez que abres el libro

2) si quieres hacer una prueba (sin tener que cerrar/abrir cada vez el libro)...
    situa el cursor dentro del procedimiento y pulsa {F5}

3) me parece que "sobran" las comas (en exceso) al inicio de las lineas 2 y 3 del "For Each..."    (???)

saludos,
hector.

__ OP __

> Private Sub Workbook_Open()
>  Dim Hoja As Worksheet
>  For Each Hoja In Worksheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", _
>  , "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", _
>  , "28", "29", "30", "31", "32", "33", "34", "34.1", "35", "36", "37", "38", "39", "40"))
>    Hoja.Protect Password:="RWWWTUICTYOHLDZ", UserInterfaceOnly:=True
>  Next
> End Sub

Hector crees que pueda llamarte para que me expliques por tel poruqe
medio entendi

gracias

hola, Sergio !

... crees que pueda llamarte para que me expliques por tel poruqe medio entendi

1) abre el editor de vba (atajo de teclado: alt + F11)
quedara "listo" para mostrar/insertar modulos de codigo para tu libro activo

2) en el explorador de proyectos (parte izquierda del editor) haz un doble-clic en el objeto ThisWorkbook

3) en la ventana que se abre a la derecha del editor, copias/pegas (o escribes) las lineas del procedimiento

comentas lo que no entiendas de todo lo anterior (este y anteriores mensajes) ?

saludos,
hector.

On 24 jul, 14:45, "Héctor Miguel"
wrote:

hola, Sergio !

> ... crees que pueda llamarte para que me expliques por tel poruqe medio entendi

1) abre el editor de vba (atajo de teclado: alt + F11)
    quedara "listo" para mostrar/insertar modulos de codigo para tu libro activo

2) en el explorador de proyectos (parte izquierda del editor) haz un doble-clic en el objeto ThisWorkbook

3) en la ventana que se abre a la derecha del editor, copias/pegas (o escribes) las lineas del procedimiento

comentas lo que no entiendas de todo lo anterior (este y anteriores mensajes) ?

saludos,
hector.

gracias ya pude