Blocage colonne Résolu/Fermé

Question

Bonjour à toutes et à tous.

J'ai un petit soucis, j'ai créé un planning sur excel, hors je voudrai bloquer certaine colonne en écriture, ca je sais faire mais voilà que ca ce complique.
J'ai une fonction d'insertion de ligne et quand j'insère une ligne j'ai un blocage sur mes macros.

Sauriez vous comment bloqué des colonnes de E11:E2000 sans que cela créé un conflit avec des macros ?

Cordialement.

f894009 · Answer

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

f894009 · Answer

Bonjour,

Facile pourtant

Votre connaissance du VBA excel est bonne , pas trop?

f894009 · Answer

Bonjour,

Y a pas d'lezards.

Je recupere le fichier et regarde la chose

f894009 · Answer

Bonjour,

Y a pas d'lezard

Quelles colonnes sont a "bloquer"

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

f894009 · Answer

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!!!!

nathan01983 · Answer

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

Blocage colonne

6 réponses

Discussions similaires