Place following code in sheet called ‘ThisWorkbook’ MsgBox 'Incorrect password no action taken.', vbInformation, _

I_pwd = InputBox('Please Enter Password to Unhide Sheet', 'Unhide Sheet.') Place the following code in a Sheet (not a module)īasically, right-click the sheet and click ‘View Code’ You'll probably want to add more code to trap 'Save' events, in case the user saves the workbook with their worksheet visible.

This is to protect its structure etc, so that you won't run into problems with sheets being renamed etc. The code is also written around the principle that the workbook itself should be protected - see the relevant comments in the code. If the prompts are left empty, the code does nothing more and exits. If the correct password for the named sheet is given, it is displayed and unprotected otherwise the The code works by automatically hiding all except a 'main' worksheet upon opening and closing. Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Protect Password:=WPwd, Structure:=True, Windows:=True UPwd = InputBox('Please Input your Workbook Password') User = InputBox('Please Input your Workbook Username') If ThisWorkbook.ProtectStructure = True Or ThisWorkbook.ProtectWindows = True Then ThisWorkbook.Unprotect WPwdįor Each wsSheet In ActiveWorkbook.Worksheets Set wsActvSht = ThisWorkbook.Sheets('Sheet1') ' A worksheet that must remain visible WPwd = '' 'Inset the Workbook Password between the double quotes It goes into your workbook's 'ThisWorkbook' vba module.

How to put password in excel sheet