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

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

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates