Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse procedimento do Aplicativo Microsoft Excel VBA, salva se a Célula(A1) não estiver vazia,
caso esteja vazia, o evento BeforeSave, será false e enviará uma mensagem que não poderá salvar a planilha,
e vai inserir formatações e msg na coluna(D), caso contrario, isto é, caso contiver algo na célula(A1),
Salvará a Planilha e também enviará uma mensagem formatando algumas células, observe que as cores do interior
da célula e fonte também seguirão a formatação (A1) e (D4).
'- - - - - - - - - - - - - - - - - - -'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim x As Long
x = 19
  If [a1] = "" Then
     MsgBox ("Não Posso Salvar porque a célula [A1] está vazia!!"), a, s
     Cancel = True
     Range("D4:D" & x).Value = "NAO POSSO SALVAR A PLANILHA CELULA[A1] EM BRANCO"
     Range("D4:D" & x).Interior.ColorIndex = 3
     Range("D4:D" & x).Font.ColorIndex = 2
     [a1].Interior.ColorIndex = [d4].Interior.ColorIndex
     [a1].Font.ColorIndex = [d4].Font.ColorIndex
     sbx_ocultar_shapes_1
  Else
     MsgBox ("Dados na planilha foram Salvos com sucesso"), a, s
     Range("D4:D" & x).Value = "Planilha salva com sucesso!,celula A1 não vazia!"
     Range("D4:D" & x).Interior.ColorIndex = 4
     Range("D4:D" & x).Font.ColorIndex = 9
     [a1].Interior.ColorIndex = [d4].Interior.ColorIndex
     [a1].Font.ColorIndex = [d4].Font.ColorIndex
     sbx_ocultar_shapes_2
   End If
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - -'
EM UM MÓDULO COMUM INSIRA
'- - - - - - - - - - - - - - - - - - - - - - - -'
Global Const s = "Escola Saberexcel VBA Estudos®"
Global Const a = vbInformation

Sub sbx_ocultar_shapes_1()
Plan1.Shapes("saber1").Visible = True
Plan1.Shapes("Saber2").Visible = False
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_ocultar_shapes_2()
Plan1.Shapes("Saber1").Visible = False
Plan1.Shapes("Saber2").Visible = True
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -'

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Not Application.Intersect(Range("c3:C20000"), Range(Target.Address)) Is Nothing Then
   vLin = Target.Row
   Range("I" & CStr(vLin)).Value = Now()
End If
End Sub

Saberexcel - o Site das Macros
Este procedimento do Aplicativo Microsoft Excel VBA ao executar um duplo click insere a palavra ["Ok"] em determinado range, neste caso o intervalo de células que será sensibilizado pelo Evento Duplo Click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "")
Cancel = True
End Sub

Aprenda tudo sobre o aplicativo Microsoft Excel VBA com Saberexcel