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

"?B?RXJpYw==?=" wrote in
:

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


Make the file read-only!


--

It is I, DeauDeau
(Free after monsieur Leclerc in 'Allo, 'allo)

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.
--
Earl Kiosterud
www.smokeylake.com

"Eric" wrote in message
...
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

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)


"Eric" wrote in message
...
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

Earl,

Thanks so much for the information. I will try that!!!!

Eric

"Earl Kiosterud" wrote:

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.
--
Earl Kiosterud
www.smokeylake.com

"Eric" wrote in message
...
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

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


"Bob Phillips" wrote:

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)


"Eric" wrote in message
...
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

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

--
Greetings from New Zealand
Bill K

"Eric" wrote in message
...
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


"Bob Phillips" wrote:

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)


"Eric" wrote in message
...
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