BadoqueAlex
Messages postés129Date d'inscriptionmardi 20 juillet 2004StatutMembreDernière intervention 6 juin 2009
-
12 mai 2009 à 01:39
CestMoiLaFouine
Messages postés3Date d'inscriptionjeudi 18 septembre 2003StatutMembreDernière intervention16 février 2011
-
16 févr. 2011 à 15:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
CestMoiLaFouine
Messages postés3Date d'inscriptionjeudi 18 septembre 2003StatutMembreDernière intervention16 février 2011 16 févr. 2011 à 15:49
Je pense que le message d'erreur est normal car le nettoyage effectué me semble imparfait.
Dans le module MDL_Comdlg32DLL, dans la procédure "Public Sub Deprotege_VBA(Extension As String)"
j'ai supprimé "& Verif_PhContr" situé dans l'expression P_Deb1 = InStr(1, L_Chaines, "CMG=" & Chr$(34) & Verif_PhContr, vbTextCompare)
et remplacé Mid(L_Chaines, P_Deb3, P_Fin3 - P_Deb3 + 1) = Space$(P_Fin3 - P_Deb3 + 1) par
Mid(L_Chaines, P_Deb3, P_Fin3 - P_Deb3 + 3) = Space$(P_Fin3 - P_Deb3 + 3) car comme il y a 2 fois le couple 0D 0A il faut en supprimer un (donc rajouter 2 espace supplémentaires.
baguetou
Messages postés3Date d'inscriptionjeudi 4 septembre 2008StatutMembreDernière intervention26 août 2009 26 août 2009 à 12:25
Précision.: C'est le dévérouillage de VBA qui n'a pas marché. Pour les feuilles et le classeur: impeccable. Merci
baguetou
Messages postés3Date d'inscriptionjeudi 4 septembre 2008StatutMembreDernière intervention26 août 2009 26 août 2009 à 12:21
Bonjour gege45,Je l'ai essayé le code et ça n'a pas marché. Il y a un message d'erreur:" Erreur inattendue 40230" qui s'affiche. Merci de voir de quoi il s'agit.
cs_zizou68
Messages postés1Date d'inscriptionsamedi 3 mai 2008StatutMembreDernière intervention18 mai 2009 18 mai 2009 à 23:26
Merci gege45
J'avais essayé de downloader le programme Acyd 2000 sur le site Ti Veriti.net, malheureusement sans succes. Alors merci gege45 de l'avoir adaptéet merci à T. Pourtier. Trop balaize...
Zizou68
cs_DarkVader
Messages postés51Date d'inscriptionsamedi 21 octobre 2000StatutMembreDernière intervention10 octobre 2011 12 mai 2009 à 11:12
Tu aurais pu au moins citer l'auteur de l'original
déjà cité dans les sources de ce site.
BadoqueAlex
Messages postés129Date d'inscriptionmardi 20 juillet 2004StatutMembreDernière intervention 6 juin 2009 12 mai 2009 à 01:39
16 févr. 2011 à 15:49
Dans le module MDL_Comdlg32DLL, dans la procédure "Public Sub Deprotege_VBA(Extension As String)"
j'ai supprimé "& Verif_PhContr" situé dans l'expression P_Deb1 = InStr(1, L_Chaines, "CMG=" & Chr$(34) & Verif_PhContr, vbTextCompare)
et remplacé Mid(L_Chaines, P_Deb3, P_Fin3 - P_Deb3 + 1) = Space$(P_Fin3 - P_Deb3 + 1) par
Mid(L_Chaines, P_Deb3, P_Fin3 - P_Deb3 + 3) = Space$(P_Fin3 - P_Deb3 + 3) car comme il y a 2 fois le couple 0D 0A il faut en supprimer un (donc rajouter 2 espace supplémentaires.
26 août 2009 à 12:25
26 août 2009 à 12:21
18 mai 2009 à 23:26
J'avais essayé de downloader le programme Acyd 2000 sur le site Ti Veriti.net, malheureusement sans succes. Alors merci gege45 de l'avoir adaptéet merci à T. Pourtier. Trop balaize...
Zizou68
12 mai 2009 à 11:12
déjà cité dans les sources de ce site.
12 mai 2009 à 01:39