Detalhes de Excel vba evento beforesave salva se a1 nao branco

PropriedadeValor
Nome:Excel vba evento beforesave salva se a1 nao branco
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.

Nome do arquivo:Excel vba evento beforesave salva se a1 nao branco.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 27/01/2013 10:49
Visitas:Todos
Responsavel:Autor
Acessos:698 Acessos
Atualizado em: 27/01/2013 10:51
Site: