ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Is this code ok? (https://www.excelbanter.com/excel-programming/393017-code-ok.html)

ADK

Is this code ok?
 
Before I implement this in my workbook, I just wanted to know if anyone sees
issues/problems with using this code. Seems to work fine. If ok, should I
include error handling in the code?

Both are in ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.Quit
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Thanks,

ADK
VBA Beginner



Bob Phillips

Is this code ok?
 
Looks okay, but what happens if the workbook has changed, you will get a
message asking to save. Is that OK< or do you want to handle automatically?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ADK" wrote in message
...
Before I implement this in my workbook, I just wanted to know if anyone
sees issues/problems with using this code. Seems to work fine. If ok,
should I include error handling in the code?

Both are in ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.Quit
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Thanks,

ADK
VBA Beginner




Dave Peterson

Is this code ok?
 
I don't like other workbooks that try to close excel. What if I have multiple
workbooks open when I close your workbook?

ADK wrote:

Before I implement this in my workbook, I just wanted to know if anyone sees
issues/problems with using this code. Seems to work fine. If ok, should I
include error handling in the code?

Both are in ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.Quit
End Sub

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub

Thanks,

ADK
VBA Beginner


--

Dave Peterson


All times are GMT +1. The time now is 04:59 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com