Discussion :

[gaihdriah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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, ...)

[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?

++

[aalex_38]

Bonjour,

Ici une discussion qui pourrait t'interesser !

Tu dis

[Godzestla]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Godzestla]

Re,
je doute que ce genre de super macro existe, car alors elle se lancerait elle-meme.

[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 ...

[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