Blocage colonne

Bonjour,

Y a pas d'lezards.

Je recupere le fichier et regarde la chose

Je suis partis sur une autre méthode 

J'ai bloqué en double clic toutes les cellules ou il y a une formule

(Merci aux personnes qui m'ont aidé pour cette formule)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Application.Intersect(Target, Range("bk11:fl2000")) Is Nothing Then Exit Sub
    If Application.IsFormula(Target) Then Exit Sub
    Target.Value = IIf(UCase(Target) = "X", "", "X")
End Sub

Bonjour,

une facon de faire:

Sub Macro4()
    'deverrouillage colonne D
    ActiveSheet.Unprotect   'enleve prtoection feuille
    With Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,I:I")   'colonnes non verrouillees apres protection feuille
        .Locked = False
        .FormulaHidden = False
        .Range("D:D").Locked = False    'deverrouille colonne D
    End With
    'code pour insertion ligne ou autre
    '
    '
    '
    ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True   'protection feuille
    ActiveSheet.EnableSelection = xlUnlockedCells
    'Verrouillage colonne D
    ActiveSheet.Unprotect   'enleve prtoection feuille
    With Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,I:I")   'colonnes non verrouillees apres protection feuille
        .Locked = False
        .FormulaHidden = False
        .Range("D:D").Locked = True '    verrouille colonne D
    End With
    ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True   'protection feuille
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Bonjour,

Facile pourtant

Votre connaissance du VBA excel est bonne , pas trop?

Bonjour,

Y a pas d'lezard

Quelles colonnes sont a "bloquer"

E11:E2000, ce n'est qu'une colonne

Re,

Z'est sur de votre cout?

En attendant, des que je clique sur une cellule colonne E tout est fige.

Je ne peux meme pas ferme Excel!!!!