Help to hide Rows

Question

Hi,

I'd like to know if there is a (possibly VBA) solution to hiding row 18-20 based on cell M10 is more than 0.

Rows <- imgur.. Sorry, i can't insert a screenshot of the sheet.

Answer 1

Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address(0,0) = "M10" Then

               Me.Unprotect Password:="TL1234"

               Rows("18:20").Hidden = Target > 0

               MeProtect Password:="TL1234"

   End If

End Sub

Answer 2

Nope, just a cell for the user to write in.

Answer 3

Does M10 contain a formula?

Answer 4

Thanks, it doesn't quite cut it unfortunately...

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$10" Then
If Target.Value > 0 Then
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="TL1234"
Rows("18:20").EntireRow.Hidden = False
ActiveSheet.Protect Password:="TL1234"
End If
Else
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="TL1234"
Rows("18:20").EntireRow.Hidden = True
ActiveSheet.Protect Password:="TL1234"
End If
End If
End If
End Sub

I tried some AI, because i want the sheet to be partially locked for users.

Can you see what might be wrong with this.. It doesn't seem to work?

Answer 5

Sub Test()

Rows("18:20").Hidden = Range("M10") > 0
End Sub