You have a close statement inside your before_close event. That's a no-no.
It's about to close anyway. Single step thru the close event and watch it
run more than once.
If you remove the Close statement and replace with a Save, you can also
remove the On Error Resume Next.
Bob Umlas
Excel MVP

"EdgeOfCity" wrote in message
...
worksheets("sheet2") has been protected from "Tool" menu with password
"test".
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
With Worksheets("sheet2")
.Activate
.Unprotect Password:="test"
On Error Resume Next
.Cells(4, 4) = "HI"
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True,
Password:="test"
End With
ActiveWorkbook.Close SaveChanges:=True
End Sub

the question is that why should add "On error resume next"?