Protected Sheet Will Not Allow Macro To Run

[NaNaBoo]

I have protected several sheets in my workbook to protect the forumlas and data for being tempered with by the users.

When I try to run my macro, I get an error message stating:

Runtime '1004'
You can not use this command on a protected sheet

And the debug is pointing to this part of my code

Do Until pr > .Cells(1, 1).SpecialCells(xlLastCell).Row

How can I revise my code to allow me to have my sheets stay protected and still be able to run my macro?

[modytrane]

use following at the top of your code to unprotect the sheet and protect it at the end.

modytrane

[bitterenemy]

(I previewed my post and noticed that there was already a response. Maybe someone could provide some input the last section.)

This is how I've solved this in the past:

Sheets("Sheet1").Unprotect Password:="password"

        'Perform steps on protected cells

 Sheets("Sheet1").Protect Password:="password"

One problem I had is I wanted to keep the password from the people viewing the file, and if you press Alt-F11, VBA pops up showing this code, and therefore the password. I don't know if there is a way around this or if it matters to you either way.

[BigBas]

^ You have the option of locking/protecting the VBA project. That way, an end user cannot see the code at all, and therefore can't see the password. If the end user does need access to the VBA, your options become more limited.

[bitterenemy]

How do you protect the VBA code? I would really like to do this on the file i was working on.

Thanks!

[BigBas]

In the VBE, go to TOOLS-VBAProject Properties. Choose the Protection tab, lock the project, then choose your password.

[NaNaBoo]

THanks,

I see that I have been given a couple of ways of handling this problem. Let me address the first suggestion and make sure I am understanding this right. In this code;

ActiveSheet.Unprotect

ActiveSheet.protect

Within the macro that needs the sheets to be unprotected, I would include this code at the top and at the bottom?

I will not include this in the individual protected sheets?

Please advise.