bloquear celda

Me hice unas macros hace tiempo para eso, tendras que definir algunas
constantes:


'bloquea o desbloquea la celda activa
'color=color bloqueado --> celda bloqueada
Sub BloqueoCelda(Bloqueo As Boolean, Color As Boolean)

DesprotegerHojas (MiPassword)
If Bloqueo Then
If Color Then Selection.Interior.ColorIndex = ColorBloqueado
Selection.Locked = True
Else
If Color Then Selection.Interior.ColorIndex = ColorDesBloqueado
Selection.Locked = False
End If
If Color Then Selection.Interior.Pattern = xlSolid
ProtegerHojas (MiPassword)

End Sub


'Desproteje las hojas que se encuentren visibles utilizando el password
'pasado por parametro
Sub DesprotegerHojas(Texto As String)
Dim Hoja As Object

For Each Hoja In Worksheets
If Hoja.Visible = True Then
Hoja.Protect Password:=Texto, DrawingObjects:=False, Contents:=False,
Scenarios:=False
End If
Next

Set Hoja = Nothing

End Sub


'Proteje las hojas que se encuentren visibles utilizando el password
'pasado por parametro
Sub ProtegerHojas(Texto As String)
Dim Hoja As Object

For Each Hoja In Worksheets
If (Hoja.Visible = True) Then
Hoja.Protect Password:=Texto, DrawingObjects:=True, Contents:=True,
Scenarios:=True
End If
Next

Set Hoja = Nothing

End Sub




espero que te sea de ayuda




"cesar" escribió en el mensaje
news:080b01c35d7e$369458a0$
Saludos, ¿como podria bloquear desde codigo(macro o access
basic) un celda para que solo fuese de solo lectura?.
Gracias de antemano.