Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Close routine
Hi...
I have a closing routine that shuts down excel and saves the file to my desktop. How can I remove the 'this file already exists, would you like to save changes' box that comes up... This what I've got so far... ub auto_close() MsgBox "PATCH 2004 WILL NOW SAVE CHANGES CLOSE" CommandBars("Worksheet Menu Bar").Enabled = True Application.DisplayFullScreen = False Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True Application.DisplayStatusBar = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = True MenuBars(xlWorksheet).Menus("Data").Enabled = True MenuBars(xlWorksheet).Menus("Help").Enabled = True MenuBars(xlWorksheet).Menus("Edit").Enabled = True MenuBars(xlWorksheet).Menus("Format").Enabled = True MenuBars(xlWorksheet).Menus("Insert").Enabled = True MenuBars(xlWorksheet).Menus("Window").Enabled = True MenuBars(xlWorksheet).Menus("Help").Enabled = True MenuBars(xlWorksheet).Menus("Tools").Enabled = True MenuBars(xlWorksheet).Menus("View").Enabled = True Dim wsh As Object Dim myPath As String Set wsh = CreateObject("WScript.Shell") myPath = wsh.SpecialFolders.Item("Desktop") ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\DESKTOP" & "\" & "PATCH04.xls", _ FileFormat:=xlWorkbookNormal ActiveWorkbook.Close savechanges:=True Application.Quit End Sub Cheers GC |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
sub routine | Excel Discussion (Misc queries) | |||
why do all excel worksheets/workbooks close when I close one? | Excel Discussion (Misc queries) | |||
Excel shoud not close all active books when clicking close button | Excel Discussion (Misc queries) | |||
excel - Windows close button (x) should only close active workboo. | Setting up and Configuration of Excel | |||
Need VBA Routine | Excel Programming |