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

[blunotte13]

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 !!

[Anthony47]

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

[blunotte13]

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 !!

[Anthony47]

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

[blunotte13]

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 !!

[blunotte13]

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

[Anthony47]

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

[blunotte13]

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 !!

[blunotte13]

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.

Buonatte, ciao ciao !!