bonjour (urgent)

[hamadafire]

je suis coordinateur de projets au niveau d'une grande societe et j'ai certains
fichiers tres importants sur XLS sur un cerveur .
je veux savoir si possible faire un script don le but d'interdire l'impression et l'enregistrement de mes fichiers c'est-a-dire les lecteurs ont la possiblite seulement de lisez les fichiers,ils ne peuvent pas les imprimer ni enregistrer
merci(j'attends toujours vos reponses

 

[phlaurent55]

Re : bonjour (urgent)

Bonjour et bienvenue sur le forum

peut-être comme ceci:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Exit Sub
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Exit Sub
End Sub

mais il faudrait également empêcher le copier/coller dans un autre classeur en vue de sauvegarder et/ou imprimer

à+
Philippe

 

[hamadafire]

Re : bonjour (urgent)

merci philipe mais j'ai testé la micro mais ca marche plus !!!!!!

 

[hamadafire]

Re : bonjour (urgent)

philipe les deux codes je les mets dans le meme script???

 

[jeanpierre]

Re : bonjour (urgent)

Bonjour hamadafire, Philippe,

ton truc barre en c...... comme on dit.

Depuis l'explorateur on peut et copier le fichier et l'enregister ailleurs, modifier son nom.... et même l'Elysée n'y pourra rien.... (pour répondre à ceci : "seulement de lisez les fichiers"

Ensuite, il faudrait connaître le but ultime....

Bonne soirée approchante.

Jean-Pierre

 

[phlaurent55]

Re : bonjour (urgent)

Bonjour Jean-Pierre,

Depuis l'explorateur on peut et copier le fichier et l'enregister ailleurs, modifier son nom....

Entièrement d'accord mais si le code que j'ai donné est non visible et protégé par mot de passe, je pense qu'on ne pourra quand même pas sauvegarder le classeur après utilisation car n'ayant pas pû modifier/supprimer la macro qui empêche cette sauvegarde
Conclusion ( qui est la mienne) le fichier restera toujours dans son état initial

ou ............. je me trompe
j'attends ta réponse JP ........... merci d'avance

à+
Philippe

 

[hamadafire]

Re : bonjour (urgent)

ben merci
j ai trouvé un script qui interdire seulement l'imprission
je veux le complement c'est-a-dire interdire aussi l'enregistrement


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel= True
MsgBox "Vous n'avez pas le droit d'imprimer ce fichier"
End Sub
j'attends vss reponses

 

[phlaurent55]

Re : bonjour (urgent)

Re,
faire la même structure pour le "BeforeSave"

à+

 

[hamadafire]

Re : bonjour (urgent)

bef
ca marche plus
priere de m'aider à resoudre ce blem

 

[jeanpierre]

Re : bonjour (urgent)

Re tous et Philippe,

Oui et pour répondre au post de 18h05, mais je n'ai pas testé et si l'on ouvre le fichier sans activer les macros... ????

 

[hamadafire]

Re : bonjour (urgent)

heho j'attends l'aide

 

[Staple1600]

Re : bonjour (urgent)

Bonsoir

J'espère que ton attente est douce et agréable.

J'espère que tu nous pardonneras de te faire attendre.

On s'en veut tellement si tu savais.

En attendant , si tu t'intéressais à la gestion des droits utilisateurs sous Windows, tu verrais que ton urgence n'en serait plus une ...

 

[phlaurent55]

Re : bonjour (urgent)

Re,

priere de m'aider à resoudre ce blem

ici on ne prie que les Saints

heho j'attends l'aide

on l'avais remarqué

Pour info, je n'ai pas encore vu de protection efficace à 100%; il se trouvera toujours quelqu'un pour utiliser de "l'Acyd" ou un truc de vieux renard pour passer outre de tes protections

@ Jean-Pierre,

et si l'on ouvre le fichier sans activer les macros... ????

c'est vrai, je n'y avait pas pensé 😡 😡 😡 tu as raison
Je suis de plus en plus convaincu que vouloir protéger un classeur efficacement c'est vouloir inventer le mouvement perpétuel ............. c'est vouloir manger de la farine en sifflant le Marseillaise 😀 😀 😀

Bonne nuit à tous
Philippe
.

 

[bigmousse]

Re : bonjour (urgent)

Je pense que tu devrais dire aux lecteurs de ne pas les copier, ni de les imprimer...,

VBA :

MsgBox "Veuillez ne pas duppliquer les donner, merci, votre chef de projet"

Je te taquine
Mousse

 

[Staple1600]

Re : bonjour (urgent)

Re


Bonsoir phlaurent, bigmousse,jeanpierre ,le fil , le forum

Personne ne semble vouloir attribuer des droits sur des fichiers selon les utilisateurs directement à partir de Windows 😕

Car dans ce cas, pas de macros, pas d'Acyd etc etc...