VBA Supprimer le mot de passe d'un fichier Excel

Bonjour,

Dans une Sub je veux modifier le mot de passe actuel 123456 d'un classeur Excel par Aucun mot de passe pour qu'une autre personne puisse le lire sans rentrer aucun MDP.

J'ai testé ceci mais ca ne fonctionne pas.

Sub Test()
'
' Code
' Code
' Code

 'Supprimer Mdp actuel

    ThisWorkbook.Unprotect Password:="123456"

    Workbooks("FichierTest.xlsx").Save

' Code
' Code
' Code

End Sub

Merci par avance pour votre retour.

Bonjour

Tu supprimes ton MdP et tu enregistres ton fichier sans MdP

Crdlt

Bonjour,

Merci pour ta réponse.

Je sais bien le faire.

Mais moi je vais envoyer l'e-mail via macro avec ce ficher attaché pour autres personnes pour le lire, pour cette raison je veux dans la macro mettre le code pour initialiser le MDP en blank.

Merci.

Salut,

Tu le sauvegarde par la propriété SaveAS

et tu mets une chaine vide pour le PassWord

Bonjour,

Je te remercie pour ton retour.

Ca ne fonctionne pas.

Je reçois ce message :

Workbooks("FichierTest.xlsm").Unprotect ("123456")
    ThisWorkbook.SaveAs Filename:= _
        "C:\Users\name\Desktop\FichierTest.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks("FichierTest.xlsx").Close False

'Erreur d'exécution 1004'

Mot de passe non valide. Vérifier que la touche VER.MAJ n'est pas activée et que vous respectez la bonne casse.

Merci.

Salut,

tu n'as pas définit un mot de passe avec une chaine vide

Bonjour,

Même avec chaine vide ("") toujours même message d'erreur.

Workbooks("FichierTest.xlsm").Unprotect ("")
    ThisWorkbook.SaveAs Filename:= _
        "C:\Users\name\Desktop\FichierTest.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks("FichierTest.xlsx").Close False

Même avec blanc ("blank") toujours même message d'erreur.

Workbooks("FichierTest.xlsm").Unprotect ("blank")
    ThisWorkbook.SaveAs Filename:= _
        "C:\Users\name\Desktop\FichierTest.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks("FichierTest.xlsx").Close False

Merci.

Re,

c'est pas avec unprotec, mais avec SaveAs. Regardes mon post https://forum.excel-pratique.com/s/goto/1057199

Bonjour,

Apparemment aucune solution pour ce souci.

Je laisse tomber alors

Salut,

Je ne vois pas ce qu'il y a de si compliqué. Il faut juste ne pas l'enregistrer au même endroit que ton classeur.

Sub SaveCopy()
    Dim strTempPath As String
    strTempPath = Environ("TEMP"): strTempPath = strTempPath & IIf(Right(strTempPath, 1) = "\", "", "\")
    ActiveWorkbook.SaveAs strTempPath & ActiveWorkbook.Name, , ""

End Sub

tu remarqueras les guillemets vide à la fin et ne pas oublier la double virgule.

Bonjour,

Je te remercie pour ton retour.

J'avoue que j'ai la tête perdue

Je te rappelle mon besoin :

J'ai un fichier Excel "FichierTest.xlsx" protégé par le mdp 123456, ce fichier je veux l'envoyer par email pour une autre personne pour le lire sans être amené à saisir le mot de passe (donc désactivation du mdp), dans ca cas quel est le code complet à saisir?

Merci bien.

Salut

Hé bé c'est quesque j'ai fait dans mon précédant post.

1. Tu enregistres avec la sub qu j'ai donné
2. Tu récupères le chemin strTemPath
3. Et tu envoie le fichier qui a été sauvegardé

Je ne suis pas devant le PC donc impossible d'envoyer du code

Bonjour,

C'est bon ca fonctionne bien et je vous remercie, je n'ai pas fait attention au début au chemin Temp affiché

Y a t il une possibilité d'avoir cette modification de désactivation du MDP mais au niveau du même chemin de ce fichier "FichierTest.xlsx" sans passer par le Temp?

Merci bien.

Bonjour,

C'est bon j'ai réussi à le modifier moi même et après test c'est ok.

Sub SaveFile()

    Dim strPath As String
    strPath = ("C:\Users\name\Desktop\")
    ActiveWorkbook.SaveAs strPath & ActiveWorkbook.Name, , ""
    ActiveWorkbook.Close False

End Sub

Merci beaucoup pour vos réponses.

Salut,

Tout vient à point à qui sais attendre et persévère.

Je suis content que tout fonctionne bien

Salut,

Tous mes remerciements à toi, tes réponses et ton soutien.

Cordialement.