Workbook_BeforeClose (Cancel As Boolean)

[rob_sheeds]

Hi, I have read all there is in here on the Workbook_BeforeClose and I cant get it to work. The jist is to protect all sheets and the workbook whenever a user closes the workbook.
Current code is (which is under ThisWorkbook). Any help would be excellent and thanks in advance.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call ProtectAllSheets

End Sub

Sub ProtectAllSheets()
'Protects ALL worksheets
For Each Shts In ThisWorkbook.Worksheets
Shts.Protect Password:="evo!@#"
Next
ActiveWorkbook.Protect Password:="evo!@#"
End Sub

 

[ttdk1]

in the private workbook_beforeclose subroutine, put the following lines, in that order.

Call ProtectAllSheets
ThisWorkbook.Close SaveChanges:=True

need to be in that order. Also make sure designer mode is disabled. I tested it with designer mode on and got a dialog box when closing, so that might be an issue.

 

[rob_sheeds]

Nerrr the code was not in ThisWorkbook.... my bad guys. Im an accountant not a guru like you all.
Appreciate your help as always!!!!!!!

 

[Michael M]

Hmm....Seniors moment ???.......I have 'em all the time !!!