Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

STAMPA DI N FOGLI PROTETTI

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

STAMPA DI N FOGLI PROTETTI

Postdi luca62 » 03/10/15 18:01

HO IL SEGUENTE PROBLEMA:
HO UNA SERIE DI FOGLI IN UN FILE ECON UN COMANDO VOGLIO STAMPARNE ALCUNI
il problema è che con la macro seguente, la macro fa i primi 2fogli e poi niente.
Se rimuovo manualmente la protezione di ogni foglio e poi do l amacro, questa funziona
cosa sbaglio?

allego macro:


Codice: Seleziona tutto
Sub stampa()
'
' stampa Macro
'

'
For i = 1 To Worksheets.Count - 8
ActiveSheet.Unprotect
If Worksheets(i).Range("C89") <> 0 Then
Worksheets(i).PrintOut From:=1, To:=4 'stampa la pagina numero 1-4

ElseIf Worksheets(i).Range("C59") <> 0 Then
Worksheets(i).PrintOut From:=1, To:=3 'stampa la pagina numero 1+2+3

ElseIf Worksheets(i).Range("C30") <> 0 Then
Worksheets(i).PrintOut From:=1, To:=2 'stampa la pagina numero 1+2

ElseIf Worksheets(i).Range("C3") <> 0 Then
Worksheets(i).PrintOut From:=1, To:=1 'stampa la pagina numero 1

End If
Application.Goto Reference:="stampa"


Next i
luca62 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: STAMPA DI N FOGLI PROTETTI

Postdi Marius44 » 03/10/15 19:27

Ciao Luca
La "sprotezione" (brutto termine, meglio "eliminazione della protezione" è inserita in maniera errata. Tu non hai ATTIVATO il foglio quindi non può essere ActiSheet.Unprotect ma dev'essere Sheets(i).Unprotect. Correggi e vedrai che funziona.
Non dimenticare di rimettere la protezione al foglio stampato.

Fammi sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 142
Iscritto il: 07/09/15 22:00

Re: STAMPA DI N FOGLI PROTETTI

Postdi luca62 » 04/10/15 08:58

così non funziona!

andando a sostituire
For i = 1 To Worksheets.Count - 8
ActiveSheet.Unprotect

con

For i = 1 To Worksheets.Count - 8
Sheet(i).Unprotect

mi da errore di compilazione!
luca62 office2007 window7
luca62
Utente Senior
 
Post: 158
Iscritto il: 23/12/12 14:54

Re: STAMPA DI N FOGLI PROTETTI

Postdi Anthony47 » 04/10/15 09:09

For i = 1 To Worksheets.Count - 8
Sheet(i).Unprotect

mi da errore di compilazione!

Ma Marius ti aveva suggerito
Codice: Seleziona tutto
Sheets(i).Unprotect

Piccolo particolare che fa la differenza!

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


Torna a Applicazioni Office Windows


Topic correlati a "STAMPA DI N FOGLI PROTETTI":


Chi c’è in linea

Visitano il forum: Nessuno e 28 ospiti