<<Convert Excel Spreadsheets to Web Pages \| Trading Software That Operates Within Excel \| Convert Excel, Access & Other Databases \| Merge Excel Files>>

Excel: Password Protect/Unprotect All Excel Worksheets in One Go.

| | Information Helpful? Why Not Donate.

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL| More Free Downloads.. Best Value: Finance Templates Bundle

Back to: Excel VBA. Got any Excel/VBA Questions? Excel Help |Add-in that protects multiple sheets and Workbooks (Demo Download)

Excel has protection that we can add to an Excel Worksheet via Tools>Protection>Protect Sheet. A password can also be supplied so that another user cannot unprotect it without the password.

A common question that I'm often asked is, "how can I password protect and unprotect all Worksheets in my Workbook in one go. I have many sheets and I have to protect and unprotect each Worksheet individually." Unfortunately there is no standard feature in Excel that will allow us to protect and unprotect all Worksheets in one go, however, we can use some fairly simple VBA code to do this for us. Follow the steps below.

Open the Workbook the code is needed for. Or, go to Window>Unhide and unhide your Personal.xls to make it available to any Workbook.

Go to Tools>Macro>Visual Basic Editor (Alt+F11) and then Insert>UserForm. This should also display the Control Toolbox. If it doesn't go to View>Toobox.

From the Toolbox select a TextBox (ab|). Now click onto the UserForm to add it. Position it in the top left and size it so it is your preferred size.

Ensure the Textbox is still selected and then go to View>Properties (F4). From the Properties Window of the Textbox scroll down to PasswordChar and in the white box on the right enter an asterisk *

Now from the Toolbox select a CommandButton and then click the UserForm and position it in the top right.

With the CommandButton still selected go to View>Properties(F4). From the Properties Window of the CommandButton scroll down to Caption and in the white box on the right enter the caption: OK. If you are using Excel 97 also scroll down to TakeFocusOnClick and set this to False.

Now select the UserForm and from it's Properties Window find Caption and change it to: Protect/Unprotect all sheets.

Now go to View>Code (F7) and place in the code exactly as shown below

Private Sub CommandButton1_Click()Dim wSheet As Worksheet	For Each wSheet In Worksheets		If wSheet.ProtectContents = True Then			wSheet.Unprotect Password:=TextBox1.Text		Else			wSheet.Protect Password:=TextBox1.Text		End If	Next wSheetUnload meEnd Sub

Now go to Insert>Module and in here add the code below
```
Sub ShowPass()    UserForm1.ShowEnd Sub
```
Now click the top right X, or push Alt+Q to get back to Excel.
Go to Tools>Macro>Macros (Alt+F8) select ShowPass and then click Options and assign a shortcut key.

This newly added feature will unprotect all Worksheets that are protected and protect all Worksheets that are unprotected.

A WORD OF WARNING: As you are not asked to confirm your password you should be very sure of what you type.

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALLpurchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Try out:Analyzer XL |Downloader XL |Smart VBA |Trader XL Pro (best value) |ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader PackageTechnical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft