Protection feuille

[apdf1]

Bonjour à toutes et à tous !

Alors voilà, comme la dernière fois vous avez résolu mon souci en moins de temps qu'il ne faut pour le dire, je reviens vers vous.

J'ai donc créé des macros en VBA qui fait des calculs et remplit une feuille Excel (jusque là, pas d'embrouille !).
Comme cette feuille contient des données "sensibles", je dois la protéger pour qu'elle ne soit modifiable.
Le souci, c'est que pour mettre à jour les valeurs, il faut donc que je déprotéger la feuille avant jusque là normal !
Y'a-t-il moyen d'intégrer sur le formulaire de mes mise à jour un bouton pour déprotéger la feuille avant de mettre à jour les valeurs ?

Avez vous avez une solution à me proposer ?

Merci par avance !!!

Cordialement

Max

 

[Pierrot93]

Re : Protection feuille

Bonjour,

peut être en utilisant ce code :

Sheets("feuil1").Unprotect "toto"

pour reprotéger ensuite :

Sheets("feuil1").Protect "toto"

bonne journée
@+

 

[phlaurent55]

Re : Protection feuille

Bonjour à tous,

Comme cette feuille contient des données "sensibles", je dois la protéger pour qu'elle ne soit modifiable.
Le souci, c'est que pour mettre à jour les valeurs, il faut donc que je déprotéger la feuille avant jusque là normal !

Pour une protection efficace il faut utiliser autre chose qu'Excel

voir aussi
https://www.excel-downloads.com/threads/verrouillage-application.151921/

à+
Philippe

 

[apdf1]

Re : Protection feuille

Merci a tous

Juste pour répondre Philippe qui ma envoyer sur un fil approprier et que je remercie, et-il possible d'avoir l'astuce pour la déprotection Vba que vous proposé si gentiment a Philan

Voudrais-tu me la faire parvenir en MP

Merci par avance !!!

@+

Max

 

[letroubadour]

Re : Protection feuille

bonjour

as tu dévérouillé les cellules que tu veux modifier ? (format cellule - protection )
si tout est coché et que ta feuille est protégé tu ne pourras rien modifié

LE TROUBADOUR

 

[gam]

Re : Protection feuille

Bonjour à tous
J'avais le même problème la semaine dernière , j'ai pu y remédier ainsi :

ActiveSheet.Unprotect [COLOR="lime"]'Enleve la protéction de la feuille[/COLOR]

[COLOR="lime"]'Ton code des changements à mettre ici [/COLOR]

 Range("F25:J34").Select
    Selection.Locked = False [COLOR="lime"]'déverouille la sélection si tu veux que certaines cellules soit modifiable par l'utilisateur[/COLOR]
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True [COLOR="Lime"]'protége la feuille[/COLOR]