Activar/desactivar celda en Excel dependiendo de en qué celda el usuario ingresa un valor primero

Question

Tengo tres campos en las celdas A1, A2 y A3 en Excel. Los tres campos están desbloqueados en primera instancia.

• Si el usuario ingresa primero un valor en A3, A1 y A2 deben desactivarse o bloquearse.

• Si el usuario ingresa un valor en A1, entonces A2 debería ser obligatorio, pero A3 estará bloqueado o deshabilitado.

En otras palabras, el usuario debe completar A1 y A2, pero no A3, o el usuario debe completar A3 pero no A1 y A2. ¿Se puede lograr esto en Excel usando IF y más?

Answer 1

Sigue estos pasos:

Método 1:

• Selecciona Celdas A1:A2, o las que solo permites editar.
• Botón derecho del ratónluego desde el menú emergente haga clicFormato de celdas.
• DeCuadro de diálogo Formato de celdas, golpearPestaña de protección

• Desmarque la casilla Bloqueado, & terminar conDe acuerdo.
• Hacer clicPestaña de revisiónentoncesProteger hoja.
• Ingrese el código de acceso en elCuadro de diálogo Proteger hojay golpearDe acuerdo.

NÓTESE BIENPor A3PrimeroDesprotegerHoja y repita los pasos mostrados arriba.

---

Método 2:

Sub LockCells()

Dim mainworkBook As Workbook

Set mainworkBook = ActiveWorkbook

mainworkBook.Sheets("Sheet1").Range("A1:A2").Value = "Lock"
   mainworkBook.Sheets("Sheet1").Range("A1:A2").Locked = True
   mainworkBook.Sheets("Sheet1").Range("A3").Locked = False
   ActiveSheet.Protect

End Sub

---

Sub Unlockcells()

  Dim mainworkBook As Workbook

  Set mainworkBook = ActiveWorkbook

  mainworkBook.Sheets("Sheet11").Range("A3").Value = "Free"
    mainworkBook.Sheets("Sheet11").Range("A1:A2").Locked = False
    mainworkBook.Sheets("Sheet11").Range("A3").Locked = True
    ActiveSheet.Protect

End Sub

NÓTESE BIEN

• PrensaAlt+F11para abrir el editor VB y luegoCopiar pegarestos códigos como módulo estándar.
• Desprotegerla Hoja antes de EJECUTAR cualquiera de las Macros.

Ahora sólo se permitirán cambios en las celdas desbloqueadas.