Need help with VBA code. Tons of code seperated in two, second part of code doesn't work.

I'm not sure what all that code means (.Range(Rw & ":" & Rw & "," & Rw + 41 & ":" & Rw + 41 & "," & _
Rw + 82 & ":" & Rw + 82 & "," & Rw + 123 & ":" & Rw + 123)), but looks very interesting, and I guess saves a ton of editing.

Thanks, and I'll look at it soon.

O.K. I think I figured it out.
So basically if cell E4 is empty, then look at row 4, then the 41'st row after that, etc.
And I guess columns would be something like:

If Not Intersect(Target, ActiveSheet.Range("E4:E33")) Is Nothing Then
blHide = (Target.Value = ""): Cw = Target.Column
For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
With ws
.Unprotect (sPW)
.Range(Cw & ":" & Cw & "," & Cw + 41 & ":" & Cw + 41 & "," & _
Cw + 82 & ":" & Cw + 82 & "," & Cw + 123 & ":" & Cw + 123).EntireColumn.Hidden = blHide
.Protect (sPW)
End With

Originally Posted by FragaGeddon

I'm not sure what all that code means

Have a look at what Rw is and how it is derived. The rest is just math & string compilation.

Originally Posted by FragaGeddon

And I guess columns would be something like:

If Not Intersect(Target, ActiveSheet.Range("E4:E33")) Is Nothing Then
blHide = (Target.Value = ""): Cw = Target.Column
For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
With ws
.Unprotect (sPW)
.Range(Cw & ":" & Cw & "," & Cw + 41 & ":" & Cw + 41 & "," & _
Cw + 82 & ":" & Cw + 82 & "," & Cw + 123 & ":" & Cw + 123).EntireColumn.Hidden = blHide
.Protect (sPW)
End With

Correct, though you should also define Cw As Long (Since Rw is an abbreviation of Row, I wouldn't abbreviate Column as Cw).

PS: Please use the code tags, inserted via the # symbol on the posting menu, when posting code.

Not sure if I'm doing something wrong, but I did the second part of the code to hide columns as a test. If I delete a cell from I4, it hides all columns in that sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Change_B Target
Worksheet_Change_V Target
End Sub
Private Sub Worksheet_Change_B(ByVal Target As Range)
Dim ws As Worksheet, blHide As Boolean, Rw As Long
Const sPW As String = "pass1234"
Application.ScreenUpdating = False
    '==================== Beauty Expert ====================
If Not Intersect(Target, ActiveSheet.Range("E4:E33")) Is Nothing Then
    blHide = (Target.Value = ""): Rw = Target.Row
    For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
        With ws
            .Unprotect (sPW)
            .Range(Rw & ":" & Rw & "," & Rw + 41 & ":" & Rw + 41 & "," & _
              Rw + 82 & ":" & Rw + 82 & "," & Rw + 123 & ":" & Rw + 123).EntireRow.Hidden = blHide
            .Protect (sPW)
            .EnableSelection = xlUnlockedCells
        End With
    Next
    With Sheets("Extra Week")
        .Unprotect (sPW)
        .Range(Rw & ":" & Rw).EntireRow.Hidden = blHide
        .Protect (sPW)
        .EnableSelection = xlUnlockedCells
    End With
    With Sheets("Cosmetician Sales")
        .Unprotect (sPW)
        .Range(Rw & ":" & Rw & "," & Rw + 31 & ":" & Rw + 31).EntireRow.Hidden = blHide
        .Protect (sPW)
        .EnableSelection = xlUnlockedCells
    End With
    With Sheets("CAST")
        .Unprotect (sPW)
        .Range((Rw - 4) * 19 + 1 & ":" & (Rw - 3) * 19).EntireRow.Hidden = blHide
        .Protect (sPW)
        .EnableSelection = xlUnlockedCells
    End With
End If
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Change_V(ByVal Target As Range)
Dim ws As Worksheet, blHide As Boolean, Cl As Long
Const sPW As String = "pass1234"
Application.ScreenUpdating = False
    '==================== Beauty Expert ====================
If Not Intersect(Target, ActiveSheet.Range("I4:I33")) Is Nothing Then
    blHide = (Target.Value = ""): Cl = Target.Column
    For Each ws In Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13"))
        With ws
            .Unprotect (sPW)
            .Range(Cl & ":" & Cl).EntireColumn.Hidden = blHide
            .Protect (sPW)
            .EnableSelection = xlUnlockedCells
        End With
    Next
    With Sheets("Extra Week")
        .Unprotect (sPW)
        .Range(Cl & ":" & Cl).EntireColumn.Hidden = blHide
        .Protect (sPW)
        .EnableSelection = xlUnlockedCells
    End With
End If
Application.ScreenUpdating = True
End Sub

Originally Posted by FragaGeddon

Not sure if I'm doing something wrong, but I did the second part of the code to hide columns as a test. If I delete a cell from I4, it hides all columns in that sheet.

What are you trying to hide/unhide? Yoy have defined 'Cl = Target.Column', but that just returns a number thatou need to convert that to a letter. But, if you do that and reference Cl for 'Hidden = blHide', what you'll end up hiding is column I. Is that your intention?

Is it only I4 you're concerned with for the column hiding/unhiding? Your code presently tests I4:I33, so any of those cells will trigger that.