Verrouiller une cellule excel
Résolu/Fermé
Titi32600
Messages postés
87
Date d'inscription
samedi 5 décembre 2015
Statut
Membre
Dernière intervention
20 août 2017
-
2 janv. 2016 à 07:38
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 3 janv. 2016 à 13:07
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 3 janv. 2016 à 13:07
A voir également:
- Verrouiller une cellule excel
- Verrouiller cellule excel - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Formule excel - Guide
24 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
3 janv. 2016 à 11:34
3 janv. 2016 à 11:34
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
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
3 janv. 2016 à 11:54
3 janv. 2016 à 11:54
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
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
3 janv. 2016 à 12:26
3 janv. 2016 à 12:26
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
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
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
3 janv. 2016 à 12:51
3 janv. 2016 à 12:51
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
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