Condividi:        

Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

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

Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi zorea » 25/01/10 12:42

Ciao ;)

mi aiutate ad impostare una macro per un lavoro decisamente ripetitivo?
Dati:
In una cartella ho circa cento file xls con nomi diversi;
Ogni file xls è costituito da tre fogli: 2 protetti da password (stessa password) e 1 nascosto;
Tutti i fogli dei file sono nominati allo stesso modo;
La password è uguale per tutti i file.

Quesito:
Con una macro è possibile togliere a tutti i file le password associate ai fogli e scoprire il terzo foglio?

Grazie,
Zorea :)
zorea
Utente Junior
 
Post: 48
Iscritto il: 05/06/09 15:07

Sponsor
 

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi Anthony47 » 25/01/10 15:13

Creati in un file di servizio l' elenco dei files con il metodo del comando dos "Attrib", come descritto in questo messaggio: viewtopic.php?f=26&t=75455#p428651
Poi, partendo da questo file, registra una macro (*1) mentre:
-apri uno qualsiasi dei file di cui parli
-sproteggi Foglio1, sproteggi Foglio2, "scopri" Foglio3
-chiudi il file con salvataggio delle modifiche
-interrompi la registrazione macro (*2)
Pubblica quindi il codice ottenuto (*3) tramite Registra macro e ti insegneremo le modifiche per eseguire quelle operazioni su tutti i file che hai in elenco.
Istruzioni
*1: Menu /Strumenti /Macro /Registra nuova macro; accetta il nome che ti propone e procedi.
*2: Menu /Strumenti /Macro /Interrompi registrazione
*3: dal foglio Excel, Alt-F8; seleziona il nome della macro registrata, premi Modifica; ti si apre l' editor delle macro, copia il codice e incollalo nel prossimo messaggio sul forum. Se vuoi puoi sostituire con X le sigle che vuoi nascondere (es la password di sblocco fogli).

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

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi zorea » 25/01/10 16:00

Eccola... :)

Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro
'
'
    ChDir "C:\Users\nome\Desktop\Test\Word"
    Workbooks.Open Filename:= _
        "C:\Users\zorea\Desktop\Test\Word\nome_file.xls"
    Sheets("Istruzioni").Select
    ActiveSheet.Unprotect
    Sheets("TEST Word").Select
    ActiveSheet.Unprotect
    Sheets("TEST Word").Select
    Sheets("Risultato").Visible = True
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub


Attendo istruzioni... :D
zorea
zorea
Utente Junior
 
Post: 48
Iscritto il: 05/06/09 15:07

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi Flash30005 » 25/01/10 16:31

Apri un nuovo foglio e inserisci queste macro nel modulo
Codice: Seleziona tutto
Public Percorso As String, UF As Integer
Sub Archivio()
Worksheets("foglio1").Range("A:A").Clear
Worksheets("foglio1").Range("A1").Select
ChDrive "C"
Percorso = "C:\Data\"
Trova Direct:=Percorso, Estens:="*.xls", Inicell:=ActiveCell
Call SproteggiF
End Sub
Sub Trova(Direct As String, Estens As String, Inicell As Range)
  Dim i As Integer, f As String
  ChDir Direct
  'Worksheets("foglio1").Range("A1").Select
  f = Dir(Estens)
  If f = "" Then Exit Sub
  While f <> ""
    i = i + 1
    Inicell(i) = f
    f = Dir
  Wend
UF = i

End Sub
Sub SproteggiF()
For RR = 1 To 4
FXLS = Cells(RR, 1).Value
    Workbooks.Open Filename:=Percorso & FXLS
    For FN = 1 To 3
    Sheets(FN).Visible = True
    Worksheets(FN).Activate
    ActiveSheet.Unprotect Password:="fff"
    Next FN
    Workbooks(FXLS).Close savechanges:=True
Next RR
End Sub

Devi adattare il percorso (che nella macro è C:\Data\ ) con il tuo percorso file, non dimenticare di inserire lo slash "\" a fine stringa
poi, devi cambiare la password (nella macro = "fff")
Il file.xls (con la macro) che hai creato può essere ovunque ma non nella cartella dei file da processare e un foglio di questo file si deve chiamare Foglio1 (altrimenti modifica la macro dove vedi scritto "Foglio1")
Mentre, nei file da processare devono esserci sempre e solo 3 fogli, come da tue specifiche, e possono avere qualsiasi nome.

Prova a vedere se funziona ma ricordati sempre di fare un backup dell'intera cartella per mantenere i file originali.

Ciao

P.s. la "pappa fatta" può giovare solo se hai la necessità e urgenza dell'applicativo ma, per imparare, segui i consigli di Anthony che, sicuramente, non sbagli ;)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi zorea » 25/01/10 17:19

Ciao Flash,

la macro funziona unicamente per i primi 2 file.

Comunque per la creazione della macro in questione, posso seguire passo passo i suggerimenti che mi inviate, tuoi o di Anthony ... come vi è più comodo (magari è più "sbrigativo" per voi darci "la pappa pronta", piuttosto che seguirci passo passo nelle istruzioni). Per quanto mi riguarda, mi piacerebbe imparare ad essere autonoma o, per lo meno, capire bene ciò che sto scrivendo (anche per poterlo replicare in futuro in autonomia). Per questo vi ringrazio per ogni "lezione" che mi/ci impartite e dalle quali cerco di trarre il massimo.

Ciao :) ,
zorea
zorea
Utente Junior
 
Post: 48
Iscritto il: 05/06/09 15:07

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi Flash30005 » 26/01/10 00:09

zorea ha scritto:...la macro funziona unicamente per i primi 2 file....


:eeh: Strano, ho aperto tutti quelli che aveva nell'elenco, che corrispondevano a quelli contenuti nella cartella.

Se va in errore (dovresti dire in quale riga dà errore)
potrebbe significare che non hai sempre 3 fogli nei file ma due o uno
controlla quale file hai attivo al momento dell'errore, facendo il debug passo-passo e cerca di capire l'anomalia

L'elenco dei file nella colonna A del foglio1 (file con macro) è corretto?

Il file con la macro è fuori dalla cartella dei file da processare?

Informaci sul tipo di errore e se hai fatto qualche verifica su quanto detto.

Ciao


Ops :eeh: non è strano affatto... E' rimasto un valore usato come test che dovresti sostituire
nella macro SproteggiF
Codice: Seleziona tutto
Sub SproteggiF()
For RR = 1 To 4   '<<<< sostituire 4 con UF
...

devi avere questo:
Codice: Seleziona tutto
Sub SproteggiF()
For RR = 1 To UF
...


UF è l'ultima riga dell'elenco calcolata precedentemente
con 4 si ferma al quarto file, (ma non al secondo) :D

Fai sapere
AriCiao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi zorea » 26/01/10 09:55

Grazie! Ora funziona correttamente. :)
(Si era fermata al secondo file, e non al quarto, perchè avevo un intruso, che non avevo visto ieri avendo il sort per tipo file).

Per capire meglio...

la Sub Archivio: rintraccia la cartella e prende tutti i file con estenzione xls;
la Sub Sproteggi: svolge i compiti: toglie la protezione ai primi due fogli, rende visibile il terzo e infine chiude e salva le modifiche del singolo file;
la Sub Trova: un ciclo per... :undecided: trovare il file successivo e ripetere le operazioni sui singoli file? :-?

A presto,
zorea ;)
zorea
Utente Junior
 
Post: 48
Iscritto il: 05/06/09 15:07

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi Flash30005 » 26/01/10 10:28

La sub trova crea l'elenco.
Se vuoi capire come funziona
prendi 4 o 5 file con le caratteristiche dei due fogli con password e uno nascosto
li metti nel percorso stabilito
vai nel modulo e ti posizioni con il cursore nella macro Archivio
poi premi il tasto F8
potrai seguire passo passo ogni riga di codice e " l'effetto" che produce ;)

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel 2007 - Rimozione Password e Scorpi Foglio da Macro

Postdi zorea » 26/01/10 10:34

... e vedere di nascosto l'effetto che fa... :D
grazie, grazie.
zorea
zorea
Utente Junior
 
Post: 48
Iscritto il: 05/06/09 15:07


Torna a Applicazioni Office Windows


Topic correlati a "Excel 2007 - Rimozione Password e Scorpi Foglio da Macro":


Chi c’è in linea

Visitano il forum: Gianca532011 e 69 ospiti