ActiveSheet.unprotect "password"
ActiveSheet.protect "password"
Private Sub Worksheet_Calculate()
ActiveSheet.Unprotect "password"
Application.ScreenUpdating = False
Rows(15).Hidden = Range("K5") = 1
Rows(19).Hidden = Range("K5") = 1
Rows(16).Hidden = Range("K6") = 2
Rows(20).Hidden = Range("K6") = 2
Application.ScreenUpdating = True
ActiveSheet.Protect "password"
End Sub