impossibile impostare la proprietà hidden per la classe range

Question

Ciao a tutti, 

Vi riporto il listato qui sotto specificando la riga dove mi da errore, se elimino quella riga tutto il resto funziona.

Grazie per l'aiuto

---

Sheets("1").Select

Range(Columns(31), Columns(Columns.Count)).EntireColumn.Hidden = True

Sheets("2").Select

ActiveSheet.Unprotect Password:="pippo"

Range(Columns(27), Columns(Columns.Count)).EntireColumn.Hidden = True

Rows("71:" & Rows.Count).EntireRow.Hidden = True  ' qui,  mi da l'errore che riporto nel titolo

ActiveSheet.Protect Password:="pippo"

Sheets("3").Select

Range(Columns(25), Columns(Columns.Count)).EntireColumn.Hidden = True

Rows("21:" & Rows.Count).EntireRow.Hidden = True

Sheets("4").Select

Range(Columns(13), Columns(Columns.Count)).EntireColumn.Hidden = True

Rows("141:" & Rows.Count).EntireRow.Hidden = True

Sheets("5").Select

Range(Columns(8), Columns(Columns.Count)).EntireColumn.Hidden = True

Rows("21:" & Rows.Count).EntireRow.Hidden = True

End Sub

Answer 1

...

Sheets("2").Select

ActiveSheet.Unprotect Password:="pippo"

Range(Columns(27), Columns(Columns.Count)).EntireColumn.Hidden = True

Rows("71:" & Rows.Count).EntireRow.Hidden = True  ' qui,  mi da l'errore che riporto nel titolo

...

Ciao,

questi potrebbero essere i casi più frequenti in cui si verifica l'errore che segnali (in determinate situazioni):

• il foglio è protetto;
• le celle contengono commenti;
• ci sono oggetti che non possono essere ridimensionati.

Escludendo il primo, che hai già risolto, rimangono eventualmente gli altri due. In alternativa potresti provare ad utilizzare, al posto di Hidden, la proprietà RowHeight, in questo modo:

Rows("10:20").EntireRow.RowHeight = 0

e se anche quest'ultimo restituisse errore, puoi sempre stabilire un'altezza minima, di fatto impercettibile:

Rows("10:20").EntireRow.RowHeight = 0.01

Andrea.