Détection d'écriture dans cellule

Re,

je comprends pas ton problème. Tu peux mettre le mot de passe de protection de l'onglet dans le code en dur en activant la protection. Ainsi il ne te le demande pas :

ActiveSheet.Protect "Ton_Mot_de_passe"

Idem pour la déprotection :

ActiveSheet.Unprotect "Ton_Mot_de_passe"

Re,

Pourquoi faire une usine à gaz alors que protéger l'onglet par mot de passe plus + verrouiller les cellules le fait très bien ?

Mais bon... Le code dans trois composants différents :
• Dans un module standard quelconque (Module1 par exemple), les premières lignes avant tout autre code, les déclarations des variables publiques :

Public V As Variant
Public AD As Range
Public Autorisation1 As Boolean

• dans le composant de l'onglet concerné :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
V = Target.Value
Set AD = Target
If Not Application.Intersect(Target, Range("A:U")) Is Nothing Then MdPDemande.Show
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Autorisation1 = False Then AD.Value = V
End Sub

Dans l'userform MdPDemande :

Private Sub TextBox1_Change()
TextBox1.PasswordChar = "*"
If TextBox1.Value = "Demandeur" Then
    Autorisation1 = True
    Unload Me
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Autorisation1 = False Then Cancel = True
End Sub

À tester... Maintenant, si je suis utilisateur de ton fichier et que je dois taper le mot de passe chaque fois que je dois modifier une des cellules des colonnes A à U, je te garantis que je pète un câble !...

À plus,
ThauTheme

Bonjour

Il te faut mettre le contenu de la cellule cliquée dans une variable globale à la selection de la cellule visée
Quelque chose de ce genre

Dim v     ' variable globale, tu peux en preciser le type

Dim Autorisation1 As Boolean  ' vairable affectée quelque part dans tes procedures

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:U")) Is Nothing Then
  v = Target.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:U")) Is Nothing And Autorisation1 = False Then
    MdPDemande.Show
    If Autorisation1 = False Then Target.Value = "": Exit Sub
End If
End Sub

RQ. Si tu ne veux que nettoyer la cellule ceci suffira (sans procédure Change)

    If Autorisation1 = False Then Target.Value = v: Exit Sub

Cdlmnt

Bonjour,

Détecter non, mais effacer ou rétablir après le changement oui... Car la procédure Change ne s'exécute qu'après la validation. Tu peux éventuellement, émettre un message quand la cellule est sélectionnée via la procédure SelectionChange mais ce dernier apparaîtra même si elle n'est pas éditée...