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

Signature
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
> 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"
Pietro - 23 Jul 2008 10:07 GMT
Hi Bob Phillips
Thank you for your reply...
I need exactly to do the following:
Once users try to save the sheet that has the below path ,the sheet is
automatically saved as "Tier2 Report" on the desktop ,then the sheet is
closed and the one saved on the desktop opens automatically
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
[quoted text clipped - 9 lines]
> > saving the sheet if the sheet path is O:\XBOX\XBOX-Tier2\Customer
> > Support\Source\Reports"
Bob Phillips - 24 Jul 2008 19:22 GMT
Which one on the desktop?

Signature
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
> Hi Bob Phillips
> Thank you for your reply...
[quoted text clipped - 16 lines]
>> > saving the sheet if the sheet path is O:\XBOX\XBOX-Tier2\Customer
>> > Support\Source\Reports"
Pietro - 26 Jul 2008 09:40 GMT
The one that might have been created from a previous transacion by the same
code.
> Which one on the desktop?
>
[quoted text clipped - 18 lines]
> >> > saving the sheet if the sheet path is O:\XBOX\XBOX-Tier2\Customer
> >> > Support\Source\Reports"