Proteger filas impares

ola, deberías escojer las filas q quieras proteger, darle boton drecho,
formato de celdas, proteger, y cuando hayas protegido lo q necesitas, le das
a herramientas proteger, proteger hoja, y asi solo podras modificar el resto
de campos q no hayas prtegido antes.

espero haberte ayudado.

salu2 David E.

"ricard" escribió en el mensaje
news:

Hola

Que puedo hacer para proteger de una hoja solo
las filas impares.

Un saludo

Exelente macro, busque los codigos que no conocia, y creo me seran utiles.
Seria posible que explicaras lo que hace cada linea de codigo, sobre todo
esas que dividen vuelven a dividir, etc. para poder terminarlo de entender.
Gracias por tu tiempo.

Hola William,
Primero de todo felicitarte por tu sentido del humor,
y saludarte desde Barcelona (España).
He copiado tu macro y es justo lo que necesitaba,
gracías por tu aportación.

Hasta promto

Ricard


"" escribió:

Hola David E. y ricard, espero que disfruten de la vida y la tomen con muy buen humor.
a David E. le pediría, que usando el método que recomienda, me enviara una Hoja de cálculo que necesito, con las siguientes condiciones: Es como un tablero de ajedrez que cubre toda la hoja pero solo están protegidas las celdas blancas. Si tienes un poco de tiempo David E. espero me colabores.

ricard, mientras David E. me colabora con la hoja, en Excel oprimes las teclas <Alt> + <F8> Tecleas esto: ProtFilImp en donde dice: "Nombre de la macro:", pulsas la tecla <Enter> y pegas esta línea:
Dim Fila As Long: Application.ScreenUpdating = False: For Fila = 2 To 65536 Step 2: Rows(Fila).Locked = False: Next
Luego oprimes la tecla <F5> y me cuentas como te fue. Supongo que tienes la hoja con todas las celdas protegidas o sino las proteges antes de correr la macro ocambias el código para que lo haga, entonces debe queda así:
Sub ProtFilImp()
Dim Fila As Long: Application.ScreenUpdating = False: Cells.Locked = True: For Fila = 2 To 65536 Step 2: Rows(Fila).Locked = False: Next
End Sub
Se me olvidaba; David E., si no has acabado todavía, prueba con este código:
Sub Ajedrezado()
'
' Ajedrezado Macro
' Macro Creada el 14/06/2005 por William Posada C. (Siem Ltda.
'
' Medellín, COLOMBIA
'
Dim Fila As Long, Columna As Long
Application.ScreenUpdating = False
With Cells
.Locked = True
.Interior.ColorIndex = xlColorIndexNone
.RowHeight = 59
.ColumnWidth = (.RowHeight + Int(.RowHeight / 3) - 5) / 7
End With
For Fila = 1 To 65536
For Columna = 1 + Fila Mod 2 To 256 Step 2
With Cells(Fila, Columna)
.Locked = False
.Interior.ColorIndex = 15
End With
Next
Next
End Sub
Te puede servir en caso de que quieras imprimir un tablero de ajedrez, por ejemplo, no es muy rápido que digamos, pero eso te puede dar una idea de lo que es aplicar formatos a las celdas una por una, máxime cuando son muchas, espero que no se hayan cansado con todo este rollo, pero estaba con ganas de teclear hoy, chao.


PD. Si decides ejecutar la macro si cambiar el valor final de las filas, me comentas cuanto tiempo se lleva en tu computador; más o menos un cuarto de hora?
¡Es que siempre son 8 388 608 celdas!