Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per bloccare sbloccare più fogli excel

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 per bloccare sbloccare più fogli excel

Postdi martin » 19/12/08 10:41

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
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Sponsor
 

Re: macro per bloccare sbloccare più fogli excel

Postdi Anthony47 » 20/12/08 18:09

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

Re: macro per bloccare sbloccare più fogli excel

Postdi martin » 21/12/08 18:32

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
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro per bloccare sbloccare più fogli excel

Postdi Anthony47 » 21/12/08 19:07

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

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

Re: macro per bloccare sbloccare più fogli excel

Postdi martin » 21/12/08 21:45

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
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro per bloccare sbloccare più fogli excel

Postdi Anthony47 » 21/12/08 23:52

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

Re: macro per bloccare sbloccare più fogli excel

Postdi martin » 22/12/08 01:12

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
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro per bloccare sbloccare più fogli excel

Postdi martin » 22/12/08 02:32

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
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04

Re: macro per bloccare sbloccare più fogli excel

Postdi Anthony47 » 24/12/08 02:24

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

Re: macro per bloccare sbloccare più fogli excel

Postdi martin » 08/01/09 12:46

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
martin
Utente Senior
 
Post: 108
Iscritto il: 03/12/08 17:04


Torna a Applicazioni Office Windows


Topic correlati a "macro per bloccare sbloccare più fogli excel":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti