Excel Sheet Protection - Protect Sheets Code

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

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download, 30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Jason_Moffitt was trying to create a group of sheets and protect them. He had some code that was not working

Sub GroupProtect()
group = Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

For Each Sheet In group
     Sheet.Activate
     ActiveSheet.Protect "Password"

   With ActiveWindow
       .DisplayHeadings = False
      .DisplayWorkbookTabs = False
   End With
Next Sheet

End Sub

Hans Pottel provided some amended code

Sub testje()
Dim group As Variant
Dim sheet As Worksheet
Set group = Sheets(Array("Sheet1", "Sheet2", "Sheet3"))

   For Each sheet In group
     sheet.Activate
     ActiveSheet.Protect "Password"

       With ActiveWindow
               .DisplayHeadings = False
               .DisplayWorkbookTabs = False
       End With
Next sheet

End Sub

New & Less Than You Think: List Managers | Working With Excel Sheets In VBA | Excel Charting Lessons | Delete rows by condition | TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL | More Free Downloads.. Best Value: Finance Templates Bundle

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. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 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 Package Technical 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

GIVE YOURSELF OR YOUR COMPANY 24/7 MICROSOFT EXCEL SUPPORT & QUESTIONS