Caché les barres de défilement de la feuille

Bonsoir le forum,
Un Fichier avec 4 feuilles, (Stock, DataBase,config et Mouvements )
Dans ThisWorkbook j’ai le code suivant :

Private Sub Workbook_Open()
Worksheets("Stock").Activate
With ActiveWindow
.DisplayWorkbookTabs = False ' onglets
ChargeArticle
End With
End Sub

Pour caché les barres de défilement de la feuille ( Stock) je essaie d’adapter le code de Ti ( ci-dessus ), mais rien a faire ! je n’ y arrive pas a les mettre ensembles. Comment faire ?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Ti
Dim Feuilles, Ws, Ok As Boolean
'ci-dessous la liste (par codenames) des feuilles dont on gardera
'les barres de défilement
Feuilles = Array(Mouvements, DateBase, config)
For Each Ws In Feuilles
If Ws.Index = Sh.Index Then Ok = True
Next Ws
ActiveWindow.DisplayVerticalScrollBar = Ok
ActiveWindow.DisplayHorizontalScrollBar = Ok
End Sub

Merci d’avance .
Amicalement
Pias

Bonsoir Pias

dans le code de la feuille Stock
Private Sub Workbook_Activate()
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False

devrait fonctionner

@+
GD

Salut, Gérard

Mais bien sur que ça fonctionne !
Parfois on se complique la vie …
Merci beaucoup
Gérard

Amicalement

...On se lasse de tout sauf d’apprendre !..