Discussion :

[MADA BLACK]

Bonjour tout le monde
J'export les donnees du DataGridView vers Excel .. simplement je veux proteger une colonne excel .. j'ai essaye ave ce code mais malheureusemnt j'ai pas reussi a faire ( LOCKED ) cette colonne :

Code :

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

1
2
3
 'ExcelWorksheet.Columns("M:M").EntireColumn.Locked = True
'ExcelWorksheet.Columns("M:M").Style.Locked = True
'ExcelWorksheet.Columns("M:M", Type.Missing).EntireColumn.Locked = True

Merci d'avance pour l'aide
Cordialement
MADA

[Phil Rob]

Bonjour Mada,

Peut-être ce code :

Code :

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

1
2
ExcelWorksheet.Columns("M:M").Select
    Selection.Locked = True

Suite ..., j'avais oublié une ligne ...

Code :

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

1
2
3
ExcelWorksheet.Columns("M:M").Select
    Selection.Locked = True
 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

La protection de cellules ne fonctionne que si la feuille est protégée.


....

[MADA BLACK]

Bonjour Phil Rob
Tres ravi de vous rencontrer ici maitre
Malheureusement j'ai eu cet erreur comme l'indique cette image ci dessous
Merci beaucoup pour l'aide
Cordialement
MADA

[popo]

Pourquoi personne ne prend le temps de lire la documentation ?

https://learn.microsoft.com/en-us/of...ksheet.columns

Returns a Range object that represents all the columns on the specified worksheet.

To return a single column, use the Item property or equivalently include an index in parentheses. For example, Columns(1), Columns("A"), Columns.Item(1) and Columns.Item("A") return the first column of the active sheet.

https://learn.microsoft.com/en-us/of...l.range.locked

This example unlocks cells A1:G37 on Sheet1 so that they can be modified when the sheet is protected.

Code :

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

1
2
Worksheets("Sheet1").Range("A1:G37").Locked = False 
Worksheets("Sheet1").Protect

Reste plus qu'à appliquer...

[Phil Rob]

Je ne suis pas trop au courant de la programmation du VBA xls et c'est bien de cela qu'il s'agit : tu veux faire "jouer" du code VBA par ton application VB.Net.
Pour cela, il faut d'abord écrire le code VBA qui fonctionne dans ton XLS.
Pour cela, j'en registre une nouvelle macro dans XLS en lui faisant faire ce que je veux. Ensuite, toujours dans XLS, j'ouvre la macro en modification et je copie son code dans VB.Net, et je l'adapte à mon application VB.Net.

Voici une video : MacroMada.zip

Il faut exécuter ces macros sous XLS pour vérifier qu'elles font bien ce qu'on attend. ensuite seulement, il faut les copier dans l'appalication VB.Net.

J'esdpère que ceci t'aidera ...

[MADA BLACK]

Merci popo pour l'intention d'aide mais malheureusemnt j'ai eu cet erreur

[MADA BLACK]

Je ne suis pas trop au courant de la programmation du VBA xls et c'est bien de cela qu'il s'agit : tu veux faire "jouer" du code VBA par ton application VB.Net.
Pour cela, il faut d'abord écrire le code VBA qui fonctionne dans ton XLS.
Pour cela, j'en registre une nouvelle macro dans XLS en lui faisant faire ce que je veux. Ensuite, toujours dans XLS, j'ouvre la macro en modification et je copie son code dans VB.Net, et je l'adapte à mon application VB.Net.

Voici une video : MacroMada.zip

Il faut exécuter ces macros sous XLS pour vérifier qu'elles font bien ce qu'on attend. ensuite seulement, il faut les copier dans l'appalication VB.Net.

J'esdpère que ceci t'aidera ...

Merci beaucoup maitre je vais suivre ce video et j'espère que les choses se passeront bien
Merci encore

[popo]

Merci popo pour l'intention d'aide mais malheureusemnt j'ai eu cet erreur

Et si tu prenais le temps de réfléchir deux secondes à ce que tu écris au lieu de recopier bêtement.

ExcelWorksheet, c'est un objet à toi et il représente un objet de type Worksheet (ta feuille).
C'est d'ailleurs spécifié dans le message d'erreur.
Et c'est d'ailleurs comme cela que tu l'utilises dans la ligne juste au dessus.