exécution de macros dans protégée
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