| Descricao: |
 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.
|