OVH Cloud OVH Cloud

Déprotection de Bill Manville et de LL

3 réponses
Avatar
Frédo P
Bonsoir Toutes et tous
j'essaye d'utiliser la pro de Bill Manville pour déprotéger un classeur via
un autre classeur , ça coince à cette ligne.(Xl 97)
SendKeys Password & "~~"
J'ai aussi essayé celle de LL sans résultat.
Est ce incontournable pour xl97?
--
Fred
Réponses dans ma bal: ôtez "nsp-".
http://frdpst.9online.fr

3 réponses

Avatar
Michel41
Bonsoir
peut être une réponse à
http://perso.wanadoo.fr/veriti/excel/excel_ti/principal_ti.htm
@+
M41

"Frédo P" a écrit dans le message de news:

Bonsoir Toutes et tous
j'essaye d'utiliser la pro de Bill Manville pour déprotéger un classeur
via
un autre classeur , ça coince à cette ligne.(Xl 97)
SendKeys Password & "~~"
J'ai aussi essayé celle de LL sans résultat.
Est ce incontournable pour xl97?
--
Fred
Réponses dans ma bal: ôtez "nsp-".
http://frdpst.9online.fr




Avatar
anonymousA
bonjour,

ce que tu proposes à notre correspondant, c'est tout bonnement d'acceder
à un projet VBA (et encore, Acyd ne marche pas dans tous les cas, il
faut l'adapter) sans connaitre le mdp et sans jamais pouvoir le
connaitre d'ailleurs, puisque le principe de "cassage" du mdp par Acyd
se fiche de connaitre l'identification exacte de celui-ci.
Je ne crois pas que ce soit la question du correspondant.Je te laisse
lui faire une réponse plus adaptée si tu t'en sens la capacité.

A+

Bonsoir
peut être une réponse à
http://perso.wanadoo.fr/veriti/excel/excel_ti/principal_ti.htm
@+
M41

"Frédo P" a écrit dans le message de news:


Bonsoir Toutes et tous
j'essaye d'utiliser la pro de Bill Manville pour déprotéger un classeur
via
un autre classeur , ça coince à cette ligne.(Xl 97)
SendKeys Password & "~~"
J'ai aussi essayé celle de LL sans résultat.
Est ce incontournable pour xl97?
--
Fred
Réponses dans ma bal: ôtez "nsp-".
http://frdpst.9online.fr









Avatar
Michel Pierron
Bonjour Frédo P;
Tu peux essayer comme ceci:

Private Sub VbaUnlock(ByVal Wbk$, ByVal PWord$)
If Workbooks(Wbk).VBProject.Protection = 0 Then Exit Sub
On Error GoTo 1
Application.Visible = 0
Set Application.VBE.ActiveVBProject = Workbooks(Wbk).VBProject
SendKeys "{ENTER}" & PWord & "{ENTER}{ESC}", True
1: Application.Visible = 1
End Sub

MP

"Frédo P" a écrit dans le message de
news:
Bonsoir Toutes et tous
j'essaye d'utiliser la pro de Bill Manville pour déprotéger un classeur
via

un autre classeur , ça coince à cette ligne.(Xl 97)
SendKeys Password & "~~"
J'ai aussi essayé celle de LL sans résultat.
Est ce incontournable pour xl97?
--
Fred
Réponses dans ma bal: ôtez "nsp-".
http://frdpst.9online.fr