> Tous les forums > Forum Bureautique
 Protéger un fichier avec des macroSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
dpx
  Posté le 23/11/2008 @ 19:44 
Aller en bas de la page 
Petit astucien

Bonsoir,

J' ai créé un fichier sur excel 2007 qui contient de nombreuses fonctions enregitrées comme Macro. Comme il est destiné à être manipulé par tout le monde, je veux protéger chaque feuille par un mot de passe.

Créé sur 2007,en mode compatibilité car destiné à fonctionner sur excel 2003, j'ai fait régulierement des essais de module sur 2003 pour ne pas avoir de surprises (Il est fait de plusieurs modules car complet il fait + de 800 Mo)

La suprise je l'ai eu:Sur 2003 les macro de tri "A à Z" ne fontionnent pas quand il y a un mot de passe. Fontionne pas avec la macro 2007, fontionne pas avec la macro 2003

Sur 2007, ça fontionne en cochant les cases Utilser le filtre, Modifier les objets, Modifier les scénario. Je fais de même sur 2003, la macro échoue avec le message << erreur d'execution 1004 la méthode Sort de la classe range à échoué >>

Macro_Trier_CDD_2003

Range("A82:AV105").Select
Selection.Sort Key1:=Range("B82"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False
, Orientation:=xlTopToBottom
Range("B82").Select

End Sub

Si je tente avec la macro faite sur 2007 le message est <<erreur de compilation Variable non définie

Macro_Trier_CDD_2007

Range("A82:AV105").Select
ActiveWorkbook.Worksheets("PREPARATION A").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PREPARATION A").Sort.SortFields.Add Key:=Range( _
"B82:B105"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("PREPARATION A").Sort
.SetRange Range("A82:AV105")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Voila, si quelqu'un a du temps de reste et une idée! Un grand merci d'avance car ce fichier est un pari avec mon patron, et une partie est déjà en place, mais comme tout le monde tripote dedans,ça devient vite un et je passe ma vie à le remettre en place au point qu' au 1er janvier ou celui ci tourne, ou on reprends tous la gomme et le crayon! Suis pas informatitien moi

Publicité
vieuxmonsieur
 Posté le 24/11/2008 à 07:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour dpx, le forum,

sur 2003, dans outils, protection, tu coche la case tri

bonne journée

dpx
 Posté le 24/11/2008 à 19:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonsoir, vieuxmonsieur

Mon problème n'est pas là. Pour créer la macro, je lui dis bien de trier. Mais en fait, j'y ai pensé cette nuit, et la je rentre juste, je viens d'essayer ça marche:

Pour 2003: il faut laisser la dernière ligne de la zone de tri vide pour que le tri fonctionne avec ma macro et une protection. Bizarement, sans protection, ça fontionne sans cette ligne vide

Merci d'avoir passé du temps sur mon problème

Cordialement

dpx

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
54,99 €Disque dur Western Digital Blue 2 To à 54,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le disque dur Western Digital Cavier Blue 2 To à 54,99 € livré gratuitement. Ce disque dur 3.5 pouces SATA III  tourne à 5400 tr/min. On le trouve ailleurs à partir de 61 €. 


> Voir l'offre
49,99 €Disque dur Seagate BarraCuda 2 To à 49,99 €
Valable jusqu'au 01 Mars

Cdiscount propose actuellement le disque dur Seagate BarraCuda - 2 To (ST2000DM008) à 49,99 €. On le trouve ailleurs autour de 69 €. Ce disque dur 3.5 pouces SATA III tourne à 7200tr/min et possède 64Mo de cache. 


> Voir l'offre
92,99 €Disque dur externe portable Western Digital Elements USB 3.0 4 To à 92,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le disque dur externe portable Western Digital Elements USB 3.0 4 To à 92,99 € livré. On le trouve ailleurs à partir de 115 €. Ce disque dur qui tient dans la main est silencieux, ne chauffe pas et dispose d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire.


> Voir l'offre

Sujets relatifs
Taille d'un fichier excessive avec une macro
Macro ouvrir fichier avec raccourci clavier
Ouvrir avec macro un fichier dans autre classeur
macro pour enregistrer fichier avec nom d1cellule
Comparaison 3 lignes avec fichier
Creation d' une boucle macro dans fichier EXCEL pour impression
Fichier joint avec un fichier pdf
Pas de son fichier pps lu avec OpenOffice
Tirage au sort avec macro
Comment créer fichier client avec carte de fidélité
Plus de sujets relatifs à Protéger un fichier avec des macro
 > Tous les forums > Forum Bureautique