Discussion :

[mardona]

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 :

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

1
2
3
Private Sub Workbook_Open()
    ModuleCommons.protectAllSheets
End Sub

Code :

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

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 :

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

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?

[ouskel'n'or]

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 :

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

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

Code :

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

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+

[Maxence HUBICHE]

Code :

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

AllowDeletingColumns:=True

[ouskel'n'or]

Oui, mais attention :

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.

[Maxence HUBICHE]

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 !

[ouskel'n'or]

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

Code :

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

1
2
3
Worksheets("Feuil1").Unprotect
Columns(5).Delete
Worksheets("Feuil1").Protect

ou

Code :

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

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 !

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