|
Macro évènementielle qui permet de désactiver l'option scrool sur certaines feuilles.. (barre de défilement)
'********************************* 'partie à coller dans ThisWorboock '*********************************
Option Explicit
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(Feuil1, Feuil2, Feuil5) For Each Ws In Feuilles If Ws.Index = Sh.Index Then Ok = True Next Ws ActiveWindow.DisplayVerticalScrollBar = Ok ActiveWindow.DisplayHorizontalScrollBar = Ok End Sub
Date de création : 24/05/2005 - 19:09
Dernière modification : 25/05/2005 - 22:20
Catégorie : Evènements
Page lue 3054 fois
Prévisualiser la page
Imprimer la page
|