La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23VfCnv4KIHA.484@TK2MSFTNGP06.phx.gbl...
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23VfCnv4KIHA.484@TK2MSFTNGP06.phx.gbl...
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23VfCnv4KIHA.484@TK2MSFTNGP06.phx.gbl...
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23VfCnv4KIHA.484@TK2MSFTNGP06.phx.gbl...
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub
La dernière ligne de code de la procédure :
-> 1: Set VBP = Nothing
doit être supprimé...elle ne sert à rien !!! (un oubli)
"MichDenis" a écrit dans le message de news:
%
Sub AfficheLaFenetre()
'Déclaration des Variables
Dim Wsh As Object
Dim NiveauSecurite As Integer
Dim ConfianceModeleInstaller As Integer
Dim ConFianceCeProjet As Integer
'Avant la version 10, ce qui suit n'existait pas
If Val(Application.Version) < 10 Then Exit Sub
'Lecture des clés de la base de registre de Windows
Set Wsh = CreateObject("WScript.Shell")
'Les 3 éléments de la fenêtre Sécurité :
NiveauSecurite = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityLevel")
ConfianceModeleInstaller = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityDontTrustInstalledFiles")
ConFianceCeProjet = Wsh.RegRead("HKCUSoftwareMicrosoftOffice" & _
Application.Version & "ExcelSecurityAccessVBOM")
'Pour modifier le niveau de sécurité, Excel doit être fermé et
'on modifie la clé du registre OU on modifie le niveau de sécurité
'et ferme excel. Lors de sa ré-ouverture, le niveau de sécurité
's'est adapté à notre préférence.
'Pour comprendre comment tout ça s'articule, tu dois lire attentivement
'ce qui suit à cette adresse :
'http://msdn2.microsoft.com/fr-ca/library/aa203729(office.11).aspx
'Après la lecture, tu seras en meilleure posture pour déterminer
'le test qu'il faut faire, pour lancer ceci seulement si nécessaire...
'Comment afficher la fenêtre de la sécurité, le cas échéant.
If Val(Application.Version) < 10 Then Exit Sub
With Application
.SendKeys "%n" 'Afficher fenêtre niveau sécurité
'.SendKeys "%d" 'Affichier fenêtre "éditeurs approuvés"
.CommandBars.FindControl(ID:627).Execute
End With
1: Set VBP = Nothing
End Sub