Click once to open, click twice to hide

[coryjacques]

Hi, I recently had a very similar post for this request but I'm finding a few more uses for it and I'm trying to learn by seeing a few of these in action.

The last post requested a password in order to unhide cells/unprotect sheet, and with the second click hide these same cells and protect the sheet. The code is below (credit goes to "Sktneer").

Please Login or Register  to view this content.

I'm looking for a new code to consolidate these two macros into one button. The first unprotects, unhides, and then protects the sheet. The second one unprotects, hides, and then protects the sheet. I do NOT want a password for this function.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Can anyone assist?

Thank you!

[kev_]

Try this method
- subs to hide, unhide, protect and unprotect added
- call those subs to avoid repeating code

I have not included all your ranges
- you can try to make it work with your other ranges
- HideRows requires a RANGE attribute

Please Login or Register  to view this content.

Standard module

Please Login or Register  to view this content.

[kev_]

Combining hide/unhide and protect/unprotect:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[coryjacques]

Is there a way to combine these into one sub? I'm attempting to link it to a command button

[coryjacques]

Actually, I see that the first post is two subs but one calls the other. Sorry, limited experience here. I'm having a hard time getting it to work - messing with it now.

[kev_]

Post 2 contains the code and should work straight "out of the box"

[coryjacques]

I'm unable to combine these two codes into one button. Any tips?

[kev_]

That is what this does

Please Login or Register  to view this content.

The command button toggles between Status_Change and HideSC
- in the sample file attached to post2 - the visible row numbers clearly alternate each time you hit the button.
What does it not do that you want?

(my words in post#2)
I have not included all your ranges
- you can try to make it work with your other ranges
- HideRows requires a RANGE attribute

Are you struggling with adding another range to hide?

[coryjacques]

I see it working on your sheet, I just can't get it working on mine regardless of ranges added. I'd upload the sheet but unfortunately it has client sensitive data on it that would be difficult to remove.

[kev_]

- test that your ranges are giving you what you think they are giving you (most likely problem area)

Assuming that you are using these subs, add a message box

Please Login or Register  to view this content.