Two ways:

1.
Set a breakpoint at the End Sub then from the immediate window: Cancel =
False

2.
If you're doing this regularly, you may want an external flag.

For example
Instead of
Cancel = True
Try
If Dir("C:\DebugMode.txt") = "" Then Cancel = True

Then create DebugMode.txt whenever you plan to do some development.


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Shilps" wrote in message
...
Hi,
I have a very tricky situation. I want to disble the save option of the
workbook. So I wrote this code

Private Sub Workbook_BeforeClose(Cancel as Boolean)

Application.DisplayAlerts = False
ThisWorkbook.Saved = True
ThisWorkbook.Close
Application.DisplayAlerts = true

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)

Application.DisplayAlerts = False
Cancel = True
Application.DisplayAlerts = true

End Sub

Now the problem is the moment I write this code, it is activated before
saving and this code is not saved at all. How do I save this code? My
objective is that the user should not be able to save any changes in the
workbook.
TIA
Shilps