Help with unprotecting worksheet in Excel 97

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?
 
K

Ken Macksey

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Protecting worksheet. 1
VBA Coding Help for Beginner 0
Unprotect Workbook with Function 3
How to bypass password when pasting FROM a protected workbook 3
inlineShape.OLEFormat.Activate() command fails for excel file 0
Xl2007 not unprotecting worksheet!!!! 1
Error 1004 in Excel 97 when trying to unprotect a worksheet 0
Shared Workbooks & Code 1

Top