XL 2013 UserF pour saisir sur feuille protégée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juillet 2020

• #2

Bonsoir Hauliege,
Si une feuille est protégée ... elle est protégée.
On peut déprotéger, transférer les données et reprotéger dans la foulée via une macro.
Un exemple quasi identique sur un fil actuellement :

Autres - Obliger la personne à se servir d'un formulaire

Bonjour à tout le forum, Je fais appel au forum car j'ai cherché la solution en vain sur le net mais aucune réponse m'a été apporté. [ ci joint une partie de mon petit programme. ] J'ai fait un formulaire de saisie qui s'ouvre à l'aide du crayon orange stylisé. On rempli donc les cases tout ou...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 24 Juillet 2020

• #3

Bonjour,

Au lieu d'ôter et de remettre la protection, une solution voisine est d'utiliser le paramètre "UserInterfaceOnly" de "Protect" avant et après saisie :

VB:

Sheets(1).Protect UserInterfaceOnly:=True
'Saisie'
Sheets(1).Protect UserInterfaceOnly:=False

En précisant les autres paramètres (PassWord...).

Daniel

 

Vote positif 0 Vote négatif

H

Hauliege

XLDnaute Nouveau

• 24 Juillet 2020

• #4

@J'ai vu et testé ta proposition ca marche sauf que moi je ne veux pas avoir à saisir le mot de passe à chaque fois que je dois entrer des données.
Mon but est de saisir des données sur cette feuille protégée sans mot de passe mais lorsque l'utilisateur veut supprimer ou écraser la feuille en question, le mot de passe lui est demandé..
@daniel comment préciser ces paramàtres dans le bout de code? Pour le novice que je suis c'est galère merci de ton retour

 

Vote positif 0 Vote négatif

H

Hauliege

XLDnaute Nouveau

• 24 Juillet 2020

• #5

danielco à dit:

Bonjour,

Au lieu d'ôter et de remettre la protection, une solution voisine est d'utiliser le paramètre "UserInterfaceOnly" de "Protect" avant et après saisie :

VB:

Sheets(1).Protect UserInterfaceOnly:=True
'Saisie'
Sheets(1).Protect UserInterfaceOnly:=False

En précisant les autres paramètres (PassWord...).

Daniel

Cliquez pour agrandir...

@sylvanu J'ai vu et testé ta proposition ca marche sauf que moi je ne veux pas avoir à saisir le mot de passe à chaque fois que je dois entrer des données.
Mon but est de saisir des données sur cette feuille protégée sans mot de passe mais lorsque l'utilisateur veut supprimer ou écraser la feuille en question, le mot de passe lui est demandé..
@danielco comment préciser ces paramètres dans le bout de code? Pour le novice que je suis c'est galère merci de ton retour

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 24 Juillet 2020

• #6

Un exemple avec une feuille "Feuil1" protégée avec le mot de passe "aaa" :

VB:

  Sheets("Feuil1").Protect "aaa", userinterfaceonly:=True
  Sheets("Feuil1").[B1] = "a"
  Sheets("Feuil1").Protect "aaa", userinterfaceonly:=False

Daniel

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Juillet 2020

• #7

Bonsoir @Hauliege , @sylvanu @danielco , el Forum

danielco à dit:

Sheets("Feuil1").Protect "aaa", userinterfaceonly:=False

Cliquez pour agrandir...

Petit détail, ce n'est pas nécessaire, en effet UserInterfaceOnly est "volatile" elle ne durera que pendant l'ouverture du classeur.
Elle sera à lancer à chaque ouverture par contre.

Bonne soirée
@+Thierry

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 24 Juillet 2020

• #8

_Thierry à dit:

Bonsoir @Hauliege , @sylvanu @danielco , el Forum


Petit détail, ce n'est pas nécessaire, en effet UserInterfaceOnly est "volatile" elle ne durera que pendant l'ouverture du classeur.
Elle sera à lancer à chaque ouverture par contre.

Bonne soirée
@+Thierry

Cliquez pour agrandir...

Bonsoir,@_Thierry ,

Oui, mais après, la feuille est modifiable par n'importe quelle macro.

Daniel

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Juillet 2020

• #9

ben c'est le but de " UserInterfaceOnly " non ?

Evidemment il ne faut pas laisser trainer des macros style For Each WS in ThisWorkBook.Worksheets... WS.Delete ........ LoL


Bonne soirée
@+Thierry

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 24 Juillet 2020

• #10

Ca dépend de qui on veut se protéger. Un utilisateur malveillant peut en profiter.

Daniel

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Juillet 2020

• #11

Un utilisateur malveillant (et un tant soit peu compétant) peut tout faire sur un classeur Excel, Protégé ou pas !...
Excel, à ce niveau là, a ses limites, il vaut mieux le savoir.
@+Thierry

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 24 Juillet 2020

• #12

On est tout à fait d'accord. Cependant, mieux vaut ne pas faciliter la tâche des malveillants, non ?

Daniel

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 24 Juillet 2020

• #13

Certe !!!

Bonne soirée Daniel !
@+Thierry

 

Vote positif 0 Vote négatif