protéger un fichier xls avec un mot de passe en VBscript

Bonjour,

J'ai une question à propos de SaveAs du vbscript.

En fait je veux protéger un fichier xls avec un mot de passe via un script vbs.

D’après mes recherches la fonction saveAs répond à ce besoin mais J'ai testé tous les syntaxes que je connais sans réussir :oops:

Pouvez vous m'aider s'il vous plait.

Code:

---

XL.ActiveWorkbook.SaveAs Filename:="D:\Sample.xls", Password:="1234"

---

Bonjour l_autodidacte
Merci pour ta réponse.

J'ai déjà testé cette syntaxe mais cela génère un message d'erreur :

---------------------------
Windows Script Host
---------------------------
Script : D:.....\Script_ProtectionXls.vbs
Ligne : 27
Caract. : 30
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript

---------------------------
OK
---------------------------

avec cette syntaxe

Code:

---

call objWorkbook.SaveAs (oFile.Name, 18, password, 0, 0, 0, 0, 0, 0, 0, 0, local)

---

J'ai un message d'erreur qui dit que mon fichier est protégé contre l'écriture alors que je viens de tuer le processus d'excel dans le gestionnaire des tâches pour être sûr que le fichier n'est pas en cours d’exécution, et j'arrive à modifier manuellement dans mon fichier

Le code que j'ai proposé était du VBA.

En VBS, j'ai utilisé ce code et cela marche sans erreur. Le nouveau fichier est créé et est protégé :

Code:

---

1 2 3 4 5 6 7

Set XL = CreateObject("Excel.Application") XL.Visible = False XL.DisplayAlerts = False XL.Workbooks.Open "D:\Sample.xls" XL.ActiveWorkbook.SaveAs "D:\Sample1.xls", , "1234" XL.Quit Set XL = Nothing

---

Merci beaucoup :)