VBA code to hide/unhide rows that have a "1" in column A - 32 sheets

Zanmato

New Member
Joined
Mar 15, 2019
Messages
14
I think you may have put the code in the wrong place (the unprotect and protect).

Try it like this:

Code:
Private Sub CommandButton1_Click()

Dim Sh As Worksheet
  On Error Resume Next
  For Each Sh In Worksheets
Sh.Unprotect "Hskp19"
    Sh.Rows.Hidden = False
    Sh.Columns("A").SpecialCells(xlFormulas, xlNumbers).EntireRow.Hidden = True
Sh.Protect "Hskp19"
  Next
  On Error GoTo 0
End Sub
I don't know if you need to unprotect the sheet to click the button? If so this won't work sorry.

EDIT: D'oh just re-read your post where you clearly state you do need to unprotect it to click the button.
And now I'm not even sure if you need to unprotect each sheet to hide the rows... probably not... Yeah just ignore this post.

EDIT2: I've never needed to put "Password =" when using protect commands but I have always used quote marks around the password, maybe it will work if you use your code from your last post but change those two lines to:

ActiveSheet.Unprotect "Hskp19"

and

ActiveSheet.Protect "Hskp19"

EDIT3: Hopefully the last one. Just noticed something and feel stupid. If you need to unprotect to click the button, how does putting unprotect in the button_click code work? I am totally confused now.
 
Last edited:

Some videos you may like

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Jason44136

New Member
Joined
Jul 8, 2019
Messages
18
Office Version
365
Platform
Windows
Thank you yet again. Sorry to confuse you. I had tried a few things before sending the post then confused myself. I used the recent revision and it DOES work as necessary. I think we are good to move forward. Your help is greatly appreciated! I have tested a few different ways.
 

Watch MrExcel Video

Forum statistics

Threads
1,102,261
Messages
5,485,734
Members
407,511
Latest member
Arunabh

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top