scopri e nascondi righe e colonne

[trittico69]

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

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!

[Anthony47]

Per la prima domanda, sostituisci l' istruzione che usi con Cells.EntireRow.Hidden = True

Per la seconda: registra una macro mentre sul foglio attivo nascondi le colonne che vuoi, poi copi il codice prodotto (Meno il titolo ed End Sub) subito dopo l' istruzione "Worksheets(ff).Select"

Per la terza: aggiungi Sheets(r).Unprotect subito dopo la " For r = 2 To wsc"; aggiungi Sheets(3).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True subito prima di Next ff

Ciao

[trittico69]

ok grazie funziona

[trittico69]

rettifico mi mette la protezione solo al terzo foglio
aggiungi Sheets(3).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True subito prima di Next ff

[trittico69]

ho risolto in questo modo

Codice: Seleziona tutto

Dim ff As Integer
Dim rr As Integer
For ff = 2 To 13
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
    Range("K:L,P:AW").EntireColumn.Hidden = True
Next rr
End If
Sheets(ff).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ff
End Sub

ma è possibile escludere due celle dalla protezione ed esattamente J12-O12-I8-M9

[Anthony47]

Mi spiace aver pubblicato il codice errato, mi fa piacere che hai trovato e corretto l' errore.

Per quanto riguarda la nuova domanda, la protezione e' sempre a livello di foglio, ma ne sono escluse le celle che sono formattate senza attributi di protezione; quindi per escludere alcune celle dal blocco dovrai formattarle eliminando i flag di protezione: Menu /Formato /Celle; tab Protezione, togli la spunta a Bloccata e Nascosta; Ok.
Per applicarlo su tutti i fogli, registra una macro mentre formatti come detto le celle di tuo interesse, poi riporta il codice prodotto dalla registrazione subito prima della Sheets(ff).Protect etc etc

Ciao