Shorter way to duplicate this code???

[thechad]

Greetings all,

I would like to come up with a shorter code as opposed to duplicating below for each month. I know there is a way to do it but I'm not sure how. Ideas?

Sheets("JAN").Select
ActiveSheet.Unprotect Password:=Range("AI40")
Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
ActiveSheet.Protect Password:=Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

as opposed to...

Sheets("JAN").Select
ActiveSheet.Unprotect Password:=Range("AI40")
Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
ActiveSheet.Protect Password:=Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

Sheets("FEB").Select
ActiveSheet.Unprotect Password:=Range("AI40")
Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
ActiveSheet.Protect Password:=Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

Sheets("MAR").Select
ActiveSheet.Unprotect Password:=Range("AI40")
Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
ActiveSheet.Protect Password:=Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

Thanks in advance!

 

[Michael M]

Is the being applied to ALL sheets in the workbook ??
If not how many sheets are not to be affected and what are their names ??

 

[Tetra201]

... I would like to come up with a shorter code as opposed to duplicating below for each month...

Maybe

Sub OneMonth(s As Variant)
    Sheets(s).Select
    ActiveSheet.Unprotect Password:=Range("AI40")
    Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
    ActiveSheet.Protect Password:=Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End Sub
Sub Test()
    Dim m
    For Each m In Array("JAN", "FEB", "MAR")
        Call OneMonth(m)
    Next m
End Sub

 

[Peter_SSs]

Here's another way that doesn't require you to specify the sheets by name and doesn't matter whether or not there are other sheets in the workbook.
Also, there is no need to activate each of the sheets to perform these operations.

The red line in my code specifies the months to be processed by number. So, my code processes sheets "JAN" to "DEC" (1 to 12)
For example, if you wanted to process July to September only it would be For i - 7 to 9

Dim i As Long

For i = 1 To 12
  With Sheets(UCase(Left(MonthName(i), 3)))
    .Unprotect Password:=.Range("AI40")
    .Range("8:8, 10:10, 12:12,14:14,16:16,18:18,20:20,22:22,24:24,26:26,32:32,34:34,36:36,38:38,40:40,42:42,44:44,46:46,48:48,50:50,55:55,57:57,59:59,61:61,63:63").EntireRow.Hidden = False
    .Protect Password:=.Range("AI40"), DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
  End With
Next i