Como impedir a gravação se uma célula específica estiver em branco no Excel?

Imagine que criou um formulário no Excel e o partilhou com os seus colegas. Pretende que cada um preencha o seu nome numa célula específica, de modo a identificar quem introduziu a informação. Caso essa célula fique em branco, quer impedir que o formulário seja guardado. Neste tutorial, mostro-lhe como usar uma macro VBA para bloquear o processo de gravação sempre que a célula designada estiver vazia no Excel.

---

Impedir a gravação se uma célula específica estiver em branco no Excel

Para impedir que o Livro de Trabalho Atual seja gravado quando uma célula específica estiver em branco no Excel, basta aplicar facilmente a seguinte macro VBA.

Passo 1: Abra a janela do Microsoft Visual Basic for Applications premindo simultaneamente as teclas Alt+F11.

Passo 2: No Explorador de Projetos, expanda VBAProject (O seu Nome da Pasta de Trabalho.xlsm) e Microsoft Excel Objetos e, em seguida, faça duplo clique em ThisWorkbook. Veja a imagem:

Passo 3: Na janela ThisWorkbook aberta, cole a seguinte macro VBA:

Macro VBA: Impedir a gravação se uma 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 linha 26 do código VBA acima, o "Sheet1"é a Nome da Planilha específica e o "A1é a célula específica; pode alterá-la conforme necessário.
2. Depois de introduzir o código VBA em ThisWorkbookDeverá primeiro guardar o livro e só depois poderá enviar o ficheiro com macros ativadas para outras pessoas.

Agora, se a célula específica estiver em branco no Livro de Trabalho Atual, aparecerá uma caixa de diálogo de aviso com a mensagem «Gravação cancelada» ao tentar guardar. Veja a seguinte imagem:

---

Artigos relacionados