Difficulty: Running macro in pw protected worksheet

[timesareGMT]

Hi all,

Here I have a difficulty of running macro in a password protected worksheet.

The VBA code is that:

Sub Checker()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Dim r As Long, cb As CheckBox<o></o>
<o></o>
Set cb = ActiveSheet.CheckBoxes(Application.Caller)<o></o>
r = Range(cb.LinkedCell).Row + 11<o></o>
<o></o>
Sheets("Report Layout").Rows(r).Hidden = cb.Value = xlOff<o></o>
<o></o>
End Sub<o></o>
<o></o>
<o></o>
<o>When I run the above macro under the pw protected condition, the following message appears: </o>
<o></o>
<o>Run-time error '1004': </o>
<o></o>
<o>Unable to set the Hidden property of the Range class </o>
<o></o>
<o></o>
<o>Is there a solution to get it fixed? </o>
<o></o>
<o>Thanks. </o>
<o></o>
<o></o>
<o></o>

 

[Tom Urtis]

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o>Is there a solution to get it fixed? </o>

Offhand I'd say yes, that being to unprotect the sheet and then reprotect it in the code, unless there is more to your question than you posted.

I imagine the sheet that is protected is Report Layout, so for that part of your macro you could do this, modifying for whatever your actual password is:

With Sheets("Report Layout")
.Unprotect ("YourPassword")
.Rows(r).Hidden = cb.Value = xlOff
.Protect ("YourPassword")
End With

 

[timesareGMT]

Offhand I'd say yes, that being to unprotect the sheet and then reprotect it in the code, unless there is more to your question than you posted.

I imagine the sheet that is protected is Report Layout, so for that part of your macro you could do this, modifying for whatever your actual password is:

With Sheets("Report Layout")
.Unprotect ("YourPassword")
[COLOR=blue]Sheets("Report Layout").[/COLOR]Rows(r).Hidden = cb.Value = xlOff
[COLOR=blue]Sheets("Report Layout").[/COLOR]Protect ("YourPassword")
End With

Thanks, it works with adding additional info (highlighted blue) to your code!

Thanks again.