Interdire la copie d'onglet

noviceAG

XLDnaute Impliqué

• 28 Novembre 2008

• #2

Re : Interdire la copie d'onglet

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

Lien supprimé

Bonne soirée

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Novembre 2008

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Novembre 2008

• #4

Re : Interdire la copie d'onglet

Bonjour Gersois, NoviceAG,

(Annulé, car solution mauvaise...)

A+

 

Dernière édition: 28 Novembre 2008

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 28 Novembre 2008

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Novembre 2008

• #6

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 :

Code:

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+

 

Dernière édition: 28 Novembre 2008

Vote positif 0 Vote négatif

G

gersois

Guest

• 28 Novembre 2008

• #7

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 ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Novembre 2008

• #8

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) :

Code:

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

2) dans ThisWorkbook :

Code:

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 :

Code:

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

A+

 

Dernière édition: 28 Novembre 2008

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 28 Novembre 2008

• #9

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

 

Vote positif 0 Vote négatif

G

gersois

Guest

• 1 Décembre 2008

• #10

Re : Interdire la copie d'onglet

Staple1600 à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif