MACRO CHE LEVA PWD A TUTTI I FOGLI

[Sasyjoe]

Errore di run time '1004':

Errore nel metodo select per la classe worksheets.

Dice solo questo

[ricky53]

Ciao,
STRANO !
Il codice lo hai copiato in un modulo ?
Che versione di Office utilizzi ?
Lavori con più file excel aperti ?
In caso non eri sul file giusto ?

Occorre un file di esempio sul quale hai avuto il problema

[Sasyjoe]

Il codice lo ho copiato
Versione office 2007
Lavoro con un file excel aperto

Se può incidere i fogli nei quali voglio bloccare la riga 3, hanno già la riga 8 bloccata.

Forse bisogna prima sbloccarle tutte?

[Anthony47]

E’ possibile che tu abbia dei fogli nascosti? Comunque prima di poter impostare un nuovo “blocca riquadro” devi eliminare il precedente, cosa che ottieni aggiungendo la riga marcata <<<:

Codice: Seleziona tutto

        Sheets(I).Select ' <<===== Aggiunta
        ActiveWindow.FreezePanes = False    '<<< Elimina blocco riquadro

Rows("3:3").Select

Ciao

[Sasyjoe]

Non ho capito in che posizione inserire queste righe.

Puoi per favore compormela tu?

Sub Proteggi()
For I = 1 To Worksheets.Count
Rows("3:3").Select
ActiveWindow.FreezePanes = True

Sheets(I).Select ' <<===== Aggiunta
ActiveWindow.FreezePanes = False '<<< Elimina blocco riquadro

Sheets(I).Protect Password:="pippo", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Next I
End Sub



Inoltre puoi per favore inserirmi in questa altra macro che si cancellano tutte le formattazioni condizionali:

Sub Sproteggi()
For I = 1 To Worksheets.Count
Sheets(I).Unprotect Password:="pippo"
Next I
End Sub



Grazie

[ricky53]

Ciao,
un piccolo sforzo e ...

Codice: Seleziona tutto

Sub Proteggi()
    For I = 1 To Worksheets.Count
        Sheets(I).Select 
        ActiveWindow.FreezePanes = False    '<<< Elimina blocco riquadro
        Rows("3:3").Select
        ActiveWindow.FreezePanes = True
        Sheets(I).Protect Password:="as", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingColumns:=True, AllowFormattingRows:=True
       
        Range("A3").Select
    Next I
End Sub

Ricorda quanto ti ha scritto Anthony in merito ai fogli nascosti ...
aggiungi

Codice: Seleziona tutto

        Sheets(I).Visible = True


subito dopo

Codice: Seleziona tutto

    For I = 1 To Worksheets.Count

.