Makro mám toto a částečně funguje:

Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A26")
If Not Intersect(Target, aCell) Is Nothing Then
Range("B28:AS36").EntireRow.Hidden = aCell = "1"
End If
End Sub

když do buňky A26 dám hodnotu 1 skryje všechny řádky.
POTŘEBUJI, ABY KDYŽ JE JEDEN PLNY ABY SE ZOBRAZIL DALŠÍ ŘÁDEK.

Když list zamknu nejde to.

Snad se někdo najde a poradí mi.

Předem všem moc Děkuji