code vba protection feuille excel sauf userform - VB/VBA/VBS - Programmation
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+
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 !!!
Marsh Posté le 20-10-2008 à 21:43:51
les lignes de code sont dans :
Private Sub Workbook_Open()
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.
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é.
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
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
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
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