Platí pre Excel:

Sub Prepinac_1()
    Rows(Range("E1") & ":" & Range("F1")).EntireRow.Hidden = Not (Rows(Range("E1") & ":" & Range("F1")).EntireRow.Hidden)
End Sub

Pre každé tlačidlo musíš vyhotoviť takýto vlastný kód, kde otrocky musíš zadať bunky udávajúce rozsahy skrývaných riadkov.


Či to bude funkčné v LibreOffice neviem, keďže aj minule sme tu riešili nejaký problém, ktorý sa v LibreOffice nechcel správať tak, ako v Exceli...


Ak by sa zadefinoval modul triedy, tak by si pre celú množinu tlačidiel zadal jediný riadok:

 Rows(Range("E" & cmdTlac.Index) & ":" & Range("F" & cmdTlac.Index)).EntireRow.Hidden = Not (Rows(Range("E" & cmdTlac.Index) & ":" & Range("F" & cmdTlac.Index)).EntireRow.Hidden)

kde by si riadok, odkiaľ má z buniek E a F načítať rozsah skrývaných riadkov, vyčítal Excel sám.