Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If ThisWorkbook.Path = _
"O:\XBOX\XBOX-Tier2\Customer Support\Source\Reports" Then
Cancel = True
End If
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Pietro" wrote in message
...
Hi,

I want to use the ThisWorkBook BeforeSave event to prevent users from
saving the sheet if the sheet path is O:\XBOX\XBOX-Tier2\Customer
Support\Source\Reports"