Ahoj,
šlo :-). Stačí si na list přidat nějaký objekt(tlačítko, obrázek, tvar, prostě něco) nastavit ve vlstnostech "Přesun Buňěk bez objektu" (to aby se nám neschovával) a pak přiřadit makro. Jako kód pak vložit:If Columns("A:AY").EntireColumn.Hidden = False Then
Columns("A:AY").EntireColumn.Hidden = True
Rows("3:12").EntireRow.Hidden = True
Else
Columns("A:AY").EntireColumn.Hidden = False
Rows("3:12").EntireRow.Hidden = False
End If
M@citovat
šlo :-). Stačí si na list přidat nějaký objekt(tlačítko, obrázek, tvar, prostě něco) nastavit ve vlstnostech "Přesun Buňěk bez objektu" (to aby se nám neschovával) a pak přiřadit makro. Jako kód pak vložit:If Columns("A:AY").EntireColumn.Hidden = False Then
Columns("A:AY").EntireColumn.Hidden = True
Rows("3:12").EntireRow.Hidden = True
Else
Columns("A:AY").EntireColumn.Hidden = False
Rows("3:12").EntireRow.Hidden = False
End If
M@citovat