Hi Bob
but he saves the workbook manually (with disabling the events prior to
this so the BeforeSave event is not called again).

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Because you have set Cancel = True, which is telling the event to
cancel the save.


"Michel" wrote in message
om...
Why doesn't the workbook get saved here ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As
Boolean)
Application.EnableEvents = False
ThisWorkbook.Worksheets("Sales").Protect Password:="123",
UserInterfaceOnly:=True, Scenarios:=True, Contents:=True
ThisWorkbook.Save
ThisWorkbook.Worksheets("Sales").Unprotect Password:="123"
Cancel = True
Application.EnableEvents = True
End Sub

This sub get's called with ThisWorkbook.Save and debug does step
through it all the way, only it doesn't get saved?!

Thanks.