Discussion :

[NEC14]

Bonjour,

Je cherche une astuce pour obliger l'utilisateur à saisir ses données à l'aide de l'UF.

Pour ouvrir l'UF, l'utilisateur doit faire un double-click sur la cellule K2. Donc dans l'idée, ce serait de protéger pour empêcher la saisie tant que l'utilisateur n'a pas double-cliqué en K2. Ensuite, la protection est retirée. Une fois la saisie terminée et l'UF refermé, la protection est de nouveau active.

Pouvez-vous m'aider s'il vous plait ?
Merci par avance

[Daniel.C]

Bonjour,

Utilise la protection de la feuille avec le paramètre "UserInterfaceOnly" positionné à "True", ce qui obligera à utiliser une macro pour la saisie.

[Guiiand]

Bonjour,

2 solutions :

Soit tu rajoute dans le code de ton userform ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Fermeture As Boolean
 
Private Sub CommandButton1_Click()
 
    'ici la copie des valeurs ...
 
    Fermeture = False
 
    Unload Me
 
End Sub
 
 
Private Sub UserForm_Initialize()
 
    Fermeture = True
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
    Cancel = Fermeture
 
End Sub

ou alors, tu verouille ta feuille en utilisant pas propriété userinterfaceonly de la méthode protect.

Edit: je suis trop lent à écrire, grilled par Daniel

[NEC14]

Bonjour,

Merci pour vos réponses. J'ai fait autrement.
Lorsque je double-clique en K2 alors le mot de passe est supprimé

En début de la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.Unprotect "mp" 'j'indique le mot de passe
'ma macro

Une fois la saisie terminée, j'ai mis ce boût de code en fin de procédure dans l'UF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Protect "mp" 'j'indique le mot de passe

Encore merci pour vos commentaires.
Cordialement
René