Problème de protection: Protect UserInterfaceOnly

Bonjour,

J'ai un problème avec la protection des feuilles de mon classeur. Je vous explique:

A l'ouverture de mon classeur, toutes les feuilles deviennent protégées avec l'option UserInterfaceOnly = True.
Cela devrait me permettre normalement d'agir sur toutes les feuilles uniquement via les procédures de mon projet VBA.

Malheureusement, des fois ça marche (j'arrive à supprimer des colonnes d'une feuille via un UserForm) et des fois non.


Voici le code qui permet de protéger les feuilles du classeur:

Code:

---

1 2 3

Private Sub Workbook_Open() ModuleCommons.protectAllSheets End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub protectAllSheets() Dim I As Integer   Application.ScreenUpdating = False For I = 1 To Worksheets.Count Worksheets(I).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True Next I Application.ScreenUpdating = True End Sub

---

Voici la ligne qui cause une erreur:

Code:

---

formConfigCachees.Columns(consultantColumn).Delete Shift:=xlRight

---

consultantColumn est le numéro d'une colonne bien rempli dans la feuille formConfigCachees.

Et voici le message d'erreur:
Error 1004: La méthode Delete de la classe Range a échoué

J'ai bien vérifié dans les deux cas (celui où ça marche et celui où ça ne marche pas) que juste avant de faire le Delete, j'avais formConfigCachees.ProtectionMode = Vrai.


quelqu'un aurait-il une réponse où une idée à mon problème?

Ce que tu dis m'étonne. Pour moi, si tu protèges tes feuilles, par soft ou non, tu ne peux pas les modifier, ce qui inclut la suppression d'une colonne

Code:

---

1 2	Worksheets("Feuil3").Protect Columns(5).Delete ' marche pas

---

Code:

---

1 2	Worksheets("Feuil3").UnProtect Columns(5).Delete ' marche

---

Version 97 - 2003
Pour travailler dans une feuille protégée, je ne connais qu'une solution... la déprotéger avant. Après, ne reste plus qu'à la reprotéger ;)
A+

Code:

---

AllowDeletingColumns:=True

---

Oui, mais attention :

Citation:

---

La propriété AllowDeletingColumns peut être définie en utilisant les arguments de la méthode Protect.

Les colonnes contenant les cellules à supprimer doivent être déverrouillées lorsque la feuille est protégée.

---

cf. :f1:

barf ! oui hein !
Forcément.
Mais là, c'est une question de verrouillage de cellules !
J'ai répondu à la question de la suppression des colonnes. Il ne faut pas oublier l'argument... à moins qu'il ne soit déjà programmé.

Maitenant, quoi qu'on fasse, il est préférable que les cellules ne soient pas vérrouillées !
C'est sûr !
Sinon, il y a contradiction !

Et donc, pour supprimer une colonne dans un feuille verrouillée, il existe deux méthodes :

Code:

---

1 2 3

Worksheets("Feuil1").Unprotect Columns(5).Delete Worksheets("Feuil1").Protect

---

ou

Code:

---

1 2 3 4 5

Worksheets("Feuil1").Unprotect Columns(5).Locked = False Worksheets("Feuil1").Protect AllowDeletingColumns = True Columns(5).Delete

---

C'est pareil mais c'est plus long ! :mouarf:

Désolé Maxence, je n'ai pas pu m'en empêcher :mouarf:

Allez ... j'en ajoute une 3° !

Code:

---

1 2	application.Interactive=False

---

comme cela, on ne peut plus interagir avec l'application Excel.
Ceci ne "protège" rien, mais empèche l'utilisateur d'accéder à sa feuille.
Sans aucune protection, il est tout à fait possible de faire tout ce qu'on veut, comme supprimer une colonne.

Citation:

---

Envoyé par F1

Le blocage de la saisie utilisateur empêche l'utilisateur d'entraver l'exécution de la macro lorsqu'il déplace ou active des objets Microsoft Excel.
Cette propriété est utile si vous recourez à l'échange dynamique de données (DDE, Dynamic Data Exchange) ou à OLE Automation pour communiquer avec Microsoft Excel à partir d'une autre application.
Si vous affectez la valeur False à cette propriété, n'oubliez pas de rétablir la valeur True. Microsoft Excel ne lui affectera pas automatiquement de nouveau la valeur True au terme de l'exécution de votre macro.

---

encore plus court !
Et de 3 !

Citation:

---

Ce que tu dis m'étonne. Pour moi, si tu protèges tes feuilles, par soft ou non, tu ne peux pas les modifier, ce qui inclut la suppression d'une colonne

Code :
Worksheets("Feuil3").Protect
Columns(5).Delete ' marche pasCode :
Worksheets("Feuil3").UnProtect
Columns(5).Delete ' marche

---

Et ben si, justement l'option de protection UserInterfaceOnly = True protège la feuille contre l'utilisateur, mais pas contre les macros et tout code VBA. Et donc Pas besoin de protéger/déprotéger les feuilles à chaque fois.


Au fait je sais pourquoi ça ne marchait pas avant (mais je ne comprend pas vraiment pourquoi).
Avec l'option UserInterfaceOnly activé à True, avant de faire un Delete, il faut au moins que je sélectionne la feuille:

Code:

---

formConfigCachees.Select

---

. Cela appremment active rééllement cette option de protection, et me permet par la suite de faire des suppression par du code.

Merci mardona, je n'étais pas allé jusqu'au bout de ta ligne de code. Du coup, j'ai appris quelque chose. :king:
Mériterait d'être mis dans la FAQ : "Comment, par soft, écrire, supprimer, effacer des données dans une feuille protégée ?" ;)