Tengo esta macro y lo único que no he conseguido es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que he conseguido hasta ahora muchas gracias!

la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se si hay una macro que haga lo que hacen las dos macros pero en una sola en vez de llamar a la macro bloqueo

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = ("b12") Then

If Target.Value = "Ingrese la Agencia" Then

Application.EnableEvents = False

Application.ScreenUpdating = False

Call Bloqueo

Application.EnableEvents = True

Application.ScreenUpdating = True

End If

End If

End Sub

2)

Sub Bloqueo()

With Worksheets("Presupuesto")

.Unprotect Password:="321"

.Range("B12").Select

Selection.Locked = False

.Protect Password:="321", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowInsertingRows:=True

.EnableOutlining = True

End With

End Sub

Hola, si subes un ejemplo seria mas fácil ayudarte.

Son las reglas del foro ademas.

Slds. JL.

Adjunto archivo espero sus comentarios! saludos hermanos!

Prueba.rar