Forums Últimos mensajes - Powered by IBM
 

Como llamo la siguiente instrucción para que se ejecute

24/07/2009 - 17:52 por Sergio Eduardo | Informe spam
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
 

Leer las respuestas

#1 Héctor Miguel
24/07/2009 - 19:58 | Informe spam
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

Preguntas similares