Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 25/08/2011, 09h27   #1
Invité de passage
 
Homme Jérôme
Inscription : août 2011
Messages : 7
Détails du profil
Informations personnelles :
Nom : Homme Jérôme
Localisation : France

Informations forums :
Inscription : août 2011
Messages : 7
Points : 4
Points : 4
Par défaut Insérer des objets sur une feuille protégée

Bonjour à tous,
Alors voilà on pb, j'ai bien noté que le forum n'était pas là pour faire le travail à la place des autres, mais vraiment, là je suis coincé...
Nous avons crée un formulaire à remplir. Sur ce formulaire il y a des objets (images) que je souhaite verrouiller et je souhaite également pouvoir laisser la possibilité aux utilisateur d'insérer un graph (en tant qu'objet) dans une zone précise du formulaire.
Le truc c'est que si je veux protéger les autres objets, je dois protéger la feuille en décochant l'option modifier les objets. En faisant cela, impossible d'insérer un nouvel objet. Je précise que la feuille est protégée par mot de passe et que je ne souhaite pas donner le mot de passe aux utilisateurs.
Ma question : y a-t-il un code vba qui permette d'ôter la protection en indiquant le mot de passe pour permettre l'insertion d'objet puis, une fois l'objet insérer, de reprotéger la feuille avec le même mot de passe. (j'associerai alors le code à un bouton sur le formulaire)
Merci de votre aide
Gibé2201 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/08/2011, 19h34   #2
Membre émérite
 
Avatar de BrunoM45
 
Homme
Assistant de Gestion - Responsable Informatique
Inscription : juillet 2003
Messages : 646
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 45
Localisation : France, Loiret (Centre)

Informations professionnelles :
Activité : Assistant de Gestion - Responsable Informatique
Secteur : Bâtiment Travaux Publics

Informations forums :
Inscription : juillet 2003
Messages : 646
Points : 848
Points : 848
Bonjour Gibé2201,

Le code est simple
Code :
1
2
ActiveSheet.Protect Password:="toto"
ActiveSheet.Unprotect "toto"
A+
__________________
Vous avez la solution à votre problème, pensez au tag :
est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses.

La politesse est comme le zéro, qui, sans avoir de valeur en soi, en ajoute à toutes choses.
BrunoM45 est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 26/08/2011, 09h30   #3
Invité de passage
 
Homme Jérôme
Inscription : août 2011
Messages : 7
Détails du profil
Informations personnelles :
Nom : Homme Jérôme
Localisation : France

Informations forums :
Inscription : août 2011
Messages : 7
Points : 4
Points : 4
Bonjour à tous
Effectivement, c'était tout bête
La syntaxe exacte est juste à modifier en :
Activesheet.unprotect("toto")

Merci pour la réponse en tout cas
Bonne journée
Gibé2201 est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h33.


 
 
 
 
Partenaires

Hébergement Web