macro pour faire sauter un code dans un classeur

[Diop]

Bonjour à tous,

j'ai lu sur le forum hier qu'il etait possible de deproteger un classeur avec une macro sans connaitre son code

Est ce que c'est possible avec cette macro :

Sub
UnprotectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object

Set vbProj = WB.VBProject

'Teste si le classeur est déjà déprotégé
If vbProj.Protection <> 1 Then Exit Sub
Set
Application.VBE.ActiveVBProject = vbProj

'uilise les sendkeys pourmasquer le mot de passe du projet
SendKeys Password & "~~"

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

End Sub



si oui comment ? (en macro evenementielle ou quoi)

merci de votre aide

 

[Ronan]

Bonsoir,

Ton code ne peut fonctionner que si tu définis les variables WB & Password

@+

Ronan