Altri Linguaggi - scopri e nascondi righe e colonne

Potete aiutarmi modificare questa macro in modo che scopre tutte le righe e colonne di tutti i fogli?

Sub Rettangolo7_Clic()

Dim wb As Workbook
Dim wsc As Integer
Dim r As Integer
Set wb = ThisWorkbook
wsc = Sheets.Count
For r = 2 To wsc
   wb.Sheets(r).Rows("14:57").EntireRow.Hidden = False
Next r
End Sub

E quest’altra in modo che oltre a nascondere le righe che già nasconde dovrebbe nascondere le colonne K e L e poi dalla colonna P alla colonna AW

Sub NascondirigheVuote()
Dim ff As Integer
Dim rr As Integer
For ff = 2 To Worksheets.Count
If Worksheets(ff).Name <> "Riep" Then
Worksheets(ff).Select
For rr = 57 To 14 Step -1
    If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True
Next rr
End If
Next ff
End Sub

E infine togliere la protezione di tutti i fogli(senza password) all’inizio della prima macro e metterla alla fine della seconda macro
Grazie!