It's simple. Take a look:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
If SaveAsUI Then
MsgBox "U can't use Save As function!" & vbcr _
& vbcr & "U can use ONLY Save function",
vbCritical, "No privillages"
Cancel = True
End If
End Sub

-----Original Message-----
I am experience in Excel, however, I am new to the
administrative part. I would like to make a spreadsheet
available through our LAN for many people to view and
make
changes, but I want to know if there is programming that
will keep that spreadsheet being saved in ONE location on
the network. Does anyone know this?

Thank you for all your help,
Christine
.