Microsoft 365 Déverrouiller un projet VBA par code

ThierryP à dit:

Bonsoir le forum,

Je crois que tout est dans le titre ! Depuis un fichier modele, je voudrais automatiser la mise à jour des fichiers "enfants", mais le fichier est protégé par mot de passe (que j'ai créé, je ne veux pas un outil de crack !!!), donc remplacer soit des lignes de code ou remplacer des modules / USF.
Et bien sûr je me fais jeter !

Y a-t-il un moyen en VBA (depuis donc un fichier qui n'est pas le fichier à modifier) de déverrouiller le projet, puis de re-protéger en fin de modification ?

Merci d'avance à tout généreux contributeur !

Cliquez pour agrandir...

patricktoulon à dit:

bonjour
si c'est le classeur qui est protégé non mais si c'est le projet vba oui c'est possible
a condition que tu ai le mot de passe
on ne t'aidera pas a cracker un fichier ici

Cliquez pour agrandir...

patricktoulon à dit:

bon alors si c'est bien le projet vba du classeur qui est protégé (ce qui t'empeche d'explorer les modules alors on utilisera une partie du code du skinner calendar de la version 4.1
basé sur le code du calendar 4.1 avec l'ancien skinner
cet exemple t'ouvre le fichier ,ouvre vbe appelle le dialog de mot de passe ,tape le mot de passe , valide et ferme le dialog

VB:

Sub test2()
    Dim fichier As Variant, wbk As Workbook, frm$
    Application.ScreenUpdating = False

    fichier = Application.GetOpenFilename("EXCEL Files XLSM (*.xlsm), *.xlsm", 1, "ouvrir un fichier", "select")
    If fichier = False Then Exit Sub
    Set wbk = Workbooks.Open(fichier)
    If wbk.VBProject.Protection Then
        Set Application.VBE.ActiveVBProject = wbk.VBProject
        With CreateObject("wscript.shell")
            .SendKeys "toto"'mettre le mot de passe ici '
            .SendKeys "{ENTER}"
            .SendKeys "{ESC}"
        End With
        Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
        'Application.Wait TimeValue(Now + 0.00001)
    End If
    ' On Error GoTo erreur

End Sub

voila
patrick

Cliquez pour agrandir...

GALOUGALOU à dit:

bonjour ThierryP
la réponse est dans la charte du forum, voici l'article :
2.9 - Les demandes de "déprotection" de classeurs Excel sont interdites quelle que soit la raison.
cordialement

Cliquez pour agrandir...

ThierryP à dit:

Est-ce que lire attentivement la demande fait aussi partie de la charte du forum ??????????

Cliquez pour agrandir...

patricktoulon à dit:

non ça va il ne s'agit pas ici de cracker mais de faire une manip que tu ferais en emps normal à la main donc ça va
sinon je ne te l'aurait pas donner
et @Rheeem a raison j'aurais du le dire
en effet activer cette option dans excel est obligatoire pour travailler avec le VBE

Cliquez pour agrandir...

ThierryP à dit:

Me reste plus qu'à adapter pour re-protéger en fin de traitement ! ☺️👍

Cliquez pour agrandir...

Dim fichier As Variant, wbk As Workbook 'mémorise les variables

Sub Déverrouille()
    fichier = Application.GetOpenFilename("EXCEL Files XLSM (*.xlsm), *.xlsm", 1, "ouvrir un fichier", "select")
    If fichier = False Then Exit Sub
    Set wbk = Workbooks.Open(fichier)
    If wbk.VBProject.Protection Then
        Set Application.VBE.ActiveVBProject = wbk.VBProject
        CreateObject("wscript.shell").SendKeys "toto{ENTER}{ESC}%q" 'mdp toto, Alt+Q pour revenir sur Excel
        Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
        Application.Wait Now + 1 / 86400 'attend l'affichage de la boîte
    End If
End Sub

Sub Verrouille()
wbk.Close True 'enregistre et ferme le fichier
End Sub