¿Cómo evitar guardar si una celda específica está en blanco en Excel?
Por ejemplo, diseñó un formulario en una hoja de trabajo y lo compartió con sus colegas. Espera que sus colegas llenen sus nombres en la celda específica para indicar quién ingresó a este formulario; de lo contrario, evitarán que guarden el formulario, ¿cómo podría hacerlo? Aquí presentaré una macro de VBA para evitar guardar un libro de trabajo si la celda específica está en blanco en Excel.
Evite guardar si una celda específica está en blanco en Excel
Para evitar guardar el libro actual si la celda específica está en blanco en Excel, puede aplicar la siguiente macro de VBA fácilmente.
Paso 1: Abra la ventana de Microsoft Visual Basic para Aplicaciones presionando el otro + F11 llaves mientras tanto.
Paso 2: en el Explorador de proyectos, expanda el VBAProject (nombre de su libro de trabajo.xlsm) y Objetos de Microsoft Excely luego haga doble clic en el ThisWorkbook. Ver captura de pantalla a la izquierda:
Paso 3: En la ventana de apertura de ThisWorkbook, pegue la siguiente macro de VBA:
Macro de VBA: evite guardar si la celda específica está en blanco
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook
xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)
If xWSh Is Nothing Then
Set xWSh1 = xWShs.Add
xWSh1.Name = xStrWSH
xWSh1.Visible = xlSheetVeryHidden
Cancel = False
Else
If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
Cancel = True
MsgBox "Save cancelled"
End If
End If
End Sub
Nota: 1. En la fila 26 del código VBA anterior, el "Hoja1" es el nombre específico de la hoja de cálculo y el "A1"es la celda específica, y puede cambiarla cuando lo necesite.
2. Después de ingresar el VBA en ThisWorkbook, primero debe guardar el libro de trabajo. Y luego puede enviar el archivo habilitado para macros a otros.
Ahora, si la celda específica está en blanco en el libro de trabajo actual, cuando la guarda, aparece un cuadro de diálogo de advertencia que le dice "Guardar cancelado". Vea la siguiente captura de pantalla:
Artículos Relacionados
¿Cómo verificar o encontrar si la celda contiene una cadena / texto / palabra específicos en Excel?
¿Cómo copiar filas si la columna contiene texto / valor específico en Excel?
¿Cómo copiar celdas si la columna contiene un valor / texto específico en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!