macro sur feuilles protégées

ERIC S

XLDnaute Barbatruc

• 14 Septembre 2006

• #2

Re : macro sur feuilles protégées

Bonjour

regarde l'aide sur protect

1/ possibilité d'utiliser

sheets("toto").protect userinterfaceonly:=true

permet les accès par macro

2/ ton pb est'il que tu protèges avec pour option d'interdire l'accès aux cellules verrouillées (fonctionne sous 2003, pas sous 97, sous 2000?)?

l'enregistreur de macro donne :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

 

Vote positif 0 Vote négatif

L

lumat83

Guest

• 14 Septembre 2006

• #3

Re : macro sur feuilles protégées

En réalité, mon classeur contient une quarantaine de feuilles et 3 macros. C'est pour cette raison que je souhaite utilisé protect plutôt que userinterfaceonly.
Pour ta question 2/, oui c'est exactement ça, l'interdiction de l'accès aux cellules verrouillées.

Même avec ce que donne l'enregistreur, après sauvegarde l'option saute

 

Dernière modification par un modérateur: 14 Septembre 2006

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 14 Septembre 2006

• #4

Re : macro sur feuilles protégées

re

donc j epense qu'après ton protect il faut ajouter

ActiveSheet.EnableSelection = xlUnlockedCells

A tester

 

Vote positif 0 Vote négatif

L

lumat83

Guest

• 14 Septembre 2006

• #5

Re : macro sur feuilles protégées

Ca ne marche pas 🙁 , ni avant, ni après.

Du moment que j'effectue une sauvegarde, l'option d'interdiction d'accès aux cellules verrouillées saute. Même avec ce que donne l'enregistreur 😕

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 14 Septembre 2006

• #6

Re : macro sur feuilles protégées

re

joins un bout de fichier allégé (1 feuille - données bidons - mais toutes les macros)

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 14 Septembre 2006

• #7

Re : macro sur feuilles protégées

re

fichier test

 

Pièces jointes

• accesnonverrouillees.zip

  9.7 KB · Affichages: 39

Vote positif 0 Vote négatif

L

lumat83

Guest

• 14 Septembre 2006

• #8

Re : macro sur feuilles protégées

Ok, je le joins.

Le bouton est une macro qui inscrit "maladie" en rouge

La feuille est verrouillée sans mot de passe.

Selectionne la cellule B5, clique sur le bouton, le mot "maladie" s'inscrit dans B5. A ce stade, les autres cellules restent innacessibles.
Sauvegardes et quitte. En réouvrant le classeur, tu remarqueras que toutes les cellules sont à nouveau accessibles 🙁

 

Pièces jointes

• Planning FES Prov.xls

  48.5 KB · Affichages: 74
• Planning FES Prov.xls

  48.5 KB · Affichages: 77
• Planning FES Prov.xls

  48.5 KB · Affichages: 80

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 14 Septembre 2006

• #9

Re : macro sur feuilles protégées

re

j'ai l'impression que tout fonctionne bien 😕

quand tu réouvres ton ficher, déprotèges la feuille, reprotège et regarde les options proposées (accès cellules verrouillées inactif normalement)

quelle version XL?

 

Vote positif 0 Vote négatif

L

lumat83

Guest

• 14 Septembre 2006

• #10

Re : macro sur feuilles protégées

😱 Chez moi c'est actif

Ma version : 2002 SP3

J'ai le même problème avec ton exemple. Attention, je précise bien que toutes les cellules verrouillées sont selectionnables. Mais elles ne sont pas modifiables effectivement. mais mon but est qu'elles ne soient même pas sélectionnables.

 

Dernière modification par un modérateur: 14 Septembre 2006

Vote positif 0 Vote négatif

fredh

XLDnaute Occasionnel

• 14 Septembre 2006

• #11

Re : macro sur feuilles protégées

Bonjour le fil

Personelement je me suis fait un bouton qui enleve la protection de feuille sur toute les feuille du fichier.
Un bouton pour proteger toute les feuille
Un bouton pour enlever la protection de classeur
Un bouton pour proteger le classeur

Ensuite suivant mes apli ou macro j'appele mes macros...

Dans un module :

Code:

Option Explicit
 
 
Sub Protection_Classeur_ON()
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
 
 
Sub Protection_Classeur_OFF()
ActiveWorkbook.Unprotect
End Sub
 
 
Sub Protection_feuille_OFF()
Org_Sheet = ActiveSheet.Name 'memorisation de la feuille de depart
Org_cell = ActiveCell.Address 'memorisation de la celulle de depart
For Each sh In Sheets 'Fred
    If sh.Visible = True Then 'seulement les feuille visible
        sh.Select
        sh.Unprotect
    End If
Next sh
Sheets(1).Select
Sheets(Org_Sheet).Select
Range(Org_cell).Select
End Sub
 
 
Sub Protection_feuille_ON()
Org_Sheet = ActiveSheet.Name
Org_cell = ActiveCell.Address
'Fred ActiveSheet.Select  'Fred cela permet de deselectionner le groupage
'Fred ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
For Each sh In Sheets 'fred
    If sh.Visible = True Then
        sh.Select
        sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
Next sh
Sheets(1).Select
Sheets(Org_Sheet).Select
Range(Org_cell).Select
End Sub

Puis dans un autre module

Code:

Public Org_Sheet As String, Org_cell As String
Public sh As Worksheet

 

Dernière édition: 14 Septembre 2006

Vote positif 0 Vote négatif

L

lumat83

Guest

• 14 Septembre 2006

• #12

Re : macro sur feuilles protégées

Oui, mais le problème est que ce n'est pas moi qui vais utiliser mon classeur. La personne qui le manipuleras ne connait rien à tout ça 😛 . C'est pourquoi j'essaie de placer un maximum d'automatismes.

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 14 Septembre 2006

• #13

Re : macro sur feuilles protégées

Bonjour @ tous,

@ fredh : et ces macros tu peux les utiliser sur TOUS tes fichiers xls ou seulement sur celui où est le code ?

 

Vote positif 0 Vote négatif

fredh

XLDnaute Occasionnel

• 14 Septembre 2006

• #14

Re : macro sur feuilles protégées

rebonsoir

Perso je stocke ces module dans un fichier excell qui est cacher (menu fenetres --> masquer). Ce fichier excell je le stocke dans "c:\Program Files\Microsoft Office\OFFICE11\XLSTART\" ce qui fait que le fichier sera lancer a chaque demarrage de excell sans meme que quelqu'un sans apercoive.

Cela est valable seulement pour ta becane ou les becane ou tu mettra le fichier dans xlstart.
L'avantage est que toi tu pourras proteger deproteger tres rapidement.
De plus sur les autres becane les utilisateur peuvent naviguer avec Tab sur les celulle non proteger (bien sur tes fichier finaux sont proteger (feuille et classeur) sauf les celulles qui sont destiner a etre modifier)



Un autre moyen plus lourd celui la c'est de stocker les macros dans chaque fichier et de creer une barre d'outil associer a chaque fichier.

 

Vote positif 0 Vote négatif