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)
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