Protect and Unprotect Grouped Sheets

When sheets are grouped (e.g., shift clicking on multiple sheets), they can no longer be password protected, since protection takes place on the sheet level. Here's a quick routine to unselect the grouped sheets, protect them individually, then group them again:

    Public Sub ProtectGroupedSheets()
        Const csPASSWD As String = "drowssap"
        Dim mySheets As Sheets
        Dim actSheet As Worksheet
        Dim wkSht As Worksheet

        Set actSheet = ActiveSheet
        Set mySheets = ActiveWindow.SelectedSheets
        actSheet.Select
        For Each wkSht In mySheets
            wkSht.Protect Password:=csPASSWD
        Next wkSht
        actSheet.Select
        mySheets.Select False
    End Sub

Unprotect just uses .Unprotect instead of .Protect

This page last updated Friday, 7 January 2005

© Copyright 2001 - 2004 McGimpsey and Associates. Except where noted, all code on this site may be distributed under the Gnu GPL. Acknowledgement is appreciated.