Activate, Deactivate events
The Activate event occurs when an object becomes the active window. The Deactivate event occurs when an object is no longer the active window.
Private Sub object_Activate( )
Private Sub object_Deactivate( )
The object placeholder represents an object expression that evaluates to an object in the Applies To list.
An object can become active by using the Show method in code.
The Activate and Deactivate events occur only when you move the focus within an application. Moving the focus to or from an object in another application doesn't trigger either event.
The Deactivate event doesn't occur when unloading an object.
The following code uses two UserForms: UserForm1 and UserForm2. Copy these procedures into the UserForm1 module, and then add UserForm2. UserForm1's caption is created in its Activate event procedure. When the user clicks the client area of UserForm1, UserForm2 is loaded and shown triggering UserForm1's Deactivate event, changing their captions.
' Activate event for UserForm1 Private Sub UserForm_Activate() UserForm1.Caption = "Click my client area" End Sub ' Click event for UserForm1 Private Sub UserForm_Click() Load UserForm2 UserForm2.StartUpPosition = 3 UserForm2.Show End Sub ' Deactivate event for UserForm1 Private Sub UserForm_Deactivate() UserForm1.Caption = "I just lost the focus!" UserForm2.Caption = "Focus just left UserForm1 and came to me" End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.