Plage cellules inactive par ex A1:D17

[TheProdigy]

Bonjour à tous,

Je voudrais bien si c'est possible avoir un code permettant de rendre inactive une plage par de cellules (ex A1😀17) ou bien une feuille entière dans l'objectif de manipuler seulement un bouton macro.

Merci d'avance

 

[XCo]

Re : Plage cellules inactive par ex A1😀17

Bonsoir Adilprodigy

le moyen le plus cimple a ma connaissance :

Tu selectionnes ta zone et tu vas ds Outil/Protection et tu tapes ton password

ainsi personne ira saisir quoi que ce soit ds ta zone protegee

A+
XC0

 

[malcy45]

Re : Plage cellules inactive par ex A1😀17

bonsoir vous deux,
un petit code recupéré ici

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("a1:d17")) Is Nothing Then Range("b1").Select

End Sub
si je me trompe les vébeasionistes te le diront

et puis il y a ce fil qui peut t interesser
https://www.excel-downloads.com/threads/bloquer-des-cellules.69231/

amities
remi

 

[malcy45]

Re : Plage cellules inactive par ex A1😀17

suite petit fil ici pour bloquer des cellules avec formule proposé par un internaute ,

Sub e()
'décoche verrouillée sur toute la feuille
Dim cellule As Range
Cells.Select
Selection.Locked = False
'définit zone à regarder
Range("A1:A14").Select
'reccoche si formule
For Each cellule In Selection
If cellule.HasFormula Then cellule.Locked = True
Next
End Sub

 

[malcy45]

Re : Plage cellules inactive par ex A1😀17

et puis pour finir un tour sur wiki ici meme,,
Protéger une plage de cellules dans la feuille


Sélectionnes toutes les cellules de la feuille
Clic droit
Selectionnes "format celllules" dans le menu contextuel %% Il faut décocher l'option "verouillé" dans l'onglet protection %% Cliques sur OK pour valider


Ensuite tu sélectionnes uniquement la plage de cellules que tu souhaites protéger
Clic droit
Selectionnes "format celllules" dans le menu contextuel
Tu coches l'option "verouillé" dans l'onglet protection
Cliques sur OK pour valider


Ensuite
Menu Outils
Protection feuille
Protéger feuille
Assures toi que l'option "proteger la feuille et le contenu des cellules verouillées" est cochée
Saisie ton mot de passe ( en option )
Revalides le mot de passe une 2eme fois
Cliques sur OK


Protéger les cellules qui contiennent des formules dans la feuille Feuil1


Sub protegerCellulesContenantFormules()
On Error Resume Next
With Feuil1
.unProtect "XLD" 'le mot de passe est facultatif
.Cells.Locked = False
.Cells.specialCells(xlCellTypeFormulas).Locked = True
.enableSelection = xlUnlockedCells
.Protect "XLD" 'le mot de passe est facultatif
End With
End Sub


et voila capucino
bonne nuit
j'y vais
bye
rémi