Why Can't Unprotect and write value into worksheet before close.

  • Thread starter Thread starter EdgeOfCity
  • Start date Start date
E

EdgeOfCity

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"?
 
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
 
I don't see any reason to do it except that you are closing the workbook in
the beforeclose event which would trigger another beforeclose event and
possibly so forth.
 
Back
Top