VBA/formula to lock all other tabs

Hi

I have tabs named from Sheet1 to sheet10. Is there a way to lock by password all tabs at once except Sheet1. Which means Sheet 1 would be unlocked at all times. when i unlock one of the other sheets by password it will remain unlocked unless i close the file.

Hi

I might have missed something out as the vba didn't work as expexted. I should paste the vba in just sheet1 or all the tabs?

Hi Sintek

I did paste it in a module and the password prompt is not triggering. Sheet1 is also named correctly.

Hi sintek

I got it. I did not key in anything in the file which was why i was not prompted. Is there a way to promt the password upon clicking the worksheet tab as i do not want to reveal the contents of the tab without a password.

Hi Sintek

Can i check is there a collective way to unlock sheet 2 to sheet 10 at the same time with a single password and for the userform to close upon successfully entering the password or in other words for the userform to appear only if i press the windows image?

Hi Sintek. Yes thank you very much. the "All radio button" worked perfectly. Will you be able to let me know how it was done? I can see that there there is no change in the VBA from the previous workbook.

Can i check is it possible to guide me on the setup of second part of my query below as well?

at the same time with a single password and for the userform to close upon successfully entering the password or in other words for the userform to appear only if i press the windows image?

Hi Sintek,

Can i know which worksheet is the code pasted at. On the last attached file the codes on module1 is different from the above. I may be looking at the wrong location.

Hi Sintec. a small question on the attached sheet. If i want sheet11 to be unlocked by a different password using the blue shaped button, how can i modify userform1 to unlock all except sheet11?

Hi Sintec

Can i check how can i amend the vba to input on the blue button to unlock the next sheet by another password.

Please Login or Register  to view this content.

Hi Sintec. Yes, I would like to try that. Sheets i-10 to be unlocked by the code in userform 1 and sheet 11 to be unlocked by a different code in the blue button. Kind of like 2 admins.

Coolio ? Ah ♪ Gangsta's Paradise ♫ ‼

Sorry, I'm out …

Thank you sintec. Was practicing with the controls and it works. Can i check i saw the below 2 codes pasted. If i needed additionally sheet 2 to be visible as well, should i amend both the module and this workbook vba as to the below?

Please Login or Register  to view this content.

Pasted in this workbook

Please Login or Register  to view this content.

Pasted in module 1

Please Login or Register  to view this content.

hi Sintek. I would like to ignore hiding sheet1 and sheet2 in this file.

Ok got it as mentioned in post 7 i need to unhide the sheet first before running the code. Thanks

Hi Sintek. can i know how do i hide userform1 when i open the spreadsheet. I require it to open only when clicking the windows image.

Hi !

Just remove the codeline from the Auto_Open procedure …

Hi. You mean remove the removed the auto open code from module1?

Hi. I've removed the line userform1.show. The userform doesn't show up automatically when i open the file which i what i want but but when i click the userform1 image, the controls doensn't show up totally. I still require it to pop up upon click so that i can select which sheets to unhide.

Please Login or Register  to view this content.

Hi sintek. yup that was what i needed. Can i know what was the change in code?