'Saved' Property not working
 

There's no reason to set the Saved property after a save since Excel sets
it. Try this:

Sub Savefile()
SavedName = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=SavedName
MsgBox ActiveWorkbook.Saved
End Sub

If this returns False for your problem workbook you might see if these
articles are useful:

http://support.microsoft.com/default...88&Product=xlw

http://support.microsoft.com/default...57&Product=xlw

--
Jim Rech
Excel MVP
"exceller" wrote in message
...
| Hi MVPs,
|
| When I set the Saved property of a workbook to True after saving the file
| using the GetSaveasFilename method, the Saved property still seems to be
| False. This is done by using the 2 subs below.
|
| For some reason, this is only the case for this particular program that I
am
| developing. For other Excel files and programs I have developed, the Saved
| property stays True.
|
| Any ideas why the Saved property would remain false even after setting it
to
| True?
|
|
| Sub Savefile()
| SavedName = Application.GetSaveAsFilename
| ThisWorkbook.SaveAs Filename:=SavedName
| ActiveWorkbook.Saved = True
| End Sub
|
| Sub Checksave()
| If Not ActiveWorkbook.Saved Then
| MsgBox "UNSAVED"
| Else: MsgBox "SAVED"
| End If
| End Sub

'Saved' Property not working
 

Thanks.

I think I've narrowed the problem. When I run the code below, the 1st msgbox
returns TRUE and the 2nd msgbox returns FALSE. Something strange happens in
between which sets the Saved property to FALSE.

This problem only occurs using the Save As method. Using the Save method the
Saved property always remains TRUE. Those articles which you suggested didn't
really help either.

Any more suggestions?


Sub Savefile()
SavedName = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=SavedName
MsgBox ActiveWorkbook.Saved
MsgBox ActiveWorkbook.Saved
End Sub



"Jim Rech" wrote:

There's no reason to set the Saved property after a save since Excel sets
it. Try this:

Sub Savefile()
SavedName = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=SavedName
MsgBox ActiveWorkbook.Saved
End Sub

If this returns False for your problem workbook you might see if these
articles are useful:

http://support.microsoft.com/default...88&Product=xlw

http://support.microsoft.com/default...57&Product=xlw

--
Jim Rech
Excel MVP
"exceller" wrote in message
...
| Hi MVPs,
|
| When I set the Saved property of a workbook to True after saving the file
| using the GetSaveasFilename method, the Saved property still seems to be
| False. This is done by using the 2 subs below.
|
| For some reason, this is only the case for this particular program that I
am
| developing. For other Excel files and programs I have developed, the Saved
| property stays True.
|
| Any ideas why the Saved property would remain false even after setting it
to
| True?
|
|
| Sub Savefile()
| SavedName = Application.GetSaveAsFilename
| ThisWorkbook.SaveAs Filename:=SavedName
| ActiveWorkbook.Saved = True
| End Sub
|
| Sub Checksave()
| If Not ActiveWorkbook.Saved Then
| MsgBox "UNSAVED"
| Else: MsgBox "SAVED"
| End If
| End Sub

'Saved' Property not working
 

That's really perplexing. Sorry, I have no idea what's causing this.
--
Jim Rech
Excel MVP

"exceller" wrote in message
...
Thanks.

I think I've narrowed the problem. When I run the code below, the 1st
msgbox
returns TRUE and the 2nd msgbox returns FALSE. Something strange happens
in
between which sets the Saved property to FALSE.

This problem only occurs using the Save As method. Using the Save method
the
Saved property always remains TRUE. Those articles which you suggested
didn't
really help either.

Any more suggestions?


Sub Savefile()
SavedName = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=SavedName
MsgBox ActiveWorkbook.Saved
MsgBox ActiveWorkbook.Saved
End Sub



"Jim Rech" wrote:

There's no reason to set the Saved property after a save since Excel sets
it. Try this:

Sub Savefile()
SavedName = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=SavedName
MsgBox ActiveWorkbook.Saved
End Sub

If this returns False for your problem workbook you might see if these
articles are useful:

http://support.microsoft.com/default...88&Product=xlw

http://support.microsoft.com/default...57&Product=xlw

--
Jim Rech
Excel MVP
"exceller" wrote in message
...
| Hi MVPs,
|
| When I set the Saved property of a workbook to True after saving the
file
| using the GetSaveasFilename method, the Saved property still seems to
be
| False. This is done by using the 2 subs below.
|
| For some reason, this is only the case for this particular program that
I
am
| developing. For other Excel files and programs I have developed, the
Saved
| property stays True.
|
| Any ideas why the Saved property would remain false even after setting
it
to
| True?
|
|
| Sub Savefile()
| SavedName = Application.GetSaveAsFilename
| ThisWorkbook.SaveAs Filename:=SavedName
| ActiveWorkbook.Saved = True
| End Sub
|
| Sub Checksave()
| If Not ActiveWorkbook.Saved Then
| MsgBox "UNSAVED"
| Else: MsgBox "SAVED"
| End If
| End Sub