Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing Dataform automatically
I have a spreadsheet used as a database. Upon open or activation I want to
show the dataform automatically. Upon close or deactivation of the worksheet I want it to close automatically. My code on closing or deactivation doesn't work. You have to physically select the close button on the form or use Alt-L for the keyboard shortcut. Apparently the open form precludes the macros. Can I close the form automatically and, if so, how? My code (in ThisWorkbook) Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next SendKeys "%{L}", True End Sub Private Sub Workbook_Open() On Error Resume Next ActiveSheet.ShowDataForm End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next ActiveSheet.ShowDataForm End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next SendKeys "%{L}", True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing Dataform automatically
It sure looks to me that you can't change sheets/windows until you dismiss that
Data|Form. How about just hitting the Escape key? Dkline wrote: I have a spreadsheet used as a database. Upon open or activation I want to show the dataform automatically. Upon close or deactivation of the worksheet I want it to close automatically. My code on closing or deactivation doesn't work. You have to physically select the close button on the form or use Alt-L for the keyboard shortcut. Apparently the open form precludes the macros. Can I close the form automatically and, if so, how? My code (in ThisWorkbook) Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next SendKeys "%{L}", True End Sub Private Sub Workbook_Open() On Error Resume Next ActiveSheet.ShowDataForm End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) On Error Resume Next ActiveSheet.ShowDataForm End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) On Error Resume Next SendKeys "%{L}", True End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Set macro to run automatically when closing workbook? | Excel Discussion (Misc queries) | |||
automatically close form before closing | Excel Discussion (Misc queries) | |||
To delete a row automatically ocne a closing date expires. | Excel Discussion (Misc queries) | |||
Prevent open excel windows from automatically closing. | Excel Discussion (Misc queries) | |||
mail merge-word file automatically closing | Excel Discussion (Misc queries) |