Bonjour =E0 tous :)
Je veux utiliser une macro, mais les postes avec une=20
protection haute coincent !!!=20
Puis je par une macro modifier ce param=E8tre puis le=20
remettre ensuite et tout =E7a sans red=E9marrer Excel.
Merci de coup de pouce
Looping ;-D=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
selfcert.exe !!!
-----Message d'origine----- Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
.
selfcert.exe !!!
-----Message d'origine-----
Bonjour à tous :)
Je veux utiliser une macro, mais les postes avec une
protection haute coincent !!!
Puis je par une macro modifier ce paramètre puis le
remettre ensuite et tout ça sans redémarrer Excel.
Merci de coup de pouce
Looping ;-D
-----Message d'origine----- Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
.
papou
Bonjour Looping Voici un exemple de code VBScript qui modifie le niveau de sécurité des macros avant l'ouverture d'un fichier spécifié (trouvé sur l'excellent site de Frédéric : http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm ) Attention : Fonctionne uniquement pour Excel 2000 (message si pas la bonne version) Modifier le chemin et le nom du fichier Excel dont on autorise les macros Copier-coller les lignes dans un nouveau fichier texte et lui donner l'extension VBS Cordialement Pascal '================== 'Excel Must be closed On Error Resume Next Set objXl=GetObject(,"Excel.Application") If Not IsEmpty(objXl) Then Msgbox "Excel must be closed to run this script..." WScript.Quit End If
Err.Clear
'objet script Set wsh = WScript.CreateObject("WScript.Shell") Cle2000 = "HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
If Not IsExcel2000 Then MsgBox "This script only works for Excel 2000..." WScript.Quit End If
'Opening excel workbook without security alert Retour=wsh.Run("D: 6OfficeVBAClasseurTestSecurite.xls", 3, False)
'Reset security level to previous status wsh.RegWrite Cle2000, NiveauSecurite,"REG_DWORD"
'pour vérifier si la clé pour Excel 2000 existe bien Function IsExcel2000() On Error Resume Next
Res=wsh.RegRead(Cle2000) IsExcel2000=(Err=0) End Function
"looping" a écrit dans le message de news:ddab01c3efb2$0be59bc0$ Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
Bonjour Looping
Voici un exemple de code VBScript qui modifie le niveau de sécurité des
macros avant l'ouverture d'un fichier spécifié
(trouvé sur l'excellent site de Frédéric :
http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm )
Attention :
Fonctionne uniquement pour Excel 2000 (message si pas la bonne version)
Modifier le chemin et le nom du fichier Excel dont on autorise les macros
Copier-coller les lignes dans un nouveau fichier texte et lui donner
l'extension VBS
Cordialement
Pascal
'================== 'Excel Must be closed
On Error Resume Next
Set objXl=GetObject(,"Excel.Application")
If Not IsEmpty(objXl) Then
Msgbox "Excel must be closed to run this script..."
WScript.Quit
End If
Err.Clear
'objet script
Set wsh = WScript.CreateObject("WScript.Shell")
Cle2000 = "HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
If Not IsExcel2000 Then
MsgBox "This script only works for Excel 2000..."
WScript.Quit
End If
'Opening excel workbook without security alert
Retour=wsh.Run("D: 6OfficeVBAClasseurTestSecurite.xls", 3, False)
'Reset security level to previous status
wsh.RegWrite Cle2000, NiveauSecurite,"REG_DWORD"
'pour vérifier si la clé pour Excel 2000 existe bien
Function IsExcel2000()
On Error Resume Next
Res=wsh.RegRead(Cle2000)
IsExcel2000=(Err=0)
End Function
"looping" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:ddab01c3efb2$0be59bc0$a501280a@phx.gbl...
Bonjour à tous :)
Je veux utiliser une macro, mais les postes avec une
protection haute coincent !!!
Puis je par une macro modifier ce paramètre puis le
remettre ensuite et tout ça sans redémarrer Excel.
Merci de coup de pouce
Looping ;-D
Bonjour Looping Voici un exemple de code VBScript qui modifie le niveau de sécurité des macros avant l'ouverture d'un fichier spécifié (trouvé sur l'excellent site de Frédéric : http://perso.wanadoo.fr/frederic.sigonneau/accueil.htm ) Attention : Fonctionne uniquement pour Excel 2000 (message si pas la bonne version) Modifier le chemin et le nom du fichier Excel dont on autorise les macros Copier-coller les lignes dans un nouveau fichier texte et lui donner l'extension VBS Cordialement Pascal '================== 'Excel Must be closed On Error Resume Next Set objXl=GetObject(,"Excel.Application") If Not IsEmpty(objXl) Then Msgbox "Excel must be closed to run this script..." WScript.Quit End If
Err.Clear
'objet script Set wsh = WScript.CreateObject("WScript.Shell") Cle2000 = "HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
If Not IsExcel2000 Then MsgBox "This script only works for Excel 2000..." WScript.Quit End If
'Opening excel workbook without security alert Retour=wsh.Run("D: 6OfficeVBAClasseurTestSecurite.xls", 3, False)
'Reset security level to previous status wsh.RegWrite Cle2000, NiveauSecurite,"REG_DWORD"
'pour vérifier si la clé pour Excel 2000 existe bien Function IsExcel2000() On Error Resume Next
Res=wsh.RegRead(Cle2000) IsExcel2000=(Err=0) End Function
"looping" a écrit dans le message de news:ddab01c3efb2$0be59bc0$ Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
Modeste
;-))) A quoi cela sert de mettre des régles de sécurité si n'importe quel script permet de passer outre ????
la solution évoquée ci-dessus par anonymous ??? est de fournir avec ta macro ou ton classeur un certificat de sécurité.
@+
-----Message d'origine----- Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
.
;-)))
A quoi cela sert de mettre des régles de sécurité si
n'importe quel script permet de passer outre ????
la solution évoquée ci-dessus par anonymous ??? est de
fournir avec ta macro ou ton classeur un certificat de
sécurité.
@+
-----Message d'origine-----
Bonjour à tous :)
Je veux utiliser une macro, mais les postes avec une
protection haute coincent !!!
Puis je par une macro modifier ce paramètre puis le
remettre ensuite et tout ça sans redémarrer Excel.
Merci de coup de pouce
Looping ;-D
;-))) A quoi cela sert de mettre des régles de sécurité si n'importe quel script permet de passer outre ????
la solution évoquée ci-dessus par anonymous ??? est de fournir avec ta macro ou ton classeur un certificat de sécurité.
@+
-----Message d'origine----- Bonjour à tous :) Je veux utiliser une macro, mais les postes avec une protection haute coincent !!! Puis je par une macro modifier ce paramètre puis le remettre ensuite et tout ça sans redémarrer Excel. Merci de coup de pouce Looping ;-D
