Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing application problem
Hi,
Excel 2007 - Two simple macros. (I would suggest trying these out). Private Sub Workbook_Open() Application.DisplayFullScreen = True Application.DisplayFormulaBar = False End Sub Private Sub Workbook_BeforeClose(cancel As Boolean) Application.DisplayFullScreen = False Application.DisplayFormulaBar = True End Sub The problem is that when a change has been made to the workbook and the user clicks cancel when the save dialog appears there is then no option to close down the application. Is there any way to force the entire application window to be viewed in order that the close button can be selected. Sandy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing application problem
Try it,
Private Sub Workbook_BeforeClose(cancel As Boolean) If Not ActiveWorkbook.Saved Then If (MsgBox("Save the work?", vbYesNo)) = 6 Then ActiveWorkbook.Save Else ActiveWorkbook.Saved = True End If Application.DisplayFullScreen = False Application.DisplayFormulaBar = True End If End Sub "Sandy" escreveu na mensagem ... Hi, Excel 2007 - Two simple macros. (I would suggest trying these out). Private Sub Workbook_Open() Application.DisplayFullScreen = True Application.DisplayFormulaBar = False End Sub Private Sub Workbook_BeforeClose(cancel As Boolean) Application.DisplayFullScreen = False Application.DisplayFormulaBar = True End Sub The problem is that when a change has been made to the workbook and the user clicks cancel when the save dialog appears there is then no option to close down the application. Is there any way to force the entire application window to be viewed in order that the close button can be selected. Sandy |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Closing application problem
Hi Clarindo
This certainly takes the 'Cancel' aspect out of the options. Thank you it works well. Sandy "Clarindo" wrote in message ... Try it, Private Sub Workbook_BeforeClose(cancel As Boolean) If Not ActiveWorkbook.Saved Then If (MsgBox("Save the work?", vbYesNo)) = 6 Then ActiveWorkbook.Save Else ActiveWorkbook.Saved = True End If Application.DisplayFullScreen = False Application.DisplayFormulaBar = True End If End Sub "Sandy" escreveu na mensagem ... Hi, Excel 2007 - Two simple macros. (I would suggest trying these out). Private Sub Workbook_Open() Application.DisplayFullScreen = True Application.DisplayFormulaBar = False End Sub Private Sub Workbook_BeforeClose(cancel As Boolean) Application.DisplayFullScreen = False Application.DisplayFormulaBar = True End Sub The problem is that when a change has been made to the workbook and the user clicks cancel when the save dialog appears there is then no option to close down the application. Is there any way to force the entire application window to be viewed in order that the close button can be selected. Sandy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
closing the application | Excel Discussion (Misc queries) | |||
Closing Excel Application | Excel Programming | |||
closing an excel application | Excel Programming | |||
More help on closing Excel.Application | Excel Programming | |||
Problem with closing the excel application | Excel Programming |