STAMPA DI N FOGLI PROTETTI

[luca62]

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

[Marius44]

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

[luca62]

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!

[Anthony47]

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