ScrollArea

[garnote]

Hi all,

ActiveSheet.ScrollArea = "A110"
work fine but how is possible use ScrollArea
on Range("A12,C5:G10") ?

Thanks

Serge

 

[Earl Kiosterud]

Serge,

You may get the results you want by setting the scroll area to A1:G10, and
unlocking (Format - Cells - Protection) the cells (or some of them) in the
two areas, then protecting the sheet. Set the EnableSelection property of
the sheet to xlUnlockedCells. This property, like ScrollArea, must be set
upon each opening of the workbook. It forgets.

You also may wish to --
Earl Kiosterud
mvpearl omitthisword at verizon period net

 

[garnote]

Thank you for the trick.
And I think that those Sub work good :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Union(Target, Range("ici")).Address <> Range("ici").Address _
Then Range("ici").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Union(Target, Range("ici")).Address <> Range("ici").Address _
Then Range("ici").Select
End Sub

Serge