Dans le code suivant (qui s'active à l'ouverture), je veux ajouter des restriction de navigation sur plusieurs pages (ScrollArea).
j'ai tenté de les ajouter au code déjà existant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Workbook_Open()

      Application.DisplayFormulaBar = False
    With ActiveWindow
    Worksheets("feuill 1").Activate
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
       
    End With
   with
Worksheets("feuill 1").ScrollArea = "d3"
Worksheets("feuill 2").ScrollArea = "b3"
Worksheets("feuill 3").ScrollArea = "a7:ab80"

end With

      Application.DisplayFullScreen = True
 
  Select Case MsgBox("Avez-vous enregistrer le fichier de base de la Méthodo" & Chr(10) & "sur votre Disque Dur?", vbExclamation + vbYesNo + vbApplicationModal + 256, "Enregistrement Méthodo")
     Case vbYes
        'procédure si click sur Oui
    Case vbNo
        Application.Dialogs(xlDialogSaveAs).Show
End Select
End Sub
mais voila ça ne fonctionne pas

j'ai cherché un peu partout (FAQ ...), pas de sollution à mon pb.