Code Macro autorisant insertion de coms sur celulle verouillé
Fermé
bouhaben79
Messages postés
7
Date d'inscription
vendredi 24 février 2012
Statut
Membre
Dernière intervention
15 novembre 2013
-
11 mars 2013 à 16:32
bouhaben79 Messages postés 7 Date d'inscription vendredi 24 février 2012 Statut Membre Dernière intervention 15 novembre 2013 - 12 mars 2013 à 15:05
bouhaben79 Messages postés 7 Date d'inscription vendredi 24 février 2012 Statut Membre Dernière intervention 15 novembre 2013 - 12 mars 2013 à 15:05
A voir également:
- Code Macro autorisant insertion de coms sur celulle verouillé
- Code ascii de a - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
- Touche insertion clavier - Guide
2 réponses
scinarf
Messages postés
1119
Date d'inscription
samedi 18 novembre 2006
Statut
Membre
Dernière intervention
25 septembre 2014
252
11 mars 2013 à 16:34
11 mars 2013 à 16:34
Une solution simple serait que dans votre deuxième macro (celle qui insère les commentaires) vous placiez unprotect "mdp" en début et un protect "mdp" true,true,true à la fin
bouhaben79
Messages postés
7
Date d'inscription
vendredi 24 février 2012
Statut
Membre
Dernière intervention
15 novembre 2013
12 mars 2013 à 15:05
12 mars 2013 à 15:05
votre proposition est de faire une seconde macro?
A ce jour j'ai la macro ci-dessous
ActiveSheet.Unprotect ("mdp")
ActiveCell.Offset(-1, 0).EntireRow.Copy
iR = ActiveCell.Row
Selection.Copy
Selection.Insert Shift:=xlUp
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants).ClearContents
Rows("70:70").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Protect ("mdp"), AllowFormattingCells:=True
Range("A23").Select
End Sub
A ce jour j'ai la macro ci-dessous
ActiveSheet.Unprotect ("mdp")
ActiveCell.Offset(-1, 0).EntireRow.Copy
iR = ActiveCell.Row
Selection.Copy
Selection.Insert Shift:=xlUp
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants).ClearContents
Rows("70:70").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Protect ("mdp"), AllowFormattingCells:=True
Range("A23").Select
End Sub