ThisWorkbook.IsAddin = False

Version imprimable

Bonjour le Forum,
Je rencontre un probleme,:cry: a l'ouverture d'un fichier excel contenant des macros j'installe toujours

Code:

ThisWorkbook.IsAddin = False

afin que l'utilisateur soit obligé d'activer les macros sinon le fichier ne s'ouvre pas et reste sur une page grise
Dans mon cas si dessous le code ne fonctionne pas

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
Private Sub Workbook_Open()
 Application.ScreenUpdating = False
   ThisWorkbook.IsAddin = False
    Dim C As String
    Dim cpt As Integer
    Dim R As String
 
 
    If Date > #1/5/2010# Then
 
        R = Sheets("RENSEIGNEMENTS").Range("D1").Value
 
        Do
 
            C = InputBox("Tu donnes combien BRUNO?", _
                         "Accès restreint", _
                         "10 000€", _
                         5500, _
                         5000)
 
            cpt = cpt + 1
 
        Loop Until C = R Or cpt > 3
 
        If C <> R Then ThisWorkbook.Close savechanges:=False
 
    End If
 
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
 
UserForm2.Show
Application.ScreenUpdating = True
 
End Sub

D'avance merci de votre aide
Cdt

13/02/2011, 12h52
Pierre Fauconnier

Salut.

Perso, je ne comprends pas le lien que tu fais entre la propriété AddIn et les macros...

Tu places cela sur des XLA?
13/02/2011, 19h30
VELO1222

Oui, je fais certainement une erreur mais
As tu une solution a mon probleme afin d'obliger les utilisateurs a activer les macro pour lire le fichier
Cdt
13/02/2011, 21h32
Pierre Fauconnier

Perso, la seule solution que je vois est de ne rendre visible qu'un seul onglet de ton classeur et de passer les autres en VeryHidden via l'éditeur du VBA (ou par code).

Dans l'onglet visible, tu places un texte qui explique que l'utilisateur doit accepter les macros (et au besoin descendre le niveau de protection d'Excel). Lorsque les macros sont activées, le code du classeur peut alors rendre les feuilles visibles, et le code doit évidemment les masquer toutes (sauf le "menu") en fermeture de fichier.

Il existe des possibilités de descendre le niveau via les clefs de registre, par vbscript notamment. Il faut chercher un peu sur le site pour trouver le code du vbscript.

Bonsoir,
mais pourquoi dans ce cas ci dessous le code fonctionne lorsque je n'active pas les macros??

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
Private Sub Workbook_Open()
Application.ScreenUpdating = False
ThisWorkbook.IsAddin = False
If Date > #1/5/2012# Then
Do Until c <> ""
c = InputBox("quel est votre mot de passe?", "accès restreint", "mot de passe SVP", 5500, 5000)
cpt = cpt + 1
If cpt > 3 Then ThisWorkbook.Close savechanges:=False
Loop
On Error Resume Next
If c <> "TONY.NOURRY" Then ThisWorkbook.Close savechanges:=False
End If
With ActiveWindow
.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Reviewing").Visible = False
End With
 
Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
 
 
Sheets("COEFFICIENTS").Select
    Range("G8").Select
    UserForm1.Show
 
ActiveWindow.DisplayWorkbookTabs = True
Application.ScreenUpdating = True
End Sub

13/02/2011, 22h24
Pierre Fauconnier

Cela dépend du niveau de sécurité des macros.

Si le niveau est "faible", les macros sont activées automatiquement.

Il se peut aussi que ton fichier soit stocké dans un environnement approuvé, auquel cas, les macros sont déclenchées quel que soit le niveau de sécurité d'Excel.
13/02/2011, 23h28
VELO1222

bonsoir,
a partir du meme PC j'ouvre le fichier sans activer les macros et ensuite sur le dernier exemple que je viens de vous envoyez il est impossible de l'ouvrir si les macros ne sont pas activées
ma question pourquoi avec l'un le code fonctionne et non avec l'autre