protéger des colonnes en empêchant de les déplacer

[C@thy]

Bonjour le forum,

oilà, mes zutilisateurs font un peu (beaucoup!) n'importe quoi.
Ils me suppriment ou déplacent des colonnes, du coup ma macro va chercher les mauvaises données.

Y a-t-il un moyen d'empêcher le déplacement ou la suppression de colonnes, sachant que l'utilisateur a le droit d'insérer des lignes, et de saisir dans toutes les colonnes?

Merci pour vos soluces.

Biz

C@thy

 

[job75]

Re : protéger des colonnes en empêchant de les déplacer

Re,

Peut-être en modifiant la macro de mromain :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim entetesColonnes, i As Integer
entetesColonnes = Array("toto1", "toto2", "toto3", "toto4")
For i = LBound(entetesColonnes) To UBound(entetesColonnes)
    If [COLOR="Red"]Application.CountIf(Columns(i + 1), entetesColonnes(i)) = 0[/COLOR] Then
        Application.Undo
        Exit Sub
    End If
Next i
End Sub

L'insertion de lignes n'a plus d'importance.

A+

 

[C@thy]

Re : protéger des colonnes en empêchant de les déplacer

Et ça, ça le fait pas non plus :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim entetesColonnes, i As Integer
[B]If Not Intersect(Target, Range("A1:P8")) Is Nothing Then[/B]
entetesColonnes = Array("toto1", "toto2", "toto3", "toto4")
For i = LBound(entetesColonnes) To UBound(entetesColonnes)
    If Range("A8").Offset(0, i) <> entetesColonnes(i) Then
        Application.Undo
        Exit Sub
    End If
Next i
[B]End If
[/B]End Sub

Bises

C@thy

 

[C@thy]

Re : protéger des colonnes en empêchant de les déplacer

Oups! On s'est télescopés, job75.

Je viens d'essayer ta soluce, mais on peut toujours insérer ou supprimer des lignes avant la 9 (sans fusionner).

C@thy

 

[job75]

Re : protéger des colonnes en empêchant de les déplacer

Re,

Je viens d'essayer ta soluce, mais on peut toujours insérer ou supprimer des lignes avant la 9 (sans fusionner).

Oui, et cette insertion n'empêche pas la macro de fonctionner.

A+

 

[C@thy]

Re : protéger des colonnes en empêchant de les déplacer

Bon, je vais m'en sortir comme ça :
Private Sub Workbook_Open()
Feuil1.ScrollArea = "A8:L400"
End Sub

Plus la protection qui fige les colonnes,
mais ça n'est pas "très propre"...comme dirait mromain

Merci à vous tous et bonne journée

C@thy