Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo hacer que una celda en particular sea obligatoria para ingresar antes de cerrar el libro de trabajo?

Cuando comparte un libro de trabajo con otros usuarios para realizar una encuesta que necesita el registro del nombre real, por ejemplo, todos los usuarios bajo investigación deben ingresar su nombre en B1. Pero en algunos momentos, algunos usuarios pueden cerrar el libro de trabajo después de la investigación sin ingresar sus nombres. En este artículo, presento un VBA para hacer que una celda particular sea obligatoria antes de cerrar el libro de trabajo.

Hacer que una celda sea obligatoria para ingresar con VBA


bueno Proteger hoja de trabajo

Kutools para Excel Proteger hoja de trabajo la función puede proteger rápidamente varias hojas o todo el libro de trabajo a la vez.
doc proteger múltiples hojas de trabajo
Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Hacer que una celda sea obligatoria para ingresar con VBA


Kutools for Excel, con más de 120 prácticas funciones de Excel, mejore su eficiencia de trabajo y ahorre tiempo de trabajo.

1. Habilite el libro de trabajo que contiene la celda obligatoria y presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.

2. En el Proyecto panel, doble clic ThisWorkbooke ir a seleccionar Libro de trabajo y BeforeClose de la lista de la sección derecha, luego pegue el código debajo de la secuencia de comandos. Ver captura de pantalla:

VBA: hacer una celda obligatoria

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

doc mandantory ingrese 1

3. A continuación, guarde este código y cierre esta ventana emergente. Ahora, si la celda B1 está en blanco cuando cierra el libro, el cuadro de diálogo siguiente aparecerá para recordarle que ingrese algo en B1. Ver captura de pantalla:
doc mandantory ingrese 2

Tip: Puede cambiar la celda B1 a otras celdas que desee.

doc descarga 1


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Akshay Patil · 3 months ago
    I want to make rows C2 to C7 mandatory and C13 to C19 mandatory?

    Any help?

    2 sets of ranges are here but under the same column.
  • To post as a guest, your comment is unpublished.
    Shea · 1 years ago
    Is there any way that I can Required cell f4 and F5 have data before closing or saving?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Just change B1 to F4 and F5 in the textbox to remind users.
  • To post as a guest, your comment is unpublished.
    zwaenepoel · 2 years ago
    Hello, thank you for this formula, it works!

    However, now I have created a template in which several cells are mandatory to fill out. But after creating the template and entering the macro, I cannot close it, because I have to fill out the cells :) So, I cannot send out a template...(where the mandatory cells must still be empty)


    Can you help me?

    Thanks!
    • To post as a guest, your comment is unpublished.
      Sally · 1 months ago
      I have this same issue. Is there a way to make a cell mandatory but blank for a template?
    • To post as a guest, your comment is unpublished.
      M · 5 months ago
      I'm interested in this also, thanks!
    • To post as a guest, your comment is unpublished.
      zagreb · 1 years ago
      Any update on this?
  • To post as a guest, your comment is unpublished.
    Shabaaz · 2 years ago
    Did you ever fined an answer to this?
  • To post as a guest, your comment is unpublished.
    ashley · 2 years ago
    how do i make column D16-D300 mandatory if column B16-300 has values? I used the code below for row 16 and tried variations but it is not working. any help is greatly appreciated!


    'us business as a mandatory field- need to fix if none are there and window pops up

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Step 1: Check to see if Cell A1 is blank
    If Sheets("Sensitive Leave Tracker").Range("B16").Value "" And Sheets("Sensitive Leave Tracker").Range("D16").Value = "" Then

    'Step 2: Blank: cancel the Close and tell the user
    Cancel = True
    MsgBox "Cant close field required"
    'Step 3: Not Blank; Save and Close
    Else
    ActiveWorkbook.Close SaveChanges:=True

    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Hello, sorry to reply so late. Here is the macro code you may be need. If it works, please let me know. Thanks!

      If Application.WorksheetFunction.CountA(Range("B16:B300")) > 0 Then

      If Application.WorksheetFunction.CountA(Range("D16:D300")) <> Range("D16:D300").Count Then

      MsgBox "Cell D16:D300 requires user input", vbInformation, "Kutools for Excel"

      Cancel = True

      End If

      End If