Discussion :

[fikou]

Bonjour,

J?aimerais protéger que certaines cellules ou colonne d?une feuille Excel Feuille que je crée avec VB voici ce que je fait :

Public appExcel As Object
appExcel.Workbooks.Add

?Ici je remplis ma feuille Excel

appExcel.Columns("A:C").Select
appExcel.Selection.Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=True

Je n?arrive pas à appliquer le mot de passe à la selection.

Merci d?avance

Fikou

[bidou]

c'est normal, pour la protection d'une plage il faut verrouiller les cellules puis protéger la feuille
appExcel.Columns("A:C").Locked=True
appExcel.Worksheets(TaFeuille).Protect ....

[fikou]

Salut,

Merci pour ton aide mais cela ne marche pas, voici ce que j'ai fait :

appExcel.Columns("A:C").Locked = True
appExcel.Worksheets("Commandes").Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=true

appExcel.Sheets("Commande").Select
appExcel.Columns("A:C").Select
appExcel.Selection.Locked = True
appExcel.Sheets("Commandes").Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=True

J'ai le message "Indice en dehors de la plage" sur la ligne qui contient le MP

Merci

Fikou

[fikou]

Re bonjour,

Voila j'ai trouvé, la solution de Bidou était juste, mais il faut avant selectionner toutes les cellules, les mettre à Locked = False.

appExcel.Sheets("Commande").Select
appExcel.Cells.Select
appExcel.Selection.Locked = False
appExcel.Range("A:C").Select
appExcel.Selection.Locked = True
appExcel.Sheets("Commande").Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=True

Merci Fikou