Verrouiller la cellule si non vide
Bonjour à tous,
j'ai bien cherché mais je n'ai pas trouvé.
Comment verrouiller une cellule non vide (et non verrouillée bien sur) sur une feuille protégée?
Le but est de ne plus pouvoir ré-inscrire dans la cellule une fois renseignée.
Je vous remercie.
Bonjour Vacoch,
Code à placer dans l'onglet de ta feuille active, protégée par "Vacoch"
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Vacoch"
Target.Locked = True
ActiveSheet.Protect Password:="Vacoch"
End SubMerci Sylvain super ton code!
Salut le forum
Une autre facon
Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="12345", UserInterfaceOnly:=True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Locked = True
End SubMytå
P.S. le ActiveSheet.Protect Password:="12345", UserInterfaceOnly:=True
peut-être mis sur une boucle qui scan les feuilles concernées dans Workbook_open
Private Sub Workbook_Open()
With [Feuil1]
.Protect Password:="12345", UserInterfaceOnly:=True
.Cells.Locked = False
End With
End Submerci à vous,
Et si je veux pousser un peu plus cette macro:
comment sélectionner juste une une plage de la feuille concernée ex A1:C500?
Encore merci
Bonjour,
En partant sur la macro de Mytå :
Private Sub Worksheet_Change(ByVal Target As Range)
if not intersect(target, range("A1:C500")) is nothing then
Target.Locked = True
end if
End SubJe ne suis pas arrivé à faire fonctionner les codes de Mytå par contre j'ai adapté celui de Sylvain et il fonctionne! (Excel 2007)
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Vacoch"
If Not Intersect(Target, Range("A1:C500")) Is Nothing Then
Target.Locked = True
ActiveSheet.Protect Password:="Vacoch"
End If
End Sub
Re,
Attention !
Commences ta condition If not intersect AVANT de déverrouiller la feuille !
Edit : sinon si ta cellule target n'est pas dans la zone admise, tu as quand même déverrouillé, mais tu ne reprotège pas ensuite puisque le if n'est pas exécuté...
Merci à toi!