Interdire la copie d'onglet

[gersois]

Bonjour,

J'ai un classeur avec plusieurs feuilles. Tout est verrouillé, certaines lignes et colonnes masquées, formules masquées, en laissant toutefois certaines cellules libres d'accès ainsi que le format, etc ...
Tout fonctionne bien sauf qu'un simple copier-coller de cellules vers un nouveau classeur permet à quiconque d'avoir l'intégralité de mes données.

Je suis donc passé par la commande Workbook.Deactivate .... Application.CutCopyMode = False.

Effectivement, ça marche nickel. J'empêche le copier-coller. Sauf qu'il reste encore une faille : il suffit simplement de copier l'onglet dans un nouveau classeur (clic droit sur l'onglet, déplacer ou copier ... etc ....) puis faire un copier-coller dans un 3° classeur et le tour est joué.

Question : en vba, comment empêcher la copie d'un onglet vers un autre classeur ?

Merci à vous

Gersois

 

[noviceAG]

Re : Interdire la copie d'onglet

Bonsoir gersois,
Voici un lien qui trite de ce suijet :

Lien supprimé

Bonne soirée

 

[jeanpierre]

Re : Interdire la copie d'onglet

Bonjour gersois et Bienvenue sur Xld, noviceAg,

Sauf erreur, noviceAG, ton lien dans les archives ne fontionne pas, enfin, chez-moi...

Bonne soirée.

Jean-Pierre

 

[job75]

Re : Interdire la copie d'onglet

Bonjour Gersois, NoviceAG,

(Annulé, car solution mauvaise...)

A+

 

[noviceAG]

Re : Interdire la copie d'onglet

Bonsoir gersois, job, jeanpierre, le Forum,
Effectivement le lien que j'ai indiqué ne fonctionne plus, je n'en connais pas les raisons j'en suis désolé mais voici ce que j'avais noté :

InterdireCopierCollerD'uneFeuille.

Lien supprimé

Code à placer dans ThisWorkbook

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

Si nous ne pouvons pas selectionner les colonnes masquées ou une partie des colonnes masquées alors c'est gagné, c'est ce que j'ai fais.
Dans le code en annexe j'ai pris l'hypothèse que les colonnes A et B étaient celles à protéger.
Ce code doit être mis dans le code de ta feuille à protéger.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range(Columns(1), Columns(2))) Is Nothing Then
Cells(1, 3).Select
MsgBox "Vous ne pouvez pas sélectionner les colonnes ou une partie des colonnes A et B"
End If
End Sub

En vous souhaitant bonne continuation

 

[job75]

Re : Interdire la copie d'onglet

Rebonjour à tous, salut jeanpierre 🙂,

Une solution est de mettre par exemple, dans une cellule :

=MAINTENANT()

puis de mettre dans le code de la feuille :

Private Sub Worksheet_Calculate()
If Application.CutCopyMode = True Then Application.Undo
End Sub

Edit : désolé, ça ne marche pas plus que celle que j'ai effacée...

A+

 

[gersois]

Re : Interdire la copie d'onglet

Merci pour les réponses, je vois que ça va très vite sur ce forum !

Mon besoin est vraiment d'empêcher la copie de l'onglet.
Dans le code que tu donnes NoviceAG, tu empêches la sélection des colonnes déterminées, mais la copie de l'onglet est toujours possible ...

 

[job75]

Re : Interdire la copie d'onglet

Re,

Bon, on va y arriver :

1) dans le code de la feuille (ce n'est pas nécessaire si toutes les feuilles sont protégées) :

Private Sub Worksheet_deactivate()
Application.CutCopyMode = False
End Sub

2) dans ThisWorkbook :

Private Sub Workbook_deactivate()
Application.CutCopyMode = False
End Sub

3) pour désactiver la commande Déplacer ou copier, menu Outils-Protection-Protéger le classeur.

EDITION : mais quelqu'un qui connaît VBA pourra toujours copier la feuille dans un autre classeur avec le code :

Workbooks("toto.xls").Sheets(1).Cells.Copy Range("A1")

A+

 

[Guillaumega]

Re : Interdire la copie d'onglet

Bien sûr Job75 et Staple! L'objet d'Excel n'est pas de protéger des données confidentielles donc rien d'efficace ne fonctionne bien.

Par contre tu peux crypter un fichier avec un autre logiciel. Winzip propose un archivage avec une option de cryptage que l'on ne peut outrepasser qu'en force brute. Enfin je crois 😉

guillaumega

 

[gersois]

Re : Interdire la copie d'onglet

Re


Guillaumega
Excel lui aussi à partir d'Excel 2003 permet le cryptage.
voir ici :Description des options qui vous aident protéger vos feuilles de calcul dans Excel 2003 et Excel 2002

Mais je aprles juste du fait de créer du code VBA de protection qui sera inefficace dès qu'on ouvre le classeur sans activer les macros.

Merci à tous pour vos réponses - c'est vrai que le plus simple est de protéger le classeur, tout simplement.

Après je sais pertinemment qu'on ne peut pas blinder des données dans excel, donc je ne me prenais pas trop la tête avec ça, mais je voulais au moins freiner les utilisateurs sur l'utilisation des commandes classiques, le public à qui je m'adresse n'utilisant pas vba.

Merci à tous.

Gersois