vbscript comment creer un fichier excel en le mettant en lecture seule

Bonjour à tous
J'ai un script vbscript qui me créé un fichier excel.
je souhaiterai
soit le mettre en lecture seule,
soit protéger toutes les cellules.
Je n'ai pas trouver la syntaxe. les seuls exemples que j'ai trouvé sur le net sont avec des l'ouverture de fichiers excel déjà existants.
merci de votre aide

Bonjour,

bien que cette question soit du ressort de la section VB et pas VBA, peux-tu nous montrer le script actuel ?

voici un programme qui me sert de test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup Const xlExcel7 = 39 On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 objExcel.Visible = True objExcel.Workbooks.Add Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Name = "Feuil1" objSheet.PageSetup.Orientation=2 objSheet.PageSetup.leftmargin=0 objSheet.Cells(1, 1).Value = "Ligne 1 col 1 " & vbCrLf & "suite" objSheet.Cells(2, 1).Value = "15/06" objSheet.Cells(2, 1).numberformat="d/m" objSheet.Cells(3, 1).Value = "ligne 3 col 1" objSheet.Cells(4, 1).Value = "ligne 4 col 1" objSheet.Cells(1, 2).Value = "ligne 2 col 2" objSheet.Cells(2, 2).Value = "ligne 2 col 2" objSheet.Cells(3, 2).Value = "ligne 3 col 2" objSheet.Cells(4, 2).Value = "ligne 4 col 2" objSheet.Cells(5, 1).Value = "ligne 5 col 1 test99" objSheet.Cells(1, 3).Value = "message multiligne"

---

Je reste sur la demande vbscript pour la lecture seule.

https://blogs.technet.microsoft.com/...ad-write-file/
https://msdn.microsoft.com/en-us/lib...(v=vs.84).aspx

A la fin de ton code ajoute ceci :

Code:

---

1 2 3 4 5 6

objExcel.DisplayAlerts = False objSheet.SaveAs "C:\Monfichier.xls", , , , True ' True c'est pour la lecture seule. ' Quand tu essayeras d'ouvrir le fichier avec Excel, il te demandera si tu veux ' l'ouvrir en lecture seule ou en mode modification objExcel.Quit

---

Bien qu'en regardant les propriétés du fichier(dans l'explorateur Windows), tu le trouveras en Archive.

Si tu veux le mettre carrément en lecture seule, ajoute à la fin du code celui-ci :

Code:

---

1 2 3 4

Const ReadOnly = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set Fich = fso.Getfile("C:\Monficher.xls") Fich.Attributes = ReadOnly

---

[EDIT] Désolé, je n'ai vu la réponse de ericlm128 qu'après avoir posté la mienne.

est ce que vous avez une solution pour protéger toutes les cellules de ma feuille excel ?

Citation:

---

Envoyé par fcolombe

est ce que vous avez une solution pour protéger toutes les cellules de ma feuille excel ?

---

Oui, il y en a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Option Explicit   Dim objUser, strExcelPath, objExcel, objSheet, k, objGroup Const xlExcel7 = 39 On Error Resume Next Set objExcel = CreateObject("Excel.Application") If (Err.Number <> 0) Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 objExcel.Visible = True objExcel.Workbooks.Add Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Name = "Feuil1" objSheet.PageSetup.Orientation=2 objSheet.PageSetup.leftmargin=0 objSheet.Cells(1, 1).Value = "Ligne 1 col 1 " & vbCrLf & "suite" objSheet.Cells(2, 1).Value = "15/06" objSheet.Cells(2, 1).numberformat="d/m" objSheet.Cells(3, 1).Value = "ligne 3 col 1" objSheet.Cells(4, 1).Value = "ligne 4 col 1" objSheet.Cells(1, 2).Value = "ligne 2 col 2" objSheet.Cells(2, 2).Value = "ligne 2 col 2" objSheet.Cells(3, 2).Value = "ligne 3 col 2" objSheet.Cells(4, 2).Value = "ligne 4 col 2" objSheet.Cells(5, 1).Value = "ligne 5 col 1 test99" objSheet.Cells(1, 3).Value = "message multiligne" objExcel.DisplayAlerts = False   objSheet.Protect "12345", True, True, True, False, False, False, False, False, False, False, False, False, False, False, False ' ou plus simple : objSheet.Protect "12345", True, True, True ' car False est la valeur par défaut pour le reste des paramètres ' à moins qu'on veuille laisser possibles quelques modifications objSheet.SaveAs "C:\Monfichier.xls", , , , True objExcel.Quit

---

12345 est le mot de passe au cas où on souhaiterait déverrouiller les cellules(la feuille). Car sans mot de passe on peut tout déverrouiller en allant dans le menu Outils > Protection > Ôter la protection de la feuille.

Merci ça fonctionne nickel