How do you turn off "Save a copy/Overwrite changes" dialog box

[Nicko]

Hello Guys,

I have created a (password to open) workbook using Excel 2003 SP1 on a
shared network drive which when I try to save by using Ctrl S or
clicking the Save icon gives me an irritating dialog box which asks:

"The file 'filename.xls' may have been changed by another user since
you last saved it. In that case what do you want to do?"

-Save a copy
-Overwrite changes


Please can someone tell me how to deactivate this annoying dialog box
as I have been unsuccesful so far in my efforts

Many thanks in advance

Nick

 

[Guest]

Hi, Nick,

I don't know if this would work, but you could try it - run the macro to
save the active workbook, instead of Ctrl-S/Save Button

Sub SaveMe()
Application.displayalerts = false
Activeworkbook.save
Application.displayalerts = true
End Sub

The first line will turn off all screen prompts (including hopefully yours),
the third will turn them back on again.

Hope this works

Pete

 

[Nicko]

Many thanks for your reply Peter,

I'm afraid I am still at a very basic stage with VB. I was hoping tha
one of you experts would know how to switch it off in the programme
if it's not to complicated to explain how/where would I save thi
script?

many thanks
Nick

Hi, Nick,

I don't know if this would work, but you could try it - run the macr
to
save the active workbook, instead of Ctrl-S/Save Button

Sub SaveMe()
Application.displayalerts = false
Activeworkbook.save
Application.displayalerts = true
End Sub

The first line will turn off all screen prompts (including hopefull
yours),
the third will turn them back on again.

Hope this works

Pete

 

[Bob Phillips]

Nicko,

Not sure, but try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim sFile
Application.EnableEvents = False
Cancel = True
Application.DisplayAlerts = False
If SaveAsUI Then
sFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If sFile <> False Then
ThisWorkbook.SaveAs sFile
End If
Else
ThisWorkbook.Save
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub



'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Gord Dibben]

Nicko

Perhaps this will apply.

Have a look at this KB Article

"The file may have been changed..." error when you save work­book to network
server in Excel 2002

http://support.microsoft.com/default.aspx?kbid=324491

Myrna Larson also reported that she got this error when opening a workspace
(*.xlw) file.

Opening the workbooks individually solved the problem.


Gord Dibben Excel MVP