Aus-Einblenden von Spalten u. Zeilen

Sub Leere_Zeilen_u_Spalten_aus()
Dim lr As Integer, i As Integer
lr = ActiveSheet.UsedRange.Rows.Count + 1
Rows(lr & ":" & 65536).Hidden = True
For i = lr - 1 To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
For i = 256 To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Hidden = True
End If
Next i
End Sub

1Problem : Wie mache ich es rückgängig, hab leider kein funktionalen Code für mich endecken können.
(Andere User sollen den ausgbl. Bereich halt nicht sehn.)
2Problem : Das scrollen der Tabelle verhindern (zumindest nach unten sollte es gesperrt werden)
Ich moechte erreichen das nur bis z.B. Zeile 30 geschaut werden kann.
Im Vorraus ein fettes Danke,
Gruss
Matthias