Linking selected option from Combo Box to set Cell Selection in UserForm

Hi all

I've created a Userform to give an admin user a mini dashboard to manage various workbook properties, including worksheet and workbook protection.

One of the options is for the user to password protect all worksheets, and I thought I could use a ComboBox for the user to select their preferred cell selection option.

So, on the UserForm I have the following:

A textbox to enter a password [tbxWSPW]
A command button to protect the worksheets [cmdWSProtect]
and a ComboBox [cbxCellSelection] to choose one of three cell options - xlNoRestrictions, xlUnlockedCells and xlNoSlection.

The code I'm using is as follows:

Please Login or Register  to view this content.

But, when I run this I keep getting a Type Mismatch error on the ws.EnableSelection line.

I have two questions:

1. How do I fix the above?
2. If I wanted to control the other properties (for example DrawingObjects, Scenarios etc), could I do this using checkboxes (ie: ticked for True, unticked for False), and how would I code this?

Many thanks everyone
Stephen

Possible values for EnableSelection are

xlNoRestrictions ' Value 0
xlNoSelection ' Value -4142
xlUnlockedCells ' Value 1

Does your text box contain one of those values? If not you will get a match error.

Hi Corbett

Thanks for your reply! No, my ComboBox contains 'xlNoRestrictions', 'xlUnlockedCells' and 'xlNoSelection', but not the numeric values you've posted. Is there a way around that so that the text options are available instead of the numeric ones?

Thanks
Stephen

There are a good number of ways of going about it. Perhaps not the most elegant but maybe the most readable would be a select clause, along the lines of

Please Login or Register  to view this content.

Hi Corbett

That works perfectly, thanks for the reply to this it's much appreciated

KR
Stephen