exécution de macros dans protégée

Version imprimable

bonjour,

comment peux on faire pour que, dans une feuille protégé (sauf deux ou trois cellules), l'exécution des macros puis malgré tout ce faire.

exemple:

j'ai une macro qui effectue des copier coller.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub copier_coller_F()
'
' copier_coller_F Macro
' Macro enregistrée le 02/02/2009 par Administrateur
'
 
'
    Range("B8").Select
    Selection.Copy
    Range("D31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L31").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

comment je peux faire pour que les cellules dans lesquel je doit taper ne soit pas protégé (facile) mais pour que l'exécution de la macro puisse malgres tout se réaliser.

merci d'avance

11/02/2009, 13h41
Fvandermeulen
Bonjour,
A mon avis le plus simple sera de déprotéger ta feuille au début de la macro pour remettre la protection à la fin
Code:

1 2 3 Sheets("TaFeuillle").Unprotect "MotDePasse" ... Sheets("TaFeuille").protect "MotDePasse"
Voir l'aide en ligne pour définir ce qui sur la feuille doit être 'bloqué' (cellule, objet, ...)
11/02/2009, 14h11
gaihdriah

yeah,

ca marche nikel. un peu fastidieu car j'ai une bonne grosse sinquantaine de macro différentes. mais ca marche.

pour l'info, n'existe t'il pas une ligne de code qui effectue cette opération (dé-proteger et proteger) a chaque fois qu'une macro est activée?

++
11/02/2009, 14h29
aalex_38

Bonjour,

Ici une discussion qui pourrait t'interesser !

Tu dis

Bonjour,

Citation:

pour l'info, n'existe t'il pas une ligne de code qui effectue cette opération (dé-proteger et proteger) a chaque fois qu'une macro est activée?

Pas si simple que cela car il faudrait que le système ai assez d'intelligence pour savoir quand déprotéger et quand reprotéger les cellules.

Pour ce faire, j'utilise 2 techniques différentes :
Soit
1) Avant mes macros (ou plutot en début de traitement global) je déprotège toutes mes feuilles et après je reprotège toutes celles qui doivent l'être (car certaines restent parfois non bloquées pour le besoin du traitement)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'lock For Sheet_number = 1 To Sheets.Count if sheets(Sheet_Number).Name <> "#config" then Sheets(Sheet_number).Protect Password:="TonPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True endif next 'unlock For Sheet_number = 1 To Sheets.Count Sheets(Sheet_number).Unprotect Password:="TonPassword" Next Sheet_number
2) Avant le traiter une feuille, je la déprotège et la reprotège après.

'Lock
Code:

1 2 3 4 5 6 7 8 Sub Z_File_Lock_1(Sel_Sheet As String) Select Case Sel_Sheet Case "#config" 'Let This Sheet Open Case Else Sheets(Sel_Sheet).Protect Password:="TonPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True End Select End Sub
'unlock
Code:

1 2 3 Sub Z_File_Unlock_1(Sel_Sheet As String) Sheets(Sel_Sheet).Unprotect Password:="TonPassword" End Sub

11/02/2009, 15h04
gaihdriah

mm ok, je vois a peu pres ce que tu veux dire.

le fait est que je n'ai qu'une feuile. c'est une sorte de menu (nommé formulaire)

toues les autres feuilles sont masquées. les futur utilisateur du fichier ne sont pas des cracks, et ne savent pas se servir d'excel.

mon objectif est attein dans le sens ou je déprotege la feuille avant l'exécution de chaque macro. puis je la reprotege a la fin de l'exécution de la macro.

je m'etait dis qu'il etait peux etre possible de n'avoir qu'une macro, ou un code, qui s'exécute a chaque fois qu'une macro est lancé. cette super macro dévérouillerai la feuille uniquement lors de l'exécution des macros.

je sais pas si ca existe.
11/02/2009, 15h22
Godzestla

Re,
je doute que ce genre de super macro existe, car alors elle se lancerait elle-meme. :aie:
11/02/2009, 15h38
gaihdriah

ok bon bah tant pis.

la solution que j'ai me convient. c'est juste que je trouvai ca un peu fastidieu quand on a plus de 50 macro différente.

mais merci pour ta réponse.

a bientot pour de nouvelles aventures ...
16/02/2009, 10h46
pgz

Bonjour.

Ne pas oublier que l'on peut protéger les feuilles par code, méthode .Protect. Si on a précisé UserInterfaceOnly = True, On peut alors faire beaucoup de chose dans les feuilles sans les déprotéger.

Bonne journée,

PGZ