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

[Hauliege]

Bonjour le Forum,

Est-il possible de saisir des données sur feuille protégée uniquement via mon formulaire sans ôter la protection et sans avoir à la remettre en fin de saisie avec code VBA?
Si oui, Merci de votre aide pour l'écriture du code?
Exemple :
Classeur A
feuille 1


Hauliege

 

[sylvanu]

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

 

[danielco]

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 :

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

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

Daniel

 

[Hauliege]

@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

 

[Hauliege]

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 :

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

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

Daniel

@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

 

[danielco]

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

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

Daniel

 

[_Thierry]

Bonsoir @Hauliege , @sylvanu @danielco , el Forum

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

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

 

[danielco]

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

Bonsoir,@_Thierry ,

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

Daniel

 

[_Thierry]

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

 

[danielco]

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

Daniel

 

[_Thierry]

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

 

[danielco]

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

Daniel

 

[_Thierry]

Certe !!!

Bonne soirée Daniel !
@+Thierry