Ir para o conteúdo principal

Como evitar o salvamento se uma célula específica estiver em branco no Excel?

Por exemplo, você criou um formulário em uma planilha e compartilhou com seus colegas. Você espera que seus colegas preencham seus nomes na célula específica para indicar quem entrou neste formulário, caso contrário, evite que eles salvem o formulário, como você faria? Aqui, apresentarei uma macro VBA para evitar o salvamento de uma pasta de trabalho se a célula específica estiver em branco no Excel.


seta azul bolha direitaImpedir o salvamento se a célula específica estiver em branco no Excel

Para evitar salvar a pasta de trabalho atual se a célula específica estiver em branco no Excel, você pode aplicar a macro VBA a seguir facilmente.

Etapa 1: Abra a janela Microsoft Visual Basic for Applications pressionando o botão outro + F11 chaves enquanto isso.

Etapa 2: no Project Explorer, expanda o VBAProject (nome da pasta de trabalho.xlsm) e Objetos do Microsoft Excele clique duas vezes no Esta pasta de trabalho. Veja a captura de tela à esquerda:

Etapa 3: na janela de abertura ThisWorkbook, cole a seguinte macro VBA:

Macro VBA: impede o salvamento se a célula específica estiver em branco

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. Na 26ª linha do código VBA acima, o "Folha1" é o nome específico da planilha e o "A1"é a célula específica e você pode alterá-los conforme necessário.
2. Depois de inserir o VBA em Esta pasta de trabalho, você deve salvar a pasta de trabalho primeiro. E então você pode enviar o arquivo habilitado para macro para outras pessoas.

Agora, se a célula específica estiver em branco na pasta de trabalho atual, quando você salvá-la, uma caixa de diálogo de aviso aparecerá e informará "Salvar cancelado". Veja a seguinte captura de tela:


seta azul bolha direitaArtigos Relacionados

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao,
io avrei bisogno di impostare una macro simile a quella di Eduardo. In particolare, ho due tabelle:
'- prima tabella A18:P28
'- seconda tabella A33:P41.
Vorrei impedire che l'utente salvi il file se ha compilato la cella A18 e le altre attigue (B18:P18) le ha lasciate vuote oppure se ha compilato la cella A33 e ha lasciato vuole le attigue (B33:P33). In questo caso, come dovrei impostare la macro? Grazie in anticipo a chi risponderà!
This comment was minimized by the moderator on the site
Hi there,

Do you mean that you want to prevent from saving the file if A18 is filled while B18: P18 are blank? You also want to prevent from saving if A33 is filled while B33: P33 are blank?
Do you want to prevent from saving when both criteria are met, or when either of the criteria is met?
Also, please use English. Thanks in advance.

Amanda
This comment was minimized by the moderator on the site
This is not working, it states save cancelled but still ends up saving the workbook
This comment was minimized by the moderator on the site
Note: In the VBA code, the "TEST" is the specific worksheet name, and the "A1" is the specific cell, and you can change them as you need.

For example, your sheet is named as "Sheet1", and the specified cell is B2, you need to change the sheet name and cell address in the VBA code before running it
This comment was minimized by the moderator on the site
I tried above formula which works. May i know is there any formula can force user to fill in before they can save? As i set the pull down menu "Please select", "Yes" or "No" for them to select. But they always forgot to select that field and remain "Please select". If i add this VBA code only apply cell is blank. Much appreciate you can advise. Thank you
This comment was minimized by the moderator on the site
Hi Happy,
Just replace the empty value “Sheets("TEST").Range("A1").Value = ""” to the specified text “Sheets("TEST").Range("A1").Value = "Please select"”And the whole code will be changed as below:
<div data-tag="code">Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.Sheets("TEST").Range("A1").Value = "Please select" Then
Cancel = True
MsgBox "Save cancelled"
End If
End Sub

This comment was minimized by the moderator on the site
Hi, I tried above formula which works. May i know is there any formula can force user to fill in before they can save? As i set the pull down menu "Please select", "Yes" or "No" for them to select. But they always forgot to select that field and remain "Please select". If i add this VBA code only apply cell is blank. Much appreciate you can advise. Thank you
This comment was minimized by the moderator on the site
Hi
I have a VBA code that sorts and filters data from one excel table and save 48 different reports on my desktop. but based on those filters, some generated reports have only 1 row (headers) and no data. How can I add some VBA code to my file that prevents to save files that has just one row (header) and no data?
Thank you
This comment was minimized by the moderator on the site
HiI have a VBA code that sorts and filters data from one excel table and save 48 different reports on my desktop. but based on those filters, some generated reports have only 1 row (headers) and no data. How can I add some VBA code to my file that prevents to save files that has just one row (header) and no data?Thank you
This comment was minimized by the moderator on the site
good afternoon, I used the code above and it worked perfectly. my question is what should the code look like if I want to test on 2 cells? I am quite desperate. thanking you I advance for your assistance
This comment was minimized by the moderator on the site
I have a very big spreadsheet that contains a lot of info.
Can someone please help me with a code to copy into VBA - I want it to be that if Cell C2-C1000+ have any info in them then cell O2-O1000+ and P2-P1000+ requires user input - however if a cell in Column C is empty then the cell in Column O & P can be empty as well. (for example) if cell C3 doesn't have any data input then cell O3-P3 can be empty.

Thank you :)
This comment was minimized by the moderator on the site
Hi Yzelle,
Please remember to place below code into “ThisWorkbook” script window, and rename the worksheet name “Test” in the below code based on your condition.

Dim xIRg As Range
Dim xSRg As Range
Dim xBol As Boolean
Dim xInt As Integer
Dim xStr As String
If ActiveSheet.Name = "Test" Then
Set xRg = Range("C:C")
Set xRRg = Intersect(xRg.Worksheet.UsedRange, xRg)
xBol = False
On Error Resume Next
For xInt = 1 To xRRg.Count
Set xIRg = xRRg.Item(xInt)
If xIRg.Value2 <> "" Then
Set xSRg = Nothing
If (Range("O" & xIRg.Row) = "") Or (Range("P" & xIRg.Row) = "") Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
Cancel = True
MsgBox "Save cancelled"
End If
End If
End Sub
This comment was minimized by the moderator on the site
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets("Sheet1")
If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Then
Cancel = True
MsgBox "Please enter a values in columns B and C", vbCritical, "Error!"
End If
End With

End Sub


Just change the range from a to c, and from b to o and p
hope it will help
This comment was minimized by the moderator on the site
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets("Sheet1")
If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Then
Cancel = True
MsgBox "Please enter a values in columns B and C", vbCritical, "Error!"
End If
End With

End Sub

Just change the range from a to c, and from b to o and phope it will help
This comment was minimized by the moderator on the site
Do you have a way that this can be coded so that either B or C need to be populated but its not required to populate both?
This comment was minimized by the moderator on the site
This is really great. Do you know what I can do to make this work for a range of sheets and a number of cells? Also, these cells cannot always be the same, as there are sheets generated in this specific workbook which may not have the same cell needing to be filled each time. The cells will always be in the same column, just above the page border which is also generated. Thanks!
This comment was minimized by the moderator on the site
Hi, very useful. BUT there is a problem when I use it for files on the sharepoint. The changes are not saved but a new version is created that is displayed when reopening which is quite confusing. Is it possible to disable these new versions ?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations