| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
close w/o saving
i have the following macro in a macro enabled template (xl 2007):
ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
close w/o saving
Before the close line:
Application.Display Alerts = False After the Close line: Application.Display Alerts = True HTH, Paul -- "jatman" wrote in message ... i have the following macro in a macro enabled template (xl 2007): ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
close w/o saving
i get a run-time error, 483 - object doesn't support this property or method.
when i hit debeg, it highlights the first application.display alerts = false line. thank you though, jat "PCLIVE" wrote: Before the close line: Application.Display Alerts = False After the Close line: Application.Display Alerts = True HTH, Paul -- "jatman" wrote in message ... i have the following macro in a macro enabled template (xl 2007): ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
close w/o saving
Remove the space between 'display' and 'alerts'.
Regards, Fred. "jatman" wrote in message ... i get a run-time error, 483 - object doesn't support this property or method. when i hit debeg, it highlights the first application.display alerts = false line. thank you though, jat "PCLIVE" wrote: Before the close line: Application.Display Alerts = False After the Close line: Application.Display Alerts = True HTH, Paul -- "jatman" wrote in message ... i have the following macro in a macro enabled template (xl 2007): ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
close w/o saving
First of all, displayalerts has no space.
Secondly, that won't prevent saving. You must fake Excel into thinking the workbook is already saved. With ActiveWorkbook .Saved = True .Close End With Gord Dibben MS Excel MVP On Thu, 28 Feb 2008 15:22:00 -0800, jatman wrote: i get a run-time error, 483 - object doesn't support this property or method. when i hit debeg, it highlights the first application.display alerts = false line. thank you though, jat "PCLIVE" wrote: Before the close line: Application.Display Alerts = False After the Close line: Application.Display Alerts = True HTH, Paul -- "jatman" wrote in message ... i have the following macro in a macro enabled template (xl 2007): ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
close w/o saving
Sorry about the typo. Remove the space as others have mentioned.
Before the close line: Application.DisplayAlerts = False After the Close line: Application.DisplayAlerts = True -- "jatman" wrote in message ... i get a run-time error, 483 - object doesn't support this property or method. when i hit debeg, it highlights the first application.display alerts = false line. thank you though, jat "PCLIVE" wrote: Before the close line: Application.Display Alerts = False After the Close line: Application.Display Alerts = True HTH, Paul -- "jatman" wrote in message ... i have the following macro in a macro enabled template (xl 2007): ActiveSheet.Name = Range("B1").Value & " (PO# " & Range("B5").Value & " Error Sheet.xlsx" ' (this just renames it so i can use it as the subject line) ActiveWorkbook.SendMail ", Subject:=ActiveSheet.Name '(works right up to here) ActiveWorkbook.Close ActiveWorkbook.SaveChanges = False (i do not want to save any changes made to the template - just close it.) any suggestions on how to close the template without saving the information that was entered? thank you, jat the last two lines need some manipulation but i cannot find the right two lines. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to Prompt User to Close After Saving | Excel Discussion (Misc queries) | |||
| VBA - Close without saving changes | Excel Discussion (Misc queries) | |||
| Am i the first person to close and excel file, without saving chan | Excel Discussion (Misc queries) | |||
| Excel 2003: File->Close without saving changes (save menu does no. | Excel Discussion (Misc queries) | |||
| Excel shoud not close all active books when clicking close button | Excel Discussion (Misc queries) | |||
Linear Mode
