XL 2021 Protection Feuille

[Yacine]

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

 

[Phil69970]

Bonjour @Yacine

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

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]

Bonjour @Yacine

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

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]

Re

Donc pour ton fichier

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

 

[Phil69970]

@Yacine

Merci de ton retour

Alors cela fonctionne ?

 

[Yacine]

@Yacine



Alors cela fonctionne ?

Merci beaucoup, ça fonctionne super bien.