Ciao,
sempre se ho capito bene il tuo problema, il codice dovresti modificarlo in questo modo:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("utenti").Unprotect "987654"
Range("zona").Interior.Color = xlNone '<<< zona = definisci nome
Worksheets("utenti").Protect "987654"
End Sub naturalmente "zona" devi averla definita prima...
Assicurati che il nome del foglio ("utenti") sia scritto allo stesso modo.
[EDIT]
oppure così:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "utenti" Then
ActiveSheet.Unprotect "987654"
Range("zona").Interior.Color = xlNone '<<< zona = definisci nome
ActiveSheet.Protect "987654"
end if
End Sub[Modificato da cromagno 10/11/2015 21:31]
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."