A voir également:
- Verrouiller une cellule excel
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
Bonjour,
Pour pouvoir te répondre il nous faut des précisions.
• Toutes les cellules, de quoi ? De tous les onglets du classeur ? D'un onglet spécifique, lequel ?
• Tu veux juste verrouiller les cellules ou verrouiller les cellules et protéger le ou les onglets ?
• Le ou les onglet sont-ils déjà protégés ? Mot de passe pu pas ?
---
À plus,
ThauTheme
Pour pouvoir te répondre il nous faut des précisions.
• Toutes les cellules, de quoi ? De tous les onglets du classeur ? D'un onglet spécifique, lequel ?
• Tu veux juste verrouiller les cellules ou verrouiller les cellules et protéger le ou les onglets ?
• Le ou les onglet sont-ils déjà protégés ? Mot de passe pu pas ?
---
À plus,
ThauTheme
Re,
Non pas assez !... Mais j'en ai mare de devoir tirer les vers du nez...
Essaie ça :
Non pas assez !... Mais j'en ai mare de devoir tirer les vers du nez...
Essaie ça :
Private Sub Workbook_Open()
Dim CEL As Range
With Sheets("Feuil1") 'a adapter
.Unprotect
For Each CEL In .Cells.SpecialCells(xlCellTypeConstants)
If UCase(CEL.Value) = "NON" Then CEL.Locked = False
Next CEL
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Select
End With
End Sub
Merci de votre intérêt.
En réalité, j'ai mis en place une macro afin que les cellules d'une plage donnée se verrouille après saisie afin de protéger l'onglet et qu'il n'y ai plus de saisie possible par la suite:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:a20")) Is Nothing Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Target.Select
End Sub
Cependant, j'aimerai que lorsqu'on rouvre le fichier, les cellules qui contiennent le mot "NON" se déverrouille afin que l'on puisse saisir quelque chose par dessus.
J'espère vous avoir donné assez d'éléments...
Merci pour votre aide