[...] ma chiudendo il documento e riaprendolo sono di nuovo punto a capo, nel senso che il foglio torna a scorrere come prima della impostazione ScrollArea malgrado abbia confermato il salva modifiche alla chiusura del file
Nemmeno ci aepo pensato che quella proprieta' potesse essere momentanea...
Se vuoi attivare la prestazione su tutti i fogli, userai questa macro invece di quella data da Ricky:
- Codice: Seleziona tutto
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ScrollArea = "$A$1:$H$20" '<< La tua area
End Sub
Se invece l' intervallo varia di foglio in foglio allora allora potresti provare a sostituire ActiveSheet.ScrollArea = "$A$1:$H$20" con
- Codice: Seleziona tutto
ActiveSheet.ScrollArea = ActiveSheet.UsedRange.Address
Se invece vuoi farlo su alcuni fogli si e altri no, la cosa piu' semplice e' che torni alla macro di Ricky e inserisci tante righe per ogni foglio da controllare, tipo
- Codice: Seleziona tutto
'. . .
ThisWorkbook.Sheets("Foglio1").ScrollArea = "$A$1:$H$20"
ThisWorkbook.Sheets("Foglio2").ScrollArea = "$A$1:$F$33"
ThisWorkbook.Sheets("Foglio6").ScrollArea = "$A$1:$H$2"
'. . .
Ciao