Macro condicional

Necesito ayuda para generar una macro que actúe al registrarse la fecha en una celda, y en función del valor de esta celda, otro rango de celdas se bloquee.

1 respuesta

Respuesta
1
Si me dices los rangos te paso el código si lo prefieres mandame tu archivo
d2enrique arroba .com
Hola Enrique. Gracias por responder tan rápido. Te cuento más detalles. Si A1=1, quiero bloquear Range("J116, J120, J124, J127, J128, J132:J144"). Select
    Range("J132").Activate
Saludos,
Sebas
Lo que pides es esto si el dato que introduces en A1 sale de una fórmula
Private Sub Worksheet_Calculate()
If Range("A1").Value = 1 Then
Cells.Select
    ActiveSheet.Unprotect
    Selection.Locked = False
    Selection.FormulaHidden = False
Range("J116,J120,J124,J127,J128,J132:J144").Select
Selection.Locked = True
    Selection.FormulaHidden = False
   Range("J132").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Si el dato lo introduces directamente en A1 seria este otro codigo
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value = 1 Then
Cells.Select
    ActiveSheet.Unprotect
    Selection.Locked = False
    Selection.FormulaHidden = False
Range("J116,J120,J124,J127,J128,J132:J144").Select
Selection.Locked = True
   Selection.FormulaHidden = False
   Range("J132").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Este código lo has de introducir en el código de la hoja si no sabes como dímelo y te lo explico
Estimado Experto: Otra consulta. Como hacer para que solo ejecute el condicional únicamente cuando ocurre un cambio en el valor de A1.
Ahora, cada vez que hago una modificación en los valores de cualquier celda, el programa ejecuta el condicional y esto hace muy lenta el trabajo con la hoja de cálculo.
Desde ya muchas gracias.
Saludos,
Sebas
Estoy en el trabajo cuando llegue ha casa verifico lo que me dices creí que solo se ejecutaba en A1
Por favor dime que código usas el change o el calculate
Solo copie y pegue el programa que me pasaste. Creo que es calculate.
Saludos,
Si la celda A1 es una fórmula no hay manera de que al existir en otras celdas más fórmulas no se ejecute al cambiar otras fórmulas
Si es ese el caso se puede hacer pero dime las celdas que modificas para que esa fórmula se calcule entonces utilizaríamos el rango de esas celdas para ejecutar el código
solo con que cambies en este código $A$1 por la celda que cambias ya te debe funcionar
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" And Target.Value = 1 Then
Cells.Select
    ActiveSheet.Unprotect
    Selection.Locked = False
    Selection.FormulaHidden = False
Range("J116,J120,J124,J127,J128,J132:J144").Select
Selection.Locked = True
   Selection.FormulaHidden = False
   Range("J132").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Pruébalo y ya me cuentas
Estimado Experto: No funcionó con este cambio de código. Voy a dejar el código anterior, pero quería que me ayudes a ver como hago para que este rango de celdas no quede bloqueado cuando A1 es diferente de 1.
Gracias
Saludos,
Sebas
Pásame tu correo y te mado un ejemplo si lo prefieres mandame tu archivo y lo adapto
d2enrique arroba hotmail.com
Hola: Te envié un e-mail para que me puedas dar un ejemplo. Gracias
Disculpa pero no recibí ningún e-mail
Volví a enviarte el e-mail. No se que pudo haber pasado con el anterior.
Gracias por la ayuda.
Saludos,
Te envíe el archivo con las explicaciones ya me cuentas si te vale

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Bloquear celdas con parámetro de ingreso

Tengo un archivo en excel en el cual necesito bloquear unas celdas especificas de aceurdo a un parámetro ingresado, por ejemplo si la celda B5 es igual a Directo la celda B4 debe bloquearse automáticamente, si la celda B5 es igual a Indirecto, la...
1 respuesta

Macro para bloquear celdas escritas en Excel

Tengo la siguiente macro, pero yo quiero que solo se aplique a la Hoja1. ¿Es posible? Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Proteger celdas con información 'Por.Dam Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Proteger celdas desbloqueadas

Llevo días peleándome con un tema, protejo un hoja de excel mediante una macro, antes de proteger bloqueo toda la hoja excepto la columna F. El problema es que cuando vuelvo a abrir el libro excel, la hoja ya no tiene las celdas bloqueadas y si la...
1 respuesta

Bloquear una casilla o no dependiendo del valor de otr

Tengo que proteger contra escritura una casilla en función del valor de otra, por ejemplo si mi casilla A1 vale "dital" la casilla B1 debe bloquarse contra escritura. Sin embargo si mi casilla A1 vale Analógico B2 debe estar sin bloquear y en ella yo...
1 respuesta

Proteger celdas en excel

Tengo una hoja de excel que quiero que una columna una vez escrito un valor o dato en cada celda de esa columna no se pueda modificar, o que avise pidiendo permiso. No se si esto se puede hacer, sino a ver si hay alguna alternativa similar.
1 respuesta

Deseo bloquear un rango de celdas en función de un determinado valor. Ej: Si (A1=1;desbloq;bloq)

Ej: A1 = 1 mientras determinados valores están dentó de lo previsto, cuando estos valores no son los esperados A1 deja de valer 1. En el rango (B1:H5) quiero que se pueda cargar datos o modificar, mientras A1=1, cuando A1 deja de valer 1 se bloquee...
1 respuesta

Macro para proteger una celda de excel inmediatamente después de entrar (copiar) algún contenido en ella

Me gustaría me ayuden a completar esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E13:J13")) Is Nothing Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub Lo que hace es...
2 respuestas

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta

Bloqueo automático de celdas

Tavo tengo el siguiente código Sub bloqueo() If Range("a1").Value <> Empty Then Range("A1").Select ActiveSheet.Unprotect "hola" Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect "hola", DrawingObjects:=True, Contents:=True,...
1 respuesta

Bloquear celdas a través de fórmula

Necesito bloquear una celda desde una fórmula, es decir si el valor de la celda A1 es 0, quisiera que el usuario no pudiese digitar en la celda B1; pero si el valor es 1, debe digitar un valor o en su defecto colocar un texto.
1 respuesta