Fichier partagé

Fermé

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 - 29 mars 2017 à 21:55
rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 - 31 mars 2017 à 13:57

Bonsoir,

Avant de solliciter votre aide, j'ai essayé plusieurs solutions sur Internet, mais aucune ne marche. J'espère que vous pourrez me débloquer.
J'ai actuellement un fichier Excel avec des macros. Je souhaite que les utilisateurs de ce fichier puisse modifier les cellules uniquement à l'aide des différentes Userforms. Pour cela j'ai mis un mot de passe "Mdp" pour protéger la feuille.
Ce fichier est un fichier partagé sur le réseau.
Or lorsque je partage le fichier, les macros ne s'exucute pas, j'ai essayé d'utiliser la fonction "Sheet(1).UnProtect Passeword:="Mdp"" Mais cela me met une erreur "1004". Elle concerne l'Unprotect.
Je ne comprend pas comment je peux contourner le problème.
J'ai essayé de mettre le mot de passe dans ThisWorkbook et en le faisant manuelle sur la partie "Révision"

Le cahier des charges que j'ai:
- proteger la feuille 1 par un mot de passe
- utilisation unique des Userforms
- Fichier partagé sur le réseau

Je m'y connais moyennement en macros, il se peux que mon cahier des charges soit incompatible.
J'espère avoir pu expliqué correctement mon problème.

Bonne soirée

A voir également:

Fichier partagé
Fichier rar - Guide
Fichier host - Guide
Partage photo - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 30 mars 2017 à 07:55

Bonjour,

les macros ne s'exucute pas,
Pouvez preciser, pas de deroulement du code ou probleme dû a la protection feuille?
Par contre, il faudrait plutot proteger comme ceci:

        With Worksheets(1)
            .EnableAutoFilter = True        'pas de filtre
            .Protect Password:="MDP", DrawingObjects:=True, Contents:=True, Scenarios:=True, userInterfaceOnly:=True
            .EnableSelection = xlNoSelection        'pas de selection cellule
        End With

Permet de ne pas deproteger pour ecrire dans les cellules via la VBA

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5
30 mars 2017 à 08:42

Bonjour,
Merci de m'apporter votre aide.

La macro s'exécute parfaitement avant le partage du fichier sur le réseau. Mais une fois le fichier partagé, j'obtiens directement à l'ouverture le code "1004 erreur définie par l'application ou par l'objet".

Je clique sur "Fin". Je clique sur le bouton d'ouverture de la Userform et une fois les données rentrer, après le clique sur le bouton "valider" qui permet de rentrer les données saisies, j'obtiens le message d'erreur: "1004 la cellule ou le graphique est protégé en lecture seul. Pour ôter la protection [...]".

Merci encore.

Bonne journée

Kévin

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018
30 mars 2017 à 08:51

Re,

Ok, c'est un probleme de protection feuille, donc mettez le code que j'ai fourni dans ThisWorkbook
Workbook_Open

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5
30 mars 2017 à 08:55

Ok je vais essayer ça tout de suite, est ce que j'utilise le code suivant dans la Userform

Sheets(1).Unprotect Password:="Mdp"
'Code
Sheets(1).protect Password:="Mdp"

Re,

Plus besoin de ces lignes de code, seul le code dans thisworkbook, workbook_open suffit

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
30 mars 2017 à 09:05

Re,

Malheureusement j'ai toujours le même message: ""1004 erreur définie par l'application ou par l'objet". "
Je trouve ça vraiment bizzare étant donné que tout marche avant le partage multi-utilisateur ...

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
31 mars 2017 à 08:03

Re,

Pas trouve de solution viable
classeur partage avec macros: protection feuille=binz

Une facon de faire qui est, peut-etre, un peu capilotractee mais qui marche. J'ai ete voir chez http://boisgontierjacques.free.fr/index2.htm (fichier .xls joint) et la ProtectionMultiChampsScrollArea va pas mal. Pas besoin de protection feuille

Principe: creer des zones d'access
votre cas: une zone "Invite" d'une seule cellule-->A1

votre fichier modifie: https://www.cjoint.com/c/GCFf6mAzktf
fichier boisgontierjacques: https://www.cjoint.com/c/GCFf7DgKhbf

Une autre facon de faire si vous n'avez pas besoin de voir EXCEL, masquer la fenetre EXCEL

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5
31 mars 2017 à 09:08

Ok très bien,
merci pour les renseignements. Je n'arrive pas à ouvrir mon fichier que vous avez modifié.
Le site de boisgontierjacques est vraiment très bien fait !

Re,

Je n'arrive pas à ouvrir mon fichier
Que ce passe-t-il ?

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5
31 mars 2017 à 13:56

Non en fait, j'ai essayé avec un autre ordinateur et tout marche parfaitement.
C'est exactement ce que je souhaite !! Merci beaucoup !

rafaledu43 Messages postés 160 Date d'inscription samedi 29 octobre 2011 Statut Membre Dernière intervention 8 août 2018 5
31 mars 2017 à 13:57

Fichier partagé

2 réponses

Discussions similaires

Newsletters