Microsoft 365 "Enregistrer sous" avec mot de passe à l'ouverture

[etpisculrien]

Bonjour à tous

J'aurais besoin de vos lumières car je galère (ça rime)...
Je vous explique :
Je souhaite faire une macro qui permet d'ouvrir la boite de dialogue "Enregistrer sous" pour permettre à l'utilisateur de choisir le dossier mais en plus que :
1-le nom du fichier soit déjà inscrit et non modifiable dans la boite de dialogue "Enregistrer sous"
2-le fichier soit enregistré avec un mot de passe prédéfini qui sera demandé à l'ouverture

Est ce que ça vous parait possible?

Merci par avance pour votre aide

 

[cp4]

Bonsoir,
Dans le fichier zip une petite vidéo. Format Mp4 non pris en charge sur XLD.

Bonne soirée.

 

[etpisculrien]

Bonsoir Cp4

Merci pour ta petite vidéo. En fait, c'est à peu près ce que je souhaite faire mais via macro...
Si quelqu'un à une idée

Merci d'avance

 

[sylvanu]

Bonjour Etpisculrien, Cp4,
Si le nom du fichier est figé, on peut se passer de la fenêtre "Enregistrer sous"
Un essai en PJ où nom du fichier et mot de passe sont "en dur". Le fichier est enregistré dans le dossier courant. Avec :

Sub SauveAvecPassword()
    Dim Chemin$, Nom$, MotDePasse$
    NomFichier = "Etpisculrien.xlsm"    ' A modifier
    MotDePasse = "1234"                 ' A modifier
    Chemin = ThisWorkbook.Path & "\"    ' A modifier si différent du dossier courant, doit se treminer par "\"
    ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier, Password:=MotDePasse
End Sub

 

[etpisculrien]

Bonjour Sylvanu

Merci pour ton code, j'y suis presque Juste un petit détail...
Est qu'il y a un moyen de faire apparaitre la fenêtre "Enregistrer sous" pour laisser l'utilisateur choisir le dossier où il veut effectuer l'enregistrement?

 

[sylvanu]

Bonjour,
Si la fenêtre "Enregistrez sous" apparait, alors je ne pense pas qu'on repuisse prendre la main pour mettre un mot de passe à l'enregistrement, puisque c'est le process XL qui aura la main.

 

[etpisculrien]

J'ai trouvé une solution pour ça :
'Ouvre la fenetre pour selectionner le dossier
Dim objShell As Object, objFolder As Object, oFolderItem As Object

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path & "\"

Merci à tous pour votre aide