En verrouillant les cellules et en protégeant la feuille
michdenis
Bonjour Martine,
Voici une macro pour exécuter le travail. Adapte le nom de la feuille dans la procédure
'----------------------------- Sub test()
On Error Resume Next With Worksheets("Feuil1") .Unprotect .Cells.Locked = False .Cells.SpecialCells(xlCellTypeFormulas).Locked = True .Protect Password:="toto", contents:=True End With
End Sub '-----------------------------
Salutations!
"Martine" a écrit dans le message de news: Comment puis-je protéger les formules dans un tabkeau excell ?
Bonjour Martine,
Voici une macro pour exécuter le travail.
Adapte le nom de la feuille dans la procédure
'-----------------------------
Sub test()
On Error Resume Next
With Worksheets("Feuil1")
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect Password:="toto", contents:=True
End With
End Sub
'-----------------------------
Salutations!
"Martine" <Martine@discussions.microsoft.com> a écrit dans le message de news: DD63C27E-A5FA-4DDE-A5EB-93D6327C9F8B@microsoft.com...
Comment puis-je protéger les formules dans un tabkeau excell ?
Voici une macro pour exécuter le travail. Adapte le nom de la feuille dans la procédure
'----------------------------- Sub test()
On Error Resume Next With Worksheets("Feuil1") .Unprotect .Cells.Locked = False .Cells.SpecialCells(xlCellTypeFormulas).Locked = True .Protect Password:="toto", contents:=True End With
End Sub '-----------------------------
Salutations!
"Martine" a écrit dans le message de news: Comment puis-je protéger les formules dans un tabkeau excell ?