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

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

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