Protection fichier excel par Macro

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2012

• #2

Re : Protection fichier excel par Macro

Bonjour,

pour que les macros puissent s'exécuter sur feuille protégées, il faut que la protection soit effectuée par le code en utilisant l'argument "userinterfaceonly", code ci-dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Code:

Option Explicit
Private Sub Workbook_Open()
Sheets("NOmfeuille").Protect "toto", userinterfaceonly:=True
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

F

Florian95

XLDnaute Nouveau

• 1 Juin 2012

• #3

Re : Protection fichier excel par Macro

Bonjour Pierrot93,

merci de ta réponse express et répondant déjà en partie à mes questions
Je suis ok avec ton code sauf que ce sont les paramètres des protections de feuilles qui s'affichent.
existe t -il un parametrage qui correpondrait à mes attentes ?

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2012

• #4

Re : Protection fichier excel par Macro

Re,

Florian95 à dit:

Bonjour Pierrot93,

merci de ta réponse express et répondant déjà en partie à mes questions
Je suis ok avec ton code sauf que ce sont les paramètres des protections de feuilles qui s'affichent.
existe t -il un parametrage qui correpondrait à mes attentes ?

Merci

Cliquez pour agrandir...

euh... tu disais :

Quant je protège avec format feuille protection mes macros en fonctionnent plus !

Cliquez pour agrandir...

le code donné répondait à ceci, non.... soit peut être un peu plus précis

 

Vote positif 0 Vote négatif

F

Florian95

XLDnaute Nouveau

• 1 Juin 2012

• #5

Re : Protection fichier excel par Macro

En effet, je comprend ton point pierrot95

Si tu veux dans mes feuilles je ne souhaite pas que les utilisateurs puissent supprimer ou écrire directement sur la feuille.
L'utilisateur navigue sur les feuilles à l'aide de boutons de commandes et de cellules déroulantes. Les boutons le conduisent vers des USERFORMS. Ensuite c'est une macro qui prend les données dans les userforms et qui les injectent ou les suppriment dans le tableau.

Désolé de ne pas avoir été clair

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Juin 2012

• #6

Re : Protection fichier excel par Macro

Bonjour Florian, Bonjour Pierrot ,

Si, si, c'est bien ce que Pierrot avait compris, et ce à quoi il a répondu
Maintenant si ce qu'il a proposé ne fonctionne pas, dis-nous pourquoi ça ne fonctionne pas, ou ce qui plante...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2012

• #7

Re : Protection fichier excel par Macro

Re, bonjour toto

As tu testé le code donné ?

Si tu veux dans mes feuilles je ne souhaite pas que les utilisateurs puissent supprimer ou écrire directement sur la feuille.

Cliquez pour agrandir...

les cellules à protéger sont elles bien vérouillées ???

 

Vote positif 0 Vote négatif

F

Florian95

XLDnaute Nouveau

• 1 Juin 2012

• #8

Re : Protection fichier excel par Macro

Bien vu Pierrot93

Toutes mes cellules n'étaient pas vérouillées !
Par contre je ne peux plus utiliser mes filtres automatiques ! je vais essayer de bidouiller

merci beaucoup

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Juin 2012

• #9

Re : Protection fichier excel par Macro

Re,

Par contre je ne peux plus utiliser mes filtres automatiques ! je vais essayer de bidouiller

Cliquez pour agrandir...

Eh oui, d'ici on a du mal à voir que tu utilises des filtres automatiques, et les boules de cristal de qualité se font de plus en plus rares
Qui sait si avec un bout de fichier exemple simplifié la réponse n'aurait pas été plus personnalisée...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2012

• #10

Re : Protection fichier excel par Macro

Re,

pour pouvoir utiliser les filtres :

Code:

Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .EnableAutoFilter = True
    .Protect "toto", userinterfaceonly:=True
End With
End Sub

 

Vote positif 0 Vote négatif

F

Florian95

XLDnaute Nouveau

• 1 Juin 2012

• #11

Re : Protection fichier excel par Macro

J'ai trouvé la solution !

With Sheets("BDD")
.Protect "toto", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With

merci beaucoup à tous

 

Vote positif 0 Vote négatif