Reset CustomUI Toggle Button state by cancelling Input Prompt

Hi All,

My workbook has a CustomUI toggle button that toggles between setting a scroll-area by specific range to no scroll area restriction. By default the scroll area is set. The user is prompted for a password to unset the scroll area. My code works fine in setting and unsetting the scroll area however if the user cancels out of the password InputBox the Toggle Button control still shows the 'pressed' state and the incorrect 'label'. I can't figure out how to change the toggle button control to show the correct state and label.

The attached workbook is an example of what I am trying to achieve

ToggleButtonTest.xlsm

Any help appreciated

Rick

Hi there,

Take a look at the attached workbook and see if it does what you need.

It uses the following code:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Hi Greg

Thanks for response. Not quite there. The label returns to its un-pressed state when the InputBox is cancelled, however the pressed state of the toggle button displays incorrectly. It shows pressed whilst the InputBox is displayed and does not return to the unpressed state when the InputBox is cancelled

Regards
Rick

Hi Greg,

Thanks again for replying. I read your post about reasons why you did not first implement the Pressed state (did you delete the post?) and it got me thinking. To be honest I had not thought about consistency in the buttons but since you mentioned it I can see logic in that. I have decided, therefore, to use a check-box instead of a toggle button. This will give the user the visual indication that the scroll area is unset. The reason I need to have this visual aid is in order for an Administrator User to remember that he/she has unset the scroll area (in order to do admin type work) and therefore not allow the worker user (workbook is shared) to access the protected areas.

I also check the state of the scroll area when changing sheets. I did not include this in my original post as I did not think that it would affect any forthcoming answer. Wrong.

The attached file now includes my code that changes the state of the check box depending on a true or false value in Cell A1. But the issue of cancelling out of the InputBox and reversing the checked and label states still remains.

Apologies for mucking you around and hope you can fix this one up. I've also learnt to clean up my code by using your submitted code as an example

Cheers
Rick

Hi again Rick,

Ok on all of that. Yes, I deleted my original post (regarding inconsistency etc.) because I had written it as a result of misunderstanding your requirements.

I've had a look at your latest workbook and I think the question of inconsistency arises once again, i.e. the label text associated with the CheckBox shouldn't change in response to the Checked/Unchecked state of the ComboBox. My attached version has the Checkbox displayed with an unchanging "Scroll Area Unrestricted" text, and the Checked/Unchecked state of the Checkbox reflects the True/False state of this text.

I've tweaked the code a bit so it's no longer necessary to store the required "pressed" state of the checkbox in Cell A1 of each worksheet. I've also moved most of the code from the ThisWorkbook CodeModule to the standard CodeModule. This is just a personal preference - I try to keep as much code as possible in standard CodeModules rather than in Workbook/Worksheet CodeModules.

Incidentally, you had "hidden" the contents of each Cell A1 by setting the font colour to be the same as the cell interior colour - a simpler way to achieve this is to use the Custom format of ";;;" (without quotes) for the Number format property of those cells.

Anyway, take a look at the attached workbook and see what you think - it uses the following code:

Please Login or Register  to view this content.

Hope this helps - as always, please let me know how you get on.

Regards,

Greg M

Cheers Greg.

That is exactly what I'm after. All points noted and taken on board. This has been a good learning lesson for me and I appreciate all the work and suggestions.

Rick

Hi again Rick,

Many thanks for all of your feedback, for the Reputation increase, and for the kind words therein - much appreciated

Very pleased that I was able to help out.

Best regards,

Greg M