Limiter l'exécussion d'un macro

[Chapi]

Bonjour tout le monde et merci de votre aide

J'ai créé un classeur protégé mais je souhaite que l'utilisateur puisse modifier certaine cellule que via une boite de dialogue.

Ci joint mon code

Sub boite_de_dialogue()
ActiveSheet.Unprotect "MDP"
variable = InputBox("Texte ?", "Titre", ActiveCell.Value)
ActiveCell.Value = variable
ActiveSheet.Protect "MDP", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowFiltering:=True
End Sub

Le truc c'est que souhaiterez que cette commande ne puisse se faire que sur la ligne 1 et ca 😕😕

Merci de votre aide

 

[Efgé]

Re : Limiter l'exécussion d'un macro

Bonjour Chapi

Avec ce que j'ai compris.

Sub boite_de_dialogue()
If ActiveCell.row <> 1 then Exit sub
ActiveSheet.Unprotect "MDP"
variable = InputBox("Texte ?", "Titre", ActiveCell.Value)
ActiveCell.Value = variable
ActiveSheet.Protect "MDP", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowFiltering:=True
End Sub

Cordialement

 

[Chapi]

Re : Limiter l'exécussion d'un macro

Tu as très bien compris 😉

Merci beaucoup Efgé TOP TOP TOP