Macro: mostrar fila, si celda""

¡¡¡Perfecto Héctor!!!, muchas gracias y saludos desde el Perú,


Carlos

Otra consulta referente a este tema y a esta indicación que es para el
caso de una sola hója, pero ¿que pasaría si fuera para varias hojas?
¿cómo modifico la sintaxis?

Gracias,

Carlos


On 11 nov, 19:56, "Héctor Miguel"
wrote:

1) en el modulo de codigo de tu libro (This"orkbook)

Private Sub Workbook_Open()
  Worksheets("hoja1").Protect "abc", 1, 1, 1, 1
End Sub


hay otras alternativas que dependeran de algun detalle que dejaras "en el tintero"    -?-
saludos,
hector.

hola, Carlos !

... referente a este tema y a esta indicacion que es para el caso de una sola hoja
pero que pasaria si fuera para varias hojas? como modifico la sintaxis?

si se trata de varias hojas (suponiendo una misma clave para todas)...
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja6"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next
End Sub

saludos,
hector.

__ previo __

Private Sub Workbook_Open()
Worksheets("hoja1").Protect "abc", 1, 1, 1, 1
End Sub

hay otras alternativas que dependeran de algun detalle que dejaras "en el tintero" -?-

Muchas gracias Héctor.

Saludos,


Carlos

Hola Héctor, una consulta por favor: He estado armando este archivo,
con cuarenta hojas con las misma características (macros y formulas),
pero cuando abro el libro demora como mínimo 1m.10s. en habilitar las
macros. Estaba pensando que quizás se pueda (en realidad por ello mi
consulta) modificar esta sintaxis que la he copiado en las cuarenta
hojas existentes, por una sola que señale todo el libro. ¿Será
posible?

Private Sub Worksheet_Calculate()
Dim Celda As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo Salida
For Each Celda In Range("b6:b15")
Celda.EntireRow.Hidden = Celda = ""
Next
Salida:
Application.EnableEvents = True
End Sub


Agradeciéndote de antemano,

Carlos