I have a workbook with all worksheets protected, located on a network. When
the user closes, Excel puts up a message, €œDo you want to save€¦€� giving the
user the option to save. I do not want the user to have this option. How do
I do this? Below is existing Auto_Close()

Sub Auto_Close()
Application.ScreenUpdating = False
Sheets("REP003").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.Goto Reference:=Range("A100"), Scroll:=False
ActiveWindow.Zoom = 85
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = True
End Sub

perhaps if you set the property to saved (make it think it is saved)
with:

thisworkbook.saved = true

That might stop it, not entirely sure though how that one works, I
would personally put thisworkbook.close(false) which should not save
it.

Test it though,

Duncan

Phil H wrote:

I have a workbook with all worksheets protected, located on a network. When
the user closes, Excel puts up a message, "Do you want to save..." giving the
user the option to save. I do not want the user to have this option. How do
I do this? Below is existing Auto_Close()

Sub Auto_Close()
Application.ScreenUpdating = False
Sheets("REP003").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.Goto Reference:=Range("A100"), Scroll:=False
ActiveWindow.Zoom = 85
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = True
End Sub

This code should work for it

ThisWorkbook.Saved = True

I have it in a macro being run on the before close event

"Phil H" wrote:

I have a workbook with all worksheets protected, located on a network. When
the user closes, Excel puts up a message, €œDo you want to save€¦€� giving the
user the option to save. I do not want the user to have this option. How do
I do this? Below is existing Auto_Close()

Sub Auto_Close()
Application.ScreenUpdating = False
Sheets("REP003").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.Goto Reference:=Range("A100"), Scroll:=False
ActiveWindow.Zoom = 85
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = True
End Sub

Hi Phil,

Try:

'=============
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub
'<<=============

This is workbook event code and should be pasted into the workbook's
ThisWorkbook module *not* a standard module or a sheet module:

Right-click the Excel icon on the worksheet
(or the icon to the left of the File menu if your workbook is maximised)

Select 'View Code' from the menu and paste the code.


---
Regards,
Norman



"Phil H" wrote in message
...
I have a workbook with all worksheets protected, located on a network.
When
the user closes, Excel puts up a message, "Do you want to save." giving
the
user the option to save. I do not want the user to have this option. How
do
I do this? Below is existing Auto_Close()

Sub Auto_Close()
Application.ScreenUpdating = False
Sheets("REP003").Select
Application.Goto Reference:=Range("A1"), Scroll:=True
Application.Goto Reference:=Range("A100"), Scroll:=False
ActiveWindow.Zoom = 85
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = True
End Sub

ActiveWorkbook.Saved = Tru

--
Kaa
-----------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...nfo&userid=751
View this thread: http://www.excelforum.com/showthread.php?threadid=55591