WorkbookBeforeSave
Primeiro devemos criar um módulo de classe e renome-lo para AppEventCls.
1) Entre no VBA depois em Inserir>Módulo de classe
2) Click no módulo para seleciona-lo depois nas Propriedades do módulo altere o nome para AppEventCls
3) Ao final o resultado deve ser como a a imagem abaixo.
De um duplo click no módulo de classe, copie e cole o código abaixo.
Option Explicit
'Modulo de classe AppEventCls
Public WithEvents myApp As Application
Private Sub myApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox Wb.Name & ", foi salvo - Por Evento Application"
End Sub
Pronto!!! Já expandimos esse evento para todo o objeto application, mas agora vamos precisar inicializar esse evento para que comece a ser utilizado, para isso vamos criar uma rotina em um módulo.
1) Entre no VBA depois em Inserir>Módulo
2) Ao final o resultado deve ser como a a imagem abaixo.
De um duplo click no módulo, copie e cole o código abaixo.
Option Explicit
'Declarando uma variavel que vai assumir os eventos do módulo
Dim myAppCls As New AppEventCls
Sub InitializeAppEvent()
Set myAppCls.myApp = Application
End Sub
Execute o código acima e a cada vez que salvar uma pasta de trabalho no mesmo objeto application ou seja na mesma instancia desse Excel mas não se limitando a uma unica pasta de trabalho (workbook) sera exibida uma mensagem.
Nesse exemplo mostrei como dar o start manualmente por uma rotina, mas nada impede a execução por um evento padrão tipo open.
Clique aqui para baixar o arquivo desse passo a passo.
Getting into my daily sessions used to be a hassle but this platform makes the login process a breeze. I love how they keep their promotions updated regularly without any confusing rules. My wallet feels great and the withdrawals hit my account super quick. spin96login
I stumbled upon this site by accident and it turned out to be the best decision I made this year. The variety of casino tables is insane and every dealer I matched was genuinely professional. Never have I felt this comfortable placing my bets online. 877betgame
Finding a trustworthy gaming hub that actually delivers on its promises is rare these days. This place keeps its word with fair odds and lightning fast payouts. I play here after work to unwind and it never disappoints me. nm77
Word is, it has a smooth interface with decent variety of games on i8betliink. If you are looking for a new website try i8betliink.
Seriously, check out vin7771nohu. It’s a blast! Good payouts and keeps you on your toes. My recommendation: vin7771nohu
7gamesapp… Play mobile games for cash? Sign me up! Well I did but now I am broke. Give it a try at: 7gamesapp
The login process is super quick and I didn’t face any lag. It is definitely one of the best platforms I have used recently. Visit onyxlogin today.
I love how easy it is to deposit and withdraw on this platform. The mobile experience is top notch and the game selection keeps getting better with every update. My friends and I have been coming back for months because the gameplay is fair and the payouts are genuine. Stop by and see for yourself idmpo88asia