Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Due domande: protezione fogli: macro cerca su più 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

Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 08/02/11 19:01

Mi rifaccio a questo topic http://www.pc-facile.com/forum/viewtopic.php?f=26&t=77278, ho modificato la password nella macro, lancio la macro e tutti i fogli vengono protetti e sprotetti regolarmente, però se clicco su
-DATI-RIMUOVI PROTEZIONE FOGLIO il foglio viene sprotetto senza che mi venga chiesta la password.

Circa la seconda domanda nel titolo, sempre nel file incriminato, vorrei sapere che codice usare per creare una macro che gira tutti i fogli del file, copia sempre lo stesso intevallo (K2:Q2) e lo incolla in colonna nel foglio1, mi spiego meglio

in Foglio1 riga2 incolla i dati di foglio2 intervallo K2:Q2
in Foglio1 riga3 incolla i dati di foglio3 intervallo K2:Q2
in Foglio1 riga4 incolla i dati di foglio4 intervallo K2:Q2
ecc........

IL numero dei fogli del file non è fisso ma aumenta almeno 2 volte a settimana, ho provato ad usare il registratore di macro, ma naturalmente, compie le azioni che faccio, quindi avendo registrato la macro ieri, il foglio aggiunto oggi non viene calcolato.

Grazie per l'aiuto.

A presto, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Sponsor
 

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi Anthony47 » 08/02/11 22:16

Per il primo quesito, probabilmente quando proteggi il foglio non applichi una password; quale e' il codice con cui fai tutto questo?

Per il secondo quesito
Codice: Seleziona tutto
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).select
If activesheet.name<>"Foglio1" then
Activesheet.range("K2:Q2").Copy Destination:= _
Sheets("Foglio1").Range("A" & Rows.count).end(Xlup).Offset(1,0)
End If
Next I

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: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 09/02/11 01:00

Grazie per la celere risposta.
Per la protezione dei foglio ho trovato questi codici nella discussione a cui mi riferivo prima
Codice: Seleziona tutto
Sub proteggi()
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Protect 'Password:="123456"
Next I
End Sub

Codice: Seleziona tutto
Sub sproteggi()
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Unprotect 'Password:="123456"
Next I
End Sub


Per la macro grazie per la velocità però non funziona, ho riscontrato che:
-i fogli li gira tutti, come mi serve, però cerca anche nel foglio che ho indicato come foglio1, ma in realtà il mio si chiama Report, che comunque ho rinominato nella tua macro.
-i dati non vengono nè copiati ne incollati, tra l'altro mi sono accorto che ho scritto le righe sbagliate, invece di

Foglio1 riga2 incolla i dati di foglio2 intervallo K2:Q2
Foglio1 riga3 incolla i dati di foglio3 intervallo K2:Q2
Foglio1 riga4 incolla i dati di foglio4 intervallo K2:Q2
dovrebbe essere
Foglio1 riga3 colonna b3 incolla i dati di foglio2 intervallo K2:Q2
Foglio1 riga4 colonna b3 incolla i dati di foglio3 intervallo K2:Q2
Foglio1 riga5 colonna b3 incolla i dati di foglio4 intervallo K2:Q2
ecc.......

ho provato a modificare i riferimenti così
Codice: Seleziona tutto
Sub cerca_dati()
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Select
If ActiveSheet.Name <> "Report" Then
ActiveSheet.Range("K2:Q2").Copy Destination:= _
Sheets("Report").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next I
End Sub

ma niente, non riesco a farla funzionare.
A presto, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi Anthony47 » 09/02/11 11:55

Mi dici che cosa succede sul foglio Report dopo che hai eseguito la macro?
Mi dici se le celle K2 dei tuoi fogli sono sempre piene o a volte si / a volte no?

Per quanto riguarda la password, il messaggio a cui ti sei ispirato diceve
Sheets(I).Unprotect 'Password:="Anthony" '<<<Scommentare per inserire la password
"Scommentere" significa togliere l' apostrofo davanti alla parola Password (sia sull' istruzione Protect che Unprotect).

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: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 09/02/11 12:50

Ho riprovato a lanciare la macro "cerca" per verificare bene cosa succede: come ti ho detto i fogli del file vengono girati tutti ma le celle dell'intervallo da copiare non vengono nè selezionate nè copiate, nell'animazione della macro, o come si dice nel modo giusto, il foglio Report non viene mai aperto tranne quando la macro cerca in esso l'intervallo da copiare.
Se posso i primi 2 fogli del file sono : il primo un riepilogo generale, il secondo il foglio Report, sarebbe ottimale che la macro, oltre a non cercare i dati sul foglio Report, non li cercasse anche nel primo foglio di riepilogo generale.

Per la password, non lo sapevo, adesso funziona.

A presto, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 09/02/11 12:56

Ho dimenticato, tranne che nei primi 2 fogli, l'intervallo K2:Q2 è sempre piene in tutti gli altri fogli.
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi Anthony47 » 09/02/11 23:53

Se vuoi escludere anche un altro foglio dalla copia allora modifica l' istruzione If in
Codice: Seleziona tutto
If ActiveSheet.Name <> "Report" and ActiveSheet.Name <> "Consuntivo" Then

Per il resto: il foglio Report non viene attivato per la copia, ne' rimane visibile la cornice tratteggiata attorno all' area copiata; per questo ti avevo chiesto " che cosa succede sul foglio Report dopo che hai eseguito la macro?"
Riconfermo la domanda.

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: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 10/02/11 02:39

Ho trovato l'errore ci ho messo quasi 3 ore....in colonna a c'erano dei dati con il carattere bianco e quindi la prima riga vuota era la 93°, scusa se ti h fatto perdere del tempo, ma mi sono talmente incaponito che non pensato che di solito le soluzioni valide sono quelle più semplici, cioè controlare con calma e sangue freddo.
La macro funziona benissimo, devo però abusare ancora della tua pazienza, puoi dirmi il codice da aggiungere per fare in modo che la funzione INCOLLA diventi INCOLLA SPECIALE VALORI ?
Ho provato a registrarla ed aggiungerla dopo questa riga
Codice: Seleziona tutto
Sheets("Report").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


ma restituisce l'Errore Run Time 1004 errore nel metodo pastespecial per la classe range.

Grazie in anticipo e scusa ancora se ti ho fatto perdere tempo per niente.

A presto, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Re: Due domande: protezione fogli: macro cerca su più fogli

Postdi blunotte13 » 10/02/11 02:55

Adesso posso andare a dormire (poco) soddisfatto (tanto), sono riuscito a far funzionare la macro con il comando INCOLLA SPECIALE ed il file finalmente funziona. :D

Buonatte, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35


Torna a Applicazioni Office Windows


Topic correlati a "Due domande: protezione fogli: macro cerca su più fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti