Vba Macro Help - Sheet Protection

DaveR

Board Regular
Joined
May 10, 2006
Messages
176
I have this code.

Code:
Sub Worksheet_change(ByVal Target As Range)

    ActiveSheet.Unprotect
    
    
    Dim i As Integer
    For i = 17 To 43 Step 2
        Sheet6.Rows(i).EntireRow.Hidden = Sheet5.Range("M" & i).Value = "Yes" 'Unmet needs
        Sheet6.Rows(i + 1).EntireRow.Hidden = Sheet5.Range("M" & i).Value = "Yes" 'Unmet need
        Sheet10.Rows(i + 17).EntireRow.Hidden = Sheet5.Range("M" & i).Value = "Yes" 'checklist
        Sheet10.Rows(i + 18).EntireRow.Hidden = Sheet5.Range("M" & i).Value = "Yes"   'Checklist
        Sheet6.Range("L" & i).ClearContents
        Sheet6.Range("N" & i).ClearContents
    Next i

ActiveSheet.protect

End Sub
However, if I protect sheet 6 (or indeed sheet 10) then the code crashes with error code 'Runtime error 1004 - Unable to set the Hidden property of the range class.

I need to unprotect sheet 6 & 10 and then protect them again when the loop has finished.


Help!
 

Some videos you may like

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,444
Messages
5,511,390
Members
408,846
Latest member
terraf

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top