XLDEPROTEGEVBA

Signaler
Messages postés
129
Date d'inscription
mardi 20 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2009
-
Messages postés
3
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
16 février 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49994-xldeprotegevba

Messages postés
3
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
16 février 2011

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.
Messages postés
3
Date d'inscription
jeudi 4 septembre 2008
Statut
Membre
Dernière intervention
26 août 2009

Précision.: C'est le dévérouillage de VBA qui n'a pas marché. Pour les feuilles et le classeur: impeccable. Merci
Messages postés
3
Date d'inscription
jeudi 4 septembre 2008
Statut
Membre
Dernière intervention
26 août 2009

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.
Messages postés
1
Date d'inscription
samedi 3 mai 2008
Statut
Membre
Dernière intervention
18 mai 2009

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
Afficher les 6 commentaires