Pass value between events : Workbook Event « Excel « VBA / Excel / Access / Word

VBA / Excel / Access / Word

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

Java Source Code / Java Documentation

Java Open Source

Jar File Download

Photoshop Tutorials

Flash Tutorials

3ds-Max Tutorials

Illustrator Tutorials

C# / CSharp Tutorial

C# / CSharp Open Source

ASP.NET Tutorial

JavaScript DHTML

JavaScript Tutorial

JavaScript Reference

HTML CSS Reference

Python Tutorial

Python Open Source

SQL Server / T-SQL

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

VB.Net Tutorial

Flash / Flex / ActionScript

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Excel » Workbook Event

Pass value between events


 

Dim OldSheet As Object

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    Set OldSheet = Sh

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If TypeName(Sh) = "Chart" Then

        MsgBox "Sorry, you can't activate any charts."

        OldSheet.Activate

    End If

End Sub

Related examples in the same category

1.	If you want to prevent users from printing only particular sheets in your workbook, use this similar code instead:
2.	Preventing Users from Inserting More Worksheets
3.	If you want Excel to stop prompting you to save changes you didn't make
4.	Before Save event
5.	To link that tab's command bar to a right-click in any cell, enter the following code in the private module of ThisWorkbook:
6.	Workbook activation events
7.	minimizes the workbook's window:
8.	Workbook_BeforePrint
9.	use the BeforePrint event to add information to a header or footer before the sheet is printed
10.	BeforeClose event is used to delete a custom menu
11.	create your own Save dialog in the event:
12.	Set application key in Workbook Open event and BeforeCloseEvent
13.	Workbook open event
14.	Workbook Events Open: enable custom toolbar
15.	procedure is executed when the workbook is closed
16.	Workbook_SheetSelectionChange
17.	The BeforeClose event for a workbook
18.	The BeforeSave event for a workbook
19.	Activate and deactivate events in a workbook
20.	Cancel Close action based on the A1 value
21.	only allow the workbook to close if the figure in A1 is between 500 and 600:
22.	If you want to make sure that all changes are saved when the workbook closes
23.	to discard any changes to the workbook

www.java2java.com | Contact Us

Copyright 2009 - 12 Demo Source and Support. All rights reserved.

All other trademarks are property of their respective owners.