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

MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 08/09/14 11:23

Buongiorno,

ho un file con 40 fogli.

mi occorrono 2 macro:

la prima deve levare la password a tutti i fogli.

la password è pippo ed è uguale per tutti i fogli.

La seconda deve mettere la protezione foglio a tutti i fogli e la password è sempre pippo.

grazie.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Sponsor
 

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 08/09/14 11:57

Ciao,
fai le operazioni descritte (su due, tre fogli) dopo aver attivato il registratore di macro e ... il codice ottenuto va adattato.

Prova e se non riesci ... siamo QUI
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 08/09/14 12:28

ECCOLA:


    Sub levapwd()
    '
    ' levapwd Macro
    '

    '
    ActiveSheet.Unprotect
    ActiveSheet.Previous.Select
    ActiveSheet.Unprotect
    ActiveSheet.Previous.Select
    ActiveSheet.Unprotect
    End Sub
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 08/09/14 13:34

Qualcuno che mi aiuta please?!?!
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 08/09/14 14:03

Ciao,
prova con questo esempio
Codice: Seleziona tutto
Sub Proteggi()
    For I = 1 To Worksheets.Count
        Sheets(I).Protect Password:="pippo"
    Next I
End Sub


Per avere la macro "Sproteggi" modifica quanto ti ho inviato sostituendo "Protect con "Unprotect"
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 12/09/14 10:27

TU SEI UN GENIO!

Grazieeee
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 12/09/14 10:39

Ciao,
Ah, Ah !!!

Mi piace la programmazione ed il VBA e mi impegno a cercare le soluzioni alle problematiche mie e degli utenti dei forum e ... imparo molto frequentando i forum ed alcuni siti di GURU di Excel e del VBA (ci sono anche GURU italiani molto, ma molto, in gamba... vedi Mauro GAMBERINI)
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 14/09/14 08:48

Ciao ricky.

Pensavo: se qualcuno apre il codice legge la pwd e puo sbloccare i fogli.

Ce soluzione?

Non puó eseguire la macro perchè le disattivo e salvo in formato excel che le macro non sono eseguibili ma se legge pwd puó sbloccare foglio manualmente.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 15/09/14 00:00

Ciao,
in excel qualunque protezione è "FACILMENTE RIMOVIBILE".
Le protezioni servono solo per impedire cancellazioni accidentali.

Il mio pensiero è "NON vale la pena di proteggere i fogli ed il codice se non per evitare cancellazioni accidentali.
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 17/09/14 10:22

Ricky è possibile quando protegge tutti i fogli vistare le opzioni "Formato colonne" e "formato righe".

Grazie!
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 17/09/14 11:53

Ciao,
SI.
Prova a fare l'operazione con il registratore di macro e adatta la riga di codice che ti ho proposto
Codice: Seleziona tutto
Sheets(I).Protect Password:="pippo"

con la nuova istruzione che otterrai
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 17/09/14 16:25

Non sono riuscito ricky. Dopo ti posto il codice.

Non ho capito a che punto inserire la tua stringa rispetto a quella iniziale.

Ciaoo
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Anthony47 » 21/09/14 22:59

Ricky (viewtopic.php?f=26&t=102695&p=596635#p595988) ti ha dato la macro che applica la protezione con le impostazioni standard; se vuoi consentire / negare altre cose, allora registra una macro mentre proteggi un foglio usando quelle impostazioni personalizzate; poi invece di usare la generica Sheets(I).Protect Password:="pippo" userai la piu' complessa istruzione che ti ha fornito il registratore di macro; ad esempio
Codice: Seleziona tutto
    Sheets(I).Protect Password:="pippo", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
(e' un esempio)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 24/09/14 12:56

ok sono riuscito! siete grandi.

Adesso vorrei che, prima di proteggere, mi selezionasse il rigo 10 di ogni foglio del file per poi attivare visualizza -> blocca riquadri.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 27/09/14 10:30

Qualcuno che lo sa fare??
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 28/09/14 01:48

Ciao,
prova con il registratore di macro ed esegui i passi che hai descritto su un fogli e poi con un ciclo For/Next scorri i vari fogli e ...
Il codice ottenuto va modificato.
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 01/10/14 10:20

Ho ricavato questo.

Codice: Seleziona tutto
Sub Proteggi()
    For I = 1 To Worksheets.Count
            Rows("3:3").Select
    ActiveWindow.FreezePanes = True
        Sheets(I).Protect Password:="as", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
    Next I
End Sub


Adesso, vorrei che mi bloccassi la riga 3 a tutti i fogli e non solo al foglio in cui mi trovo.

Grazie!
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 01/10/14 10:31

Ciao,
prova con
Codice: Seleziona tutto
Sub Proteggi()
    For I = 1 To Worksheets.Count
        Sheets(I).Select ' <<===== Aggiunta
        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
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi Sasyjoe » 01/10/14 12:21

No!

va in debug proprio sulla riga che hai aggiunto. si evidenzia di giallo.
Sasyjoe
Utente Senior
 
Post: 404
Iscritto il: 04/05/12 13:27

Re: MACRO CHE LEVA PWD A TUTTI I FOGLI

Postdi ricky53 » 01/10/14 14:10

Ciao,
si ma che errore viene fornito nel messaggio ?
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Prossimo

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 74 ospiti