Help with unprotecting worksheet in Excel 97

  • Thread starter Thread starter Steve Mikula
  • Start date Start date
S

Steve Mikula

I am trying to unprotect a worksheet in some VB code I am
writing in Excel 97. The code works correctly in Excel
2000, however I get the following error in Excel 97:

Run-time error '1004'
Unprotect method of Worksheet class failed

Here is the code, I am getting the error on the 2nd line:

If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
If CheckBox6.Value = True Then
....

Can anyone help I have been trying to figure this out for
weeks?
 
Hi

If you are using a command button to run the code, Be sure to
set the Takefocusonclick property of the command button to false.
If that does not work, select a cell on the worksheet first like the code
below.

If ActiveSheet.ProtectContents = True Then
Cells(1, "a").Select
ActiveSheet.Unprotect
End If


It works for me.

HTH

Ken
 
Back
Top