XL 2021 Protection Feuille

Yacine

XLDnaute Occasionnel
Bonjour le Forum,

Je voudrais svp savoir comment protéger une feuille Excel (DATA) sans affecter la saisie provenant d'une autre feuille (Form) car quand je protège ma feuille (DATA) et que je saisisse les données à partir de la feuille (Form) j’obtiens un message d’erreur or mon but et de la laisser protégée.

Ci-joint mon exemple.

Merci par avance
 

Pièces jointes

  • ExempleForm(1).xlsm
    30.2 KB · Affichages: 2

Phil69970

XLDnaute Barbatruc
Bonjour @Yacine

Voici le principe :
Je déprotège ma feuille avec le MDP
Mon code
Je reprotège ma feuille avec le MDP

VB:
Sheet("Nom de ma Feuille".Unprotect "Toto" 'A adapter
' Mon code ....
' Blablabla....
Sheet("Nom de ma Feuille".Protect "Toto"   'A adapter

*Remarque si tu perds ton MDP tu ne trouveras personne sur le site pour te débloquer car contraire à la charte

Avec excel, protéger une formule d'un risque d’écrasement accidentelle oui c'est une bonne idée 👍 mais autrement ce n'est qu'illusion et doux rêve ... 🤣

*Merci de ton retour
 

Yacine

XLDnaute Occasionnel
Bonjour @Yacine

Voici le principe :
Je déprotège ma feuille avec le MDP
Mon code
Je reprotège ma feuille avec le MDP

VB:
Sheet("Nom de ma Feuille".Unprotect "Toto" 'A adapter
' Mon code ....
' Blablabla....
Sheet("Nom de ma Feuille".Protect "Toto"   'A adapter

*Remarque si tu perds ton MDP tu ne trouveras personne sur le site pour te débloquer car contraire à la charte

Avec excel, protéger une formule d'un risque d’écrasement accidentelle oui c'est une bonne idée 👍 mais autrement ce n'est qu'illusion et doux rêve ... 🤣

*Merci de ton retour
Bonjour et merci pour ta réponse, pourrais-tu si ça ne te dérange pas de l'appliquer directement dans le fichier en mettant 123456 comme MDP. merci par avance
 

Phil69970

XLDnaute Barbatruc
Re

Donc pour ton fichier

VB:
With Sheets("Data")
    'Je déprotege la feuille'
    .Unprotect "123456" 'A adapter

    Set trouve = .Rows(3).Find(Ville, lookat:=xlWhole)
 '......Le reste de ta macro
 '......Blablabla.....
    .Cells(16, col + 1) = WsForm.Range("G48")
  
     'Je reprotege la feuille' 
    .Protect "123456" 'A adapter
End With

Merci de ton retour
 

Discussions similaires

Réponses
8
Affichages
307
Réponses
12
Affichages
668

Statistiques des forums

Discussions
313 289
Messages
2 096 848
Membres
106 766
dernier inscrit
jBa2023