Microsoft Excel Training- From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

Excel Sheet Protection - Protect Sheets Code

| | Information Helpful? Why Not Donate.

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. ALL purchases 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

Microsoft Excel Training- From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

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