Discussion :

[ibtissamr]

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

Pouvez vous m'aider s'il vous plait.

[l_autodidacte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ibtissamr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

       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

[l_autodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ibtissamr]

Merci beaucoup