Protection Fichier

[Omar Seydina]

Bonjour,

J'ai 1 fichier que j'aimerais mettre en partage, mais j'aimerais aussi empécher que l'on puisse le copier.
Je n'arrive pas à trouver une formule ou code afin d'empécher quelqu'un de pouvoir en faire une copie.
Merci d'avance [file name=mmmm.zip size=5519]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mmmm.zip[/file]

 

[visiteur]

salut Omar

De : _Thierry sur Excel-Downloads.

Code à mettre dans le Private Module de 'ThisWorkBook'

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' SaveAsUI est VRAI si on vient de Fichier / Enregistrer sous
' et FAUX si on vient de Fichier / Enregistrer
' si on met Cancel à VRAI, l'enregistrement n'a pas lieu
If SaveAsUI = FalseThen
MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
Cancel = True
End If
End Sub
bye

 

[Omar Seydina]

Bonsoir Thierry,

Je viens de voir ton code.
J'ai essayé, mais sans réussite (érreur)!!
En fait, je suis vraiment débutant, et je t'avoue que je n'arrive pas.
Pourrais-tu me placer ton code sur mon fichier joint afin que je puisse comprendre?

Bien entendu, je te remercie en avance

 

[jacktati]

Salut Omar Seydina


Correction macro de visiteur.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
Cancel = True
End If
End Sub [file name=mmmmV1.zip size=10041]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mmmmV1.zip[/file]

 

[Omar Seydina]

Merci pour cette proposition.
Je pense que je me mal exprimé.
En fait j'aimerais empécher toute modification et toute copie (ex:ctrl+c). Alors que avec ce code, n'importe qui peut me copier mon fichier et changer de nom.
Y'aurait-il un moyen de permettre la visualisation de mon fichier, mais d'empécher le personnes qui le consulte de le selectionner et de le copier?
Merci d'avance s'il existe une solution?

 

[jacktati]

re: Omar Seydina

Méthode radicale pour interdire le copier/coller (peut s'affiner en jouant sur les paramètres Target et Sh) :

dans le module ThisWorkbook de ton classeur

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
Application.CutCopyMode = False
End Sub

@+

 

[Omar Seydina]

Merci, effectivement ça marche.
Cependant, on peut modifier le contenu de mon fichier.
Y'aurais-t-il une macro qui puisse empécher la copie et la modification du fichier tout en restant accessible à tout le mode?

Merci d'avance

 

[Blunet]

Salut Omar essaye de copier ce fichier si tu peux.
Mais je te préviens que je n'ai pas pris en compte de modes:
-La fonctionalité d'exportation des données
-La copie avec le dos

J'y réfléchis encore en attendant essaye ceci.

A+ [file name=EmpecherCopierColler.zip size=7669]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EmpecherCopierColler.zip[/file]

 

[Blunet]

Le fichier joint

 

[Blunet]

Le fichier joint [file name=EmpecherCopierColler_20051221082638.zip size=7669]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EmpecherCopierColler_20051221082638.zip[/file]