Home Excel - Dicas Microsoft Excel VBA Excel VBA - Eventos Excel vba evento beforesave salva se a1 nao branco

Excel vba evento beforesave salva se a1 nao branco

E-mail Imprimir PDF

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.


  Baixe o exemplo de planilha contendo o Macro e procedimento acima:

Última atualização em Dom, 27 de Janeiro de 2013 09:54  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4900
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19947
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38135
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460964
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA