Prevent Shared Excel Workbook form Being Overwritten

[YossiD]

I have created a shared Excel workbook to which many people need to add information. The workbook is saved on the company network in a public folder that everyone can access. Since each person needs to save the file with their additions, everyone has read/write privileges.

I am worried that someone might copy the file and work on it locally, and then save it back to the network location, thereby overwriting the original file, and losing any information that others might have entered in the meantime. I have warned everyone not to do that, but I am still concerned. Is there any way to prevent the file from being overwritten?

 

[AC PORTA VIA]

add below to ThisWorkBook MODULE
this will prevent SaveAs, forcing user to save not SaveAs

   Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
     Cancel As Boolean)
    Dim lReply As Long
     If SaveAsUI = True Then
    lReply = MsgBox("Sorry, you are not allowed to save this " & _
     "workbook as another name. Do you wish to save this " & _
     "workbook?", vbQuestion + vbOKCancel)
     Cancel = (lReply = vbCancel)
     If Cancel = False Then Me.Save
     Cancel = True
     End If
    End Sub