Hiding/Unhiding Multiple Sheets

I have around 200 sheets in my excel workbook. Only two sheets are visible to user and rest are not visible.

I don't want user to unhide sheets by right clicking and unhide them. If any user try to do this, it should ask for password.

Please guide for this.

The following code will hide every sheet except Sheet1. xlSheetVeryHidden means that the user cannot unhide it using right-click. They can unhide it using VBA, if they know how, however, and I don't think there is a way to password protect it.

Please Login or Register  to view this content.

Thanks mgs73 for code. Should I paste code in workbook

The code will run in a standard module. You don't really need it, as you can set this property in the Properties menu for each sheet - but if you have 200 sheets, it'll be much quicker to do it with the code!

Hello,

This code is not working.

Perhaps like this?

After hiding the sheets go to "Review" tab, click "Protect Workook" icon and set password.

Alf