[XL-2013] code vba et mode protégé (outlook)

Bonjour à tous,

Depuis peu, à l'ouverture d'une pièce jointe de type excel dans un mail, celle-ci s'ouvre en mode protégé (système imposé par l'admin IT de la boîte).
Cela plante mon code vba à l'ouverture et je me demandais comment y remédier sans trop bouger à ce dernier.
pouvez vous m'éclairer ?

en fait, il propose d'activer les modifications et ensuite j'ai un message du style ==> "la méthode activate de l'objet worksheet à échoué".

mon code dans "thisworkbook" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub workbook_open()
 
Application.ScreenUpdating = False
 
'Vérification erreur en arrière plan temporairement désactivée
Application.ErrorCheckingOptions.BackgroundChecking = False
 
'Affichage xl du classeur
Application.WindowState = xlMaximized
 
Call savestart 'backup du classeur à l'ouverture
 
'activation de la feuille sh_11xx
sh_11xx.Activate
sh_11xx.worksheet_activate
 
Application.ScreenUpdating = True
 
If sh_update.Range("A2") <> "" Then
    Call AffichUsfUpdate
End If
 
End Sub

Mon code dans sh_11xx :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Sub worksheet_activate()
 
Static Exec As Boolean
If Exec = True Then Exit Sub
Exec = True
 
Application.ScreenUpdating = False
 
'mise en page du titre
 
    Dim t1$, t2$, chaine_rouge$, x&
    t1 = sh_parameters.Range("A21").Value
    t2 = sh_update.Range("B1")
    chaine_rouge = "(source-oorsprong SAP - " & t2 & ")"
    With Range("a1")
        .Value = "Dépenses de personnel / Personeelsuitgaven - Bud_" & t1 & " " & chaine_rouge
        x = InStrRev(.Value, chaine_rouge)
        With .Font
            .Bold = True
            .Italic = True
            .Name = "Verdana"
            .Size = 18
        End With
        .Characters(x, Len(chaine_rouge)).Font.Color = vbRed
        .Interior.Color = RGB(255, 255, 176)
    End With
 
ActiveWindow.zoom = 80
 
'ouverture sur cellule déterminée
Application.Goto reference:=Range("M2"), Scroll:=True
 
With Me
    .Columns("A:XFD").Hidden = False
    .Columns("B:F").Hidden = True
    .Columns("H").ColumnWidth = 2.6
    .Columns("AC").ColumnWidth = 8.15
    .Columns("I").ColumnWidth = 17.15
    .Columns("L").ColumnWidth = 17.15
    .Columns("AA:AB").ColumnWidth = 17.15
    .Columns("J:K").ColumnWidth = 15.3
    .Columns("M:P").ColumnWidth = 15.3
    .Columns("R:X").ColumnWidth = 15.3
    .Columns("Z").ColumnWidth = 15.3
    .Columns("Y").ColumnWidth = 14.3
    .Columns("Q").ColumnWidth = 14.3
End With
 
Application.ScreenUpdating = True
 
End Sub