Makeing People Save As

E

Eric

I have an excel spreadsheet on a shared drive at work. When people in the
office open the file, is there a way to make them "save as" and not to be
able to type on the original file?

Thanks for any help in advance!!!

Eric
 
D

Dodo

I have an excel spreadsheet on a shared drive at work. When people in
the office open the file, is there a way to make them "save as" and
not to be able to type on the original file?

Thanks for any help in advance!!!

Eric
Click to expand...

Make the file read-only!
 
E

Earl Kiosterud

Eric,

You can mark it read-only. The more typical solution is to save it as a
template, then have the users use File-New, using that template. Then they
do an ordinary save, and it saves as a workbook, not a template.
 
B

Bob Phillips

Eric,

You could force a save on open

Private Sub Workbook_Open()
Dim sFilename
sFilename = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If sFilename <> False Then
ThisWorkbook.SaveAs sFilename
Else
ThisWorkbook.Close False
End If
End If

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)
 
E

Eric

Bob,

Thank you for your information. I copied the code and pasted it into the
view code area, and it still does not work. I can open the file, type
anything in it and still it allows me to save it with what I have typed in.
Do I need to change any of the code after I paste it? I do GREATLY
appreciate your help!!

Eric
 
B

Bill Kuunders

Couldn't you protect the file with a password and have the "people in the
office" open the file "read only"?
They can then save as.........if they changed anything.

Go to <save as><tools(righthand top)><general options>
choose whether "people" can open or can modify
 
Top