XL 2019 protéger un cellule

khalid77777 · 8 Juillet 2023

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 · 8 Juillet 2023

Bonjour khalid77777,

La macro dans le code de la feuille :

VB:

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 · 8 Juillet 2023

job75 à dit:

Bonjour khalid77777,

La macro dans le code de la feuille :

VB:

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

XL 2019 protéger un cellule

khalid77777

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

khalid77777

XLDnaute Nouveau

Discussions similaires