code vba protection feuille excel sauf userform

code vba protection feuille excel sauf userform - VB/VBA/VBS - Programmation

Marsh Posté le 19-10-2008 à 16:48:16    

Bonjour
j'ai un classeur excel avec plusieurs feuilles.
je souhaite que l'une d'entres elles soit protégée et ne puisse etre complétée que par un userform.
la procedure suivante fournie par galopin0
 
Private Sub Workbook_Open()
Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True
End Sub  
 
 génére le message  
"erreur d'execution 57121 définie par l'application ou par l'objet."
 
merci de votre aide

Reply

Marsh Posté le 19-10-2008 à 16:48:16   

Reply

Marsh Posté le 19-10-2008 à 21:03:59    

Bonjour,
Dans cette ligne de code "blabla" est le nom de la feuille protégée et "galopin" le mot de passe.
il faut -bien sur- adapter à ton contexte.
A+

Reply

Marsh Posté le 20-10-2008 à 13:07:39    

Bjr Galopin01
Mais oui, j'ai bien sûr adapté à ma feuille avec son nom "suivi couts" et un mot de passe mais ca ne marche pas
note que si je lance la procedure directement depuis l'environnement vba, ca marche, mais pas à l'ouverture du classeur
Pénible !!!

Reply

Marsh Posté le 20-10-2008 à 14:58:29    

bonsoir,
où as-tu placé les 3 lignes?
 
Cordialement

Reply

Marsh Posté le 20-10-2008 à 21:43:51    

les lignes de code sont dans :
Private Sub Workbook_Open()

Reply

Marsh Posté le 20-10-2008 à 21:55:32    

Bonsoir,
peux-tu envoyer un xls de test par cjoint?

Reply

Marsh Posté le 21-10-2008 à 20:24:21    

Bjr Seniorpapou et merci,
c'est un peu délicat, le fichier ne m'appartient pas et les données sont confidentielles.
 

Reply

Marsh Posté le 21-10-2008 à 20:29:49    

Bonsoir,
pas question d'envoyer le xls dorigine, mais un xls de test dans lequel tu auras placé ta fonction qui ne donne pas le résultat escompté.

Reply

Marsh Posté le 22-10-2008 à 17:59:45    

Je t'envoie un fichier test.
En fait je viens de m'apercevoir que c'est le bouton de commande "nouvelle saisie" chargé d'appeler le userform qui pose problème.
Si je le supprime de ma feuille "suivi couts" je n'ai plus d'erreur et la feuille est bien protégée.
mais que faire pour le conserver ?
 
http://cjoint.com/?kwr3TUaQb1

Reply

Marsh Posté le 22-10-2008 à 18:32:12    

Bonsoir, si cela ne gène pas tu peux mettre un bouton forms à la place du bouton boite à outil

Reply

Marsh Posté le 22-10-2008 à 18:32:12   

Reply

Marsh Posté le 26-10-2008 à 14:15:45    

Bonjour seniorpapou
 
j'ai mis un bouton de commande dans ma feuille par la barre d'outils formulaire et je l'ai affecté à une macro contenant le code vba de l'ancien bouton.
Ca semble fonctionner. Bizarre que cela ne fonctionne pas avec la premiere methode !!
merci à toi

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed