Desbloquear - Operar - Bloquear ....una celda

Dim TC As String
Private Sub workbook_open()
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
ActiveSheet.Unprotect "macropwd"
Range("b4") = TC
Range("B3") = Now()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:="macropwd"
End Sub

Tendrás que bloquear el libro con el password "macropwd"


te sirve?


"Javier Avila" escribió en el mensaje
news:
Tengo una plantilla en la que he hecho que cuando se abra me pida una
tasa de cambio y luego imprima la fecha en que fue creada, lo que me
esta faltando es:
como la tengo protegida, quiero primero desblokear un par de celdas
(ej.: A1 y B1) meterles dichos string y valores y luego volverlas a
blokear. He aqui mi codigo:


Dim TC As String
Private Sub workbook_open()
TC = InputBox("Porfavor, ingrese la TC de hoy", "Tasa de Cambio")
Range("b4") = TC
Range("B3") = Now()

End Sub


Como se puede apreciar tengo dos celdas "operadas" que serian B4 para mi
Tasa de Cambio y B3 para que introduzca la fecha del dia actual,
englobando todo esto tengo ciertas celdas de mi hoja que estan
bloqueadas y quiesiera (y sé que es mucho pedir para lo que ya logré)
que una macro tipo _load me desbloquee esas dos celdas "opere" metiendo
fechas y valores y luego las vuela a desbloquear. Gracias de antemano!