protecting certain cell ranges with VBA and button

Hello

I am rather new to Excel.In the attached workbook i have highlighted the ranges i would like to protect/unprotect using a Active X button.If the cells are protected the button says Unprotect and visa-versa.

Also can the cells highlighted in red all have the same date at the Combobox`s date.When the combobox date is changed the cells in red also change

Thank you

James

Try this, also sorted date display from combo

Regards
Steve

There is a password called "Password" in the macro to stop manual unprotect. Did you want the user to be asked for a password when the button is pressed?

Hi

There is an error when the date changes as it says Protected Sheet.It works when the sheet is unprotected but not when protected.Is it possible to allow the date to be changed while in Protected mode?

Also can a messgasbox ask for a password before protecting/unprotecting is allowable?

Thank you

Sorry just seen post # 5...Yes thanks

James,
This is a slight modification to Steve's code so that the same button will switch between "Protect Sheet" and "Unprotect Sheet" when the button is pressed. Simply replace his code with this. His code is on the Sheet1 module.

Please Login or Register  to view this content.

Jim,

Ive already made that change in rev2

Regards
Steve

Thank you

Yes the user to be asked for a password when the button is pressed?

Thanks again

james, yes that can be done give me a few mins and i will sort it for you

Thanks Steve

I get an error when i select the date to change from the combobox when the range is protected when i open the workbook up.A Runtime error - 1004

Other then that it is what i was after...

Also how does the code know which cell ranges to protect/Unprotect as i do not see any ranges in your code.This is good for me to learn from...

Thanks

James

Hi James,

Sorry to hear you are having issues. I have just downloaded the doc I attached to test and see no errors when i use it. All seems good this end...

Did you download the doc or paste the code in to your own workbook? (if you did the later please attach your file so I can have a look at it)

I did not select a range in the code, I set the protection manually and just trun on/off the protect worksheet function with code.

Regards
Steve

Ahaa, I just noticed your using 2013, this may be the issue. I have no knowledge of 2013 so not sure but I would imagine this is the reason for the errors.

I think I will open another post on your behalf to see if I can get any help from people who know 2013.

I would be interested to know myself

Hi James,

Can you try replacing the combobox code with this one and see if it works?

Please Login or Register  to view this content.

Hi Steve

The same error has occurred

Thanks

James

Hi James,

Just so i am clear did you download my file or paste the code into a different excel doc?

Regards
Steve

hi Steve

I downloaded the file

Thanks again

James

Hi Steve

"I did not select a range in the code, I set the protection manually and just trun on/off the protect worksheet function with code"

How did you set the protection manually please?

Thanks