Read-Only and Quitting without saving - Xtreme Visual Basic Talk

04-15-2003, 07:42 AM

burningice96 burningice96 is offline

Junior Contributor

Join Date: Apr 2003

Location: Montreal

Posts: 270

Read-Only and Quitting without saving

Alright, two questions about an Excel sheet loaded through VB. How would I load the sheet in Read-Only mode? It's important the users are not able to play with the data on the sheet. Also, is it possible to quit the program without saving? I mean, without giving the option to save. Just when the VB program ends, or when they close the Excel sheet, for it to just quit and not ask if you want to save changes. And then in addition to grey-out the save/open options in the File menu.

Thanks in advance.

04-15-2003, 11:57 AM

burningice96 burningice96 is offline

Junior Contributor

Join Date: Apr 2003

Location: Montreal

Posts: 270

No one knows anything about this?

The Read-Only and Menu altering isn't all that important. But I really need to know how to quit Excel without the user seeing a Save Changes box. I want to automatically not save and exit the program.

04-15-2003, 12:40 PM

italkid

Down...

Retired Moderator
* Expert *

Join Date: Dec 2002

Location: Belgium.

Posts: 6,731

Put this before the close code

Code:

Application.DisplayAlerts = False

This way the save changes dialog wont be displayed.

Maybe protecting your sheet(s) would prevent users to make changes to your sheet(s)....

04-15-2003, 01:28 PM

burningice96 burningice96 is offline

Junior Contributor

Join Date: Apr 2003

Location: Montreal

Posts: 270

That works perfectly. Thanks.

BTW, is there any way to turn off the alerts if you close Excel by clicking the X?

04-15-2003, 03:27 PM

italkid

Down...

Retired Moderator
* Expert *

Join Date: Dec 2002

Location: Belgium.

Posts: 6,731

Yes if you would put the same code in the
"Workbook_BeforeClose" event sub

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.Save

End Sub

Even if a user would close the Excel application itself you don't
get the that warning anymore.

04-16-2003, 07:52 AM

burningice96 burningice96 is offline

Junior Contributor

Join Date: Apr 2003

Location: Montreal

Posts: 270

Just one more question, if you don't mind, italkid.

Where do I put this method? I have the form that launches the spreadsheet, and the module where the spreadsheet is set up.

Thanks.

04-16-2003, 08:40 AM

italkid

Down...

Retired Moderator
* Expert *

Join Date: Dec 2002

Location: Belgium.

Posts: 6,731

Aah sorry,i forgot this whas an VB/Excel app.

Put this in your Form_Unload event :

Code:

Private Sub Form_Unload(Cancel As Integer)

    XlApp.Workbooks("Yourworkbookname").Close
    XlApp.Quit

    Set XlApp = Nothing

End Sub

Depending on what happend in the workbook you'll have to add
the .save and/or the displayalerts stuff.
(in this example the Excel App whas dimmed as XlApp)