Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO CHE LEVA PWD A TUTTI I FOGLI

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 01/10/14 14:19

Errore di run time '1004':

Errore nel metodo select per la classe worksheets.

Dice solo questo
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Sponsor
 

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 01/10/14 15:17

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 01/10/14 21:05

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?
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Anthony47 » 02/10/14 01:25

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 06/10/14 14:25

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
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 06/10/14 15:58

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
.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "MACRO CHE LEVA PWD A TUTTI I FOGLI":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti