Bloquear columnas

Hola German

Prueba esto

Sub ProtegeColumna()

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("B:B,D:D,F:F").Select 'aqui coloca las columnas que
quieras ocultar en este caso son B, D, y F
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub


espero te sirva



Ronald E. Sánchez
El Salvador-San Salvador


"german" escribió en el mensaje
news:0c1301c3b4f9$26f431e0$

Hola Grupo


por medio de una macro como puedo bloquear algunas
columnas

Agradesco por tan valiosa ayuda