macro per bloccare sbloccare più fogli excel

[martin]

salve a tutti ciao antony
mi serve una macro per bloccare e sbloccare in contemporanea tutti i fogli (n.200) con nomi che vanno da p1 a p200
ci riesco ma devo per forza scrivere in macro tutti i comandi foglio per foglio?
mi serve una formula completa che magari faccia da foglio p1 to foglio 200
grazie

e poi altra che mi incolli una formula di una cella specifica in contemporanea su tutti i fogli

grazie tante
ciao

[Anthony47]

Dovresti usare una macro come questa:

Codice: Seleziona tutto

Sub Sub protectall()
For I=1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Protect 'Password:="Anthony"                '<<Scommentare per inserire la password
Next I
End Sub


La macro di sprotezione sara' analoga a parte

Codice: Seleziona tutto

Sheets(I).Unprotect 'Password:="Anthony"          '<<<Scommentare per inserire la password


Ovviamente invece della stringa "Anthony", per la password (se vuoi inserirla diversa foglio per foglio) puoi usare una variabile che compilerai secondo una tua regola.

Per a macro della formula seguirai un ragionamento analogo; il codice per l' inserimento della formula sul primo foglio lo puoi ottenere registrando una macro mentre fai l' operazione, poi inserisci nel ciclo For / Next come sopra.

Ciao, fai sapere.

[martin]

ok anthony tutto ok
grazie

però ti faccio sapere meglio perchè c'è un piccolo problema
che se ho capito riguarda il nome dei fogli.
i miei fogli vanno da p1 a p200 nel mezzo c'è qualcuno che si chiama "riepilogo" e" disp"
la macro blocca va per tutti.
quella sblocca si interrompe al primo nome pagina diverso chiede passw do annulla e va.(tutto sommato ok..)

sulla macro incolla pero si blocca fino al primo nome diverso di p1.. trova esempio riepilogo e si blocca.
comunque le formule vanno bene
per me il problema e riuscire a mettere in ordine il vba proget che mi da tutti i fogli mischiati.
se non sono stato chiaro fammi sapere.
attendo tuo consiglio

[Anthony47]

Per capire dovrei sapere cosa c' e' nelle macro che nomini (il loro codice).

Ciao.

[martin]

Sub incolla()
For I = 1 To ActiveWorkbook.Worksheets.Count
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Copy
Sheets(I).Select
Range("C17").Select
ActiveSheet.Paste
Sheets("P2").Select
Application.CutCopyMode = False
Next I

End Sub

sono 231 fogli chiamati da "riepilogo,p1,p2,p3........p75,riepilogo2........p76,p77,......p148....riepilogo3,p149.150,...231.
macro funziona fino a p101 poi da "errore runtime 1004 -errore metodo select per la classe worksheet"

stesso problema:

Sub protectall()
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Protect 'Password:="Anthony"
Next I
End Sub

Sub sprotectall()
For I = 1 To ActiveWorkbook.Worksheets.Count
Sheets(I).Unprotect 'Password:="Anthony"
Next I
End Sub

il blocco macro , legge tutto
macro sblocco anche qui si blocca a "p101" e richiede password
se inserisco passw va in errore dicendo passw errata (ma è giusta!) se annullo finisce tranquillo il suo lavoro di sblocco fino a p232

nb
quando vado in vba noto che tutti i fogli a dx dove dice progettovba sono tutti non in ordine ma a gruppi.
potrebbe essere questo il pro?
c'è la possibilita di metterli in ordine?
grazie anthony

[Anthony47]

La prima macro (Incolla) cosa dovrebbe fare? Le prime istruzioni, da Locked a Copy, a quali celle si riferiscono?

Per Protectall e Sprotectall prova a usare, invece di Sheets(I).Protect

Codice: Seleziona tutto

Activeworkbook.Sheets(I).Protect

La sequenza con cui i fogli sono rappresentati sul vbaproject e' quella di creazione dei fogli, cioe' dei cosiddetti "CodeName", e non e' modificabile. Gli "indici" (quelli che abbiamo usato noi) sono riferiti alla posizione del tab col nome-foglio: 1 il piu' a sx, 2, quello dopo, etc.

Il foglio P101 mi sembra che sia protetto con una sua password e non riesci a sbloccarlo? Questo problema si ripercuote anche su Incolla, in quanto certamente avresti problema a incollare qualcosa in C17, e in piu' (a seconda di come e' stato protetto) potresti essere impedito anche nel selezionare le celle (da cui il tipo di errore che descrivi).
In linea di massima, pero', se non riesci a sbloccarlo a mano non ce la fara' nemmeno la macro.

Ciao.

[martin]

1^ risposta
la macro incolla deve incollare su tutte le pagine stessa cella un valore
(trattasi di una cella colorata gialla con 2 dati a tendina )
precisamente cella c17 di p2
deve essere copiata in tutte le pagine nella stessa posizione.
ma copia fino a p101 e da l'errore che ti dicevo.

2^ risposta
sostituito" ActiveWorkbook.Sheets(I)" ma funziona lo stesso.
3^ risposta
la p101 non è bloccata!!! è libera

su sprotec quando la macro si fermaa p101 per chiedere la passw io annullo lei va avanti tranquillamente.
non capisco perche si debba fermare.
ciaooo

[martin]

anthony

tutto ok
trovato il problema .
ho qualcosa di anomalo sulla p101 io
perchè ho provato a dividere 1to100 e 102 to 231 saltando la p101
funziona tutto grazie e scusa
adesso mi tocchera capire cos'é che non va
grazie di tutto
martin

[Anthony47]

Da quello che scrivi mi pare che devi scoprire quale e' la password per sproteggere il foglio P101; per il resto vale il noto detto "la necessita' aguzza l' ingegno".

Ciao.

[martin]

ciao antony
sai quale era il problema?

c'era un foglio erroneamente dimenticato nascosto con nome diverso tra p101 e p102
ecco perchè la macro si bloccava.

dopo cancellazione tutto ok