Alimenter une cellule uniquement par userform

bomagicmusic

XLDnaute Occasionnel
Bonjour,

J'ai crée une petite application et je voudrais obligé les utilisateurs à passer par le User Form pour alimenter les cellules. J'ai essayé en vérouillant les cellules mais j'ai une erreur lorsque je remplis le user form. Quelqu'un à une idée?

merci bcp
 

CBernardT

XLDnaute Barbatruc
Re : Alimenter une cellule uniquement par userform

Bonjour bomagicmusic,

Avant de reporter les valeurs de la userform vers la feuille, tu déprotéges ta feuille puis tu reportes les aleurs et enfin tu reprotèges aussitôt la feuille.

La syntaxe est du style :

With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="***"
End With
'
'Mettre ici les lignes de code nécessaires au report des valeurs.
'
' Reprotection de la feuille active
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:="***", Contents:=True, UserInterfaceOnly:=True, Scenarios:=True
End With

Dans ce code, le mot de passe est "***", 3 étoiles.

Cordialement

Bernard
 

bomagicmusic

XLDnaute Occasionnel
Re : Alimenter une cellule uniquement par userform

Je ne paux pas appliquer ce code sur mon application,Quelqu'un aurait-il une autre idée que je pourrais placer sur mon bouton valider: on désactive la protection de la feuille le temps de transferer les données et apres on reverouillle?
Merci de votre aide
 

bomagicmusic

XLDnaute Occasionnel
Re : Alimenter une cellule uniquement par userform

En fait, j'ai plusieurs text box dans lesquelles j'applique le code de transfert vers ma feuille. Puis un bouton terminer qui me permets juste de fermer le user form et de selectionner ma feuille excel c'est pour ça que je ne peux pas appliquer le code dans le bouton.
Je souhaite juste empecher l'utilisateur de rentrer directement les donnees dans les cellules.
 

jeanpierre

Nous a quitté
Repose en paix
Re : Alimenter une cellule uniquement par userform

Re,

En début de code, juste après avoir ouvert ton USF, essaie avec :

ActiveSheet.Unprotect ("mot de passe s'il existe"), et dans le code du bouton, juste avant de fermer l'USF :

ActiveSheet.Protect ("là encore MDP au besoin")

Sinon, présente-nous ton code pour placer tout cela au mieux.

Bonne soirée.

Jean-Pierre
 

Discussions similaires

Réponses
2
Affichages
417

Statistiques des forums

Discussions
312 472
Messages
2 088 710
Membres
103 930
dernier inscrit
Jibo