XL 2019 protéger un cellule

[khalid77777]

Bonjour,
Je veux que vous m'aidiez. Je veux protéger un cellule suivant avec un mot de passe en utilisant vba. Lorsqu'un cellule est modifié affiche un message apparaît demandant d'entrer un mot de passe


Merci d'avance pour votre aide

 

[job75]

Bonjour khalid77777,

La macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
    .EnableEvents = False 'désactive les évènements
    .Undo 'annule l'entrée
    If InputBox("Mot de passe :") = "toto" Then .Undo 'rétablit l'entrée
    .EnableEvents = True 'réactive les évènements
End With
End Sub

A+

 

[khalid77777]

Bonjour khalid77777,

La macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
    .EnableEvents = False 'désactive les évènements
    .Undo 'annule l'entrée
    If InputBox("Mot de passe :") = "toto" Then .Undo 'rétablit l'entrée
    .EnableEvents = True 'réactive les évènements
End With
End Sub

A+

Merci