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