Urgent! Save Excel WorkBook - a special way

[Anirban]

I need to write VBA code embedded to a workbook in such a
way that, if the workbook is in a particular directory (sa
C:\WinNT\Temp) , the save option work as "SaveAs"

(Or in otherway to behave the WorkBook as if
it is never saved... ThisWorkBook.Path = "")

I tried to write in the thisWorkBook Module ...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel A
Boolean)
Dim bCodeRunning As Boolean
bCodeRunning = False
If ThisWorkBook.Path = strTempDir Then
If bCodeRunning Then
Application.Dialog(xlSaveAs).Show
bCodeRunning = False
Else
bCodeRunning = True
End If
End If
End Sub


What else I need to do to get the desired effect?
Conditions include 1) it shuld never crash (2) saveAs option shoul
work as it should, also (3) there should be no effect on the sav
Workspace option.
Please help

 

[Frank Kabel]

Hi
see your other post
P.S.: please don't multipost