- Codice: Seleziona tutto
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
- Codice: Seleziona tutto
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!