Code Macro autorisant insertion de coms sur celulle verouillé
bouhaben79
Messages postés
7
Statut
Membre
-
bouhaben79 Messages postés 7 Statut Membre -
bouhaben79 Messages postés 7 Statut Membre -
Bonjour,
je bloque sur point!!! j'ai un fichier dans lequel j'ai créé des macros pour insérer/supprimer des lignes en auto. Ce fichier comportant plein de formules différentes j'ai alors décidé de les verrouiller.
A ce jour j'ai bien inclus unprotect "mdp" -> protect "mdp" et cela fonctionne parfaitement.
Maintenant ce que je souhaite avoir c'est la possibilité de mettre des commentaires dans les cellules.
Quand je fais manuellement "protection, cocher (modifier les objets)" cela fonctionne mais dès que je lance la macro, ça ne fonctionne plus y-aurait-il un code type Allowformula...=True juste pour insérer des commentaires et toujours protéger les formules.
Merci d'avance
je bloque sur point!!! j'ai un fichier dans lequel j'ai créé des macros pour insérer/supprimer des lignes en auto. Ce fichier comportant plein de formules différentes j'ai alors décidé de les verrouiller.
A ce jour j'ai bien inclus unprotect "mdp" -> protect "mdp" et cela fonctionne parfaitement.
Maintenant ce que je souhaite avoir c'est la possibilité de mettre des commentaires dans les cellules.
Quand je fais manuellement "protection, cocher (modifier les objets)" cela fonctionne mais dès que je lance la macro, ça ne fonctionne plus y-aurait-il un code type Allowformula...=True juste pour insérer des commentaires et toujours protéger les formules.
Merci d'avance
A voir également:
- Code Macro autorisant insertion de coms sur celulle verouillé
- Code ascii - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
2 réponses
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
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