XL 2021 Protection Feuille

Yacine · 31 Octobre 2023

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 · 31 Octobre 2023

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 · 31 Octobre 2023

Phil69970 à dit:
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 · 31 Octobre 2023

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

Phil69970 · 31 Octobre 2023

@Yacine

Phil69970 à dit:
Merci de ton retour

Alors cela fonctionne ?

Yacine · 31 Octobre 2023

Phil69970 à dit:
@Yacine

Alors cela fonctionne ?

Merci beaucoup, ça fonctionne super bien.

XL 2021 Protection Feuille

Yacine

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Yacine

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Yacine

XLDnaute Occasionnel

Discussions similaires