restriction de navigation/srollarea erreur de code!

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:

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.

Private Sub Workbook_Open() Application.DisplayFormulaBar = False Worksheets("feuill 1").Activate With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayWorkbookTabs = True End With Worksheets("feuill 1").ScrollArea = "D3" Worksheets("feuill 2").ScrollArea = "B3" Worksheets("feuill 3").ScrollArea = "A7:AB80" Application.DisplayFullScreen = True Select Case MsgBox("Avez-vous enregistré 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