Bloquer un macro si classeur partagé

L

laetitia90

XLDnaute Barbatruc

• 25 Juin 2010

• #2

Re : Bloquer un macro si classeur partagé

bonjour, peut être chercher de ce côte!!!

Code:

If ActiveWorkbook.ReadOnly Then

'ton code
ect..

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Juin 2010

• #3

Re : Bloquer un macro si classeur partagé

bonjour,

plutôt qu'une usine à gaz, pourquoi ne pas chercher le nom de la personne qui utilise le classeur, et en fonction du nom, dérouler le code ou non?

du style :

Code:

Private Sub Worksheet_Activate()
If Application.UserName <> "bibi" Then Exit Sub
'ton code
End Sub

remplace "bibi", par ton username (que tu peux retrouver facilement, en mettant dans un module : x = Application.UserName)

bonne journée

 

Vote positif 0 Vote négatif

J

jongi

Guest

• 25 Juin 2010

• #4

Re : Bloquer un macro si classeur partagé

Merci BHBH, j'y avais pensé mais souhaitait un code "plus sûr", car certains de mes utilisateurs pourraient aisément trouver la faille.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Juin 2010

• #5

Re : Bloquer un macro si classeur partagé

Bonjour à tous,

Je crois que

Code:

ActiveWorkbook.MultiUserEditing

te dit si le classeur est partagé ou non

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Juin 2010

• #6

Re : Bloquer un macro si classeur partagé

Re-,

certains de mes utilisateurs pourraient aisément trouver la faille.

Cliquez pour agrandir...

Et en mettant un mot de passe à ton code?

si tes utilisateurs trouvent également la faille, (pas trop dur, mais faut quand même connaître un minimum), ben, y'aura pas grand chose d'autre à faire....

Bon courage

 

Vote positif 0 Vote négatif

J

jongi

Guest

• 25 Juin 2010

• #7

Re : Bloquer un macro si classeur partagé

En fait j'ai trouvé une parade, pour ce classeur, je masque le menu "Outils" à l'ouverture, et je le ré-active à la fermeture.

If CommandBars(1).Controls("&Outils").Visible = True Then
CommandBars(1).Controls("&Outils").Visible = False
Else
End If

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Juin 2010

• #8

Re : Bloquer un macro si classeur partagé

Re-,

Pourquoi masquer "Outils"?

Pour ne pas que tes fins limiers fassent "Outils/Macro......"

Alt + F11 ouvre l'éditeur, avec ou sans "Outils"....

Bonne journée

 

Vote positif 0 Vote négatif

J

jongi

Guest

• 25 Juin 2010

• #9

Re : Bloquer un macro si classeur partagé

Re---;

Oui, mais pas si le code est protégé par mot de passe, comme tu me le disais juste avant. J'en ai aussi profité pour masquer le menu "Insérer", qui m'a causé quelques problèmes par le passé.

Je sais que ce n'est pas très orthodoxe comme méthode, mais ça à l'air de fonctionner.

Pour moi l'idéal était simplement de vérifier si le classeur est en partage, si c'est le cas, on empêche l'exécution de certaines macro réservée au propriétaire du fichier (moi en l'occurence).

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Juin 2010

• #10

Re : Bloquer un macro si classeur partagé

Re-,

Là, je crois que tu prends un semi-remorque pour livrer un sucre.....

Si tu as eu des soucis à cause de ces deux menus, peut-être que c'est ton code qui présente quelques failles....

M'enfin, si tu préfères cette manière "empirique", libre à toi....

@+

 

Vote positif 0 Vote négatif

J

jongi

Guest

• 25 Juin 2010

• #11

Re : Bloquer un macro si classeur partagé

J'avoue que j'ai tendance à être un peu "possessif" avec mes classeurs 🙂)

Mais à part cette manière "barbare", je vois pas trop comment empêcher l'insertion d'images ou autres dans excel...

 

Vote positif 0 Vote négatif