GOTOJEFE
Messages postés11Date d'inscriptionmardi 27 janvier 2004StatutMembreDernière intervention22 décembre 2004 22 déc. 2004 à 09:37
Bonjour je t'envoi mon probleme car je pense que tu peux m'aporter des element de reponse
merci
Mon probleme est la suivante:
Je dispose de 3 repertoires
Un repertoire de travail (Travail)
Un repertoire des fichiers valides (Valide)
Un repertoire des Anciens fichiers (Old)
En VBA j'arrive a deplacer les fichiers d'un repertoire a l'autre
Ce que je veux en plus c'est de pouvoir interdir la suppression d'un fichier dans les repertoires "Valide" et "Old" directement de l'explorateur Windows.
Je travail en reseau
Il est peut etre possible de configurer les reperoires avec des droits de lecture et d'ecriture mais pas de suppression pour les menbres du reseau
Mais le question suivante va etre comment faire pour modifier en VBA les droits d'un utilisateur afin qu'il puisse suprimer un fichier par l'intermediare de la Macro VBA
Je ne dispose pas du Logiciel Visual Basic
Toute mes Macro sont faites depuis Autocad (80% et Excel et peut etre par la suite Word)
Je sais que ca fait beaucoup mais si quelqu'un qui peut m'apporter un elment de reponse ce serait sympa
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 22 déc. 2004 à 10:52
Je ne vois qu'une solution.
En fait il existe 3 type de partage en réseau.
1°- Lecture seule
2°- Accès complet
3°- Accès selon mot de passe.
Dans le permier cas, il sera interdit à qui que ce soit de modifier ou supprimer des fichiers (y compris la macro)
Dans le 2ème cas, la macro et les utilisateurs pourront depuis le réseau modifier ou supprimer les fichiers
Dans le 3ème case tu défini un mot de passe pour la lecture seule et un mot de passe pour l'accès complet. Tu donne le mot de passe lecture seule au utilisateur de l'explorateur et tu donne le mot de passe accès complet à ta macro qui sera seule à pouvroi supprimer les fichiers.
J'espere avoir répondu à ta question.
Bonne prog
++
Vous n’avez pas trouvé la réponse que vous recherchez ?
GOTOJEFE
Messages postés11Date d'inscriptionmardi 27 janvier 2004StatutMembreDernière intervention22 décembre 2004 30 déc. 2004 à 12:24
Salut a toi
Voici ce que j'ai trouve pour pouvoir connecter un repertoire reseau en VBA
R : etant la lettre pour le lecteur reseau
\\Portable\Affaire : etant le chemin reseau
mot_passe : etant le mot de passe a utiliser pour la connexion
Et pour le dementer
Demontage_Rep = Shell("NET USE /delete R:", vbMinimizedNoFocus)
Si tu veux frocer le deconnexion alors qu'il y a des fichier d'ouvert il faux faire:
Demontage_Rep = Shell("NET USE /delete R: O", vbMinimizedNoFocus)
Si le repertoire est deja connecté la nouvelle connexion prend les propriete de la connexion rexistante
Si par defaut tu es connecter avec un mot de passe de lecture seule
(disons sur la lettre P) alors la connexion R prend les paramettres de P (Lecture seule)
Si quelqu'un a une solution pour eviter cela je suis preneur
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 30 déc. 2004 à 19:19
Suffisait d'y penser.
Remarque : Net Use te permet de te connecter à un lecteur réseau. Si tu veux créer un partage réseau utilise plutot Net Share.
Et pour plus d'info dans une fentre ms dos tu fais :
Net /?