Protéger une feuille modifée par Userform

Bonjour,

Je suis content de trouver un forum Excel qui semblent très actif.

Je me présente : Électronicien de formation, puis informatique des µ-contrôleurs, j'ai développé des analyseurs et des automates pour les laboratoires agro et médicaux dont certains ont plus de 30 ans et fonctionnent toujours.

Comme j'utilise un basic pour les µC, VBA- Excel 2010 est proche.

Maintenant ma question :

j'ai un (une ?) Userform où je collecte des infos résultats d'analyses. Quand le formulaire est rempli je cache mon formulaire et je remplis des cellules d'une feuille avec les données du formulaire .

la feuille ne doit servir qu'à l'édition , il ne faut pas que l'utilisateur puisse modifier les données.

comment faire pour bloquer les cellules modifiées par le formulaire ?

Merci de votre aide

En VB6 cela marchait mais VB6 n'est plus compatible W8.1 !

JP

Salut et bienvenue sur le Forum,

Tu pourrais protéger ta feuille au préalable, la déprotéger au début de ta macro et la re-protéger en fin de macro. Ci-dessous, un exemple avec le mot de passe wwww :

Sub Démo()
ActiveSheet.Unprotect "wwww"
    'Ici tes instructions
ActiveSheet.Protect "wwww"
End Sub

Sinon il faudrait voir ton fichier.

Cordialement.

bonjour

si vous voulez proteger les cellules il faut faire comme manuellement selection des cellules clic droit/format cellule puis onglet protection et de verifier que la case "verouillée" est cochée (normalement sur un fichier de base cela est fait

cela se fait par code de la façon suivante :

exemple pour une plage a2:K2

Range("A2:K2").Locked = true

puis il faut proteger la feuille

vous devez proteger la feuille avec ou sans mot de passe

exemple avec mot de passe

ActiveSheet.Protect Password:="toto"

avant de saisir de nouvelles donnée sur la feuille faudra pas oublier de déproteger la feuille exemple avec mot de passe

ActiveSheet.Unprotect "toto"

sinon vous ne voulez pas de mot de passe ne rien mettre a la place de "toto"

Fred

merci à vous 2,

je teste cette après midi et vous tiens au courant, pour l'instant j'ai un bug qui me fait ....

jp

Bravo,

ActiveSheet.Protect Password:="toto"

fonctionne parfaitement

merci de votre promptitude

Jean-Pierre

Bonsoir,

ActiveSheet.Protect "wwww"

fonctionne parfaitement aussi

Amicalement.

Rechercher des sujets similaires à "proteger feuille modifee userform"