Verrouiller une cellule excel

Résolu

Titi32600 Messages postés 92 Statut Membre -
Titi32600 Messages postés 92 Statut Membre - 3 janv. 2016 à 13:07

Bonjour à tous,

Comment puis je interdire l’accès à une cellule excel, en fonction d'une donnée d'une autre cellule.

Explication

Je souhaiterais interdire l’écriture dans la cellule A1, si ma cellule A2 = NON

et permettre l’écriture dans ma cellule A1, si A2=OUI.

En même temps, je souhaiterais griser ma cellule A1 quand elle est bloquée.

je pensais à du VBA, mais je suis un peu limité.

Merci à tous

Afficher la suite

A voir également:

Verrouiller une cellule excel
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide

24 réponses

Réponse 21 / 24

Mike-31 Messages postés 19571 Statut Contributeur 5 136

Re,

Alors pour ma part je ne comprends pas ce qui se passe sur ton PC, le code changement de couleur fonctionne normalement puis le code pour verrouiller une cellule non alors que le code est correctement écrit et fonctionne parfaitement pour l'avoir testé sur deux ordis et deux Excel différents
en désespoir de cause teste ce code sur mon dernier fichier ou j'ai scindé chaque conditionnelle

Const Mot_pas As Variant = "pwd"

Sub test()
On Error Resume Next
If Range("A2") = "OUI" Then
ActiveSheet.Unprotect Password:=Mot_pas
Range("A1").Locked = False
ActiveSheet.Protect Password:=Mot_pas, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
If Range("A2") = "NON" Then
ActiveSheet.Unprotect Password:=Mot_pas
Range("A1").Locked = True
ActiveSheet.Protect Password:=Mot_pas, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

Réponse 22 / 24

Mike-31 Messages postés 19571 Statut Contributeur 5 136

Re
pour ma part je viens de recréer un fichier, j'ai simplement déverrouillé la cellule A2 placé les codes comme expliqué plus haut et le fichier fonctionne à 100 pour 100, aucun problème

Réponse 23 / 24

Mike-31 Messages postés 19571 Statut Contributeur 5 136

Re,

il faut impérativement déverrouiller la cellule A2 et c'est ce que je t'avais écrit sur le post 9
alors avant d'utiliser le code déprotège la feuille, puis clic droit sur A2/Format de cellule/onglet Protection/décoche Verrouillée
enregistrer
teste A2 avec OUI et NON

Réponse 24 / 24

Mike-31 Messages postés 19571 Statut Contributeur 5 136

Re,
ok je serais curieux de savoir quel est le problème qui bloque le code qui pourrait se simplifier à
Const Mot_pas As Variant = "pwd"

Sub test()
On Error Resume Next
If Range("A2") = "OUI" Then
ActiveSheet.Unprotect Password:=Mot_pas
Range("A1").Locked = False
ActiveSheet.Protect Password:=Mot_pas, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Else
ActiveSheet.Unprotect Password:=Mot_pas
Range("A1").Locked = True
ActiveSheet.Protect Password:=Mot_pas, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Remplir une cellule (texte) en fonction d'une autre (texte).

Votre réponse

Discussions similaires