Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Mike,
Cette macro va protéger toutes les cellules contenant des formules tout en permettant d'intervenir sur les autres cellules.
tu ouvres la fenêtre de l'éditeur de code : Alt + F11 tu insères un module standard, et tu copies le code suivant
dans la procédure, tu dois adapter le nom de la feuille : '------------------------------------------------- Sub test() On Error Resume Next Feuil1.EnableSelection = xlUnlockedCells With Worksheets("Feuil1") 'Nom Feuille à adapter .Unprotect 'Mot de passe si nécessaire With .Cells .Locked = False With .SpecialCells(xlCellTypeFormulas) .Locked = True End With End With .EnableSelection = xlUnlockedCells .Protect 'Mot de passe si nécessaire End With End Sub '------------------------------------------------------
"mike15" a écrit dans le message de groupe de discussion : Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit effacer?
Bonjour Mike,
Cette macro va protéger toutes les cellules contenant des formules
tout en permettant d'intervenir sur les autres cellules.
tu ouvres la fenêtre de l'éditeur de code : Alt + F11
tu insères un module standard, et tu copies le code suivant
dans la procédure, tu dois adapter le nom de la feuille :
'-------------------------------------------------
Sub test()
On Error Resume Next
Feuil1.EnableSelection = xlUnlockedCells
With Worksheets("Feuil1") 'Nom Feuille à adapter
.Unprotect 'Mot de passe si nécessaire
With .Cells
.Locked = False
With .SpecialCells(xlCellTypeFormulas)
.Locked = True
End With
End With
.EnableSelection = xlUnlockedCells
.Protect 'Mot de passe si nécessaire
End With
End Sub
'------------------------------------------------------
"mike15" <mike15@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 1D2F81A1-9A5D-4BD7-9CAC-84162BFF6A33@microsoft.com...
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit
effacer?
Cette macro va protéger toutes les cellules contenant des formules tout en permettant d'intervenir sur les autres cellules.
tu ouvres la fenêtre de l'éditeur de code : Alt + F11 tu insères un module standard, et tu copies le code suivant
dans la procédure, tu dois adapter le nom de la feuille : '------------------------------------------------- Sub test() On Error Resume Next Feuil1.EnableSelection = xlUnlockedCells With Worksheets("Feuil1") 'Nom Feuille à adapter .Unprotect 'Mot de passe si nécessaire With .Cells .Locked = False With .SpecialCells(xlCellTypeFormulas) .Locked = True End With End With .EnableSelection = xlUnlockedCells .Protect 'Mot de passe si nécessaire End With End Sub '------------------------------------------------------
"mike15" a écrit dans le message de groupe de discussion : Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit effacer?
FS
Bonsoir,
Pour faire au plus simple, OutilsProtection Même sans mot de passe, si la cellule qui contient la formule est verrouillée elle ne pourra être modifiée, ce qui protège au moins des manoeuvres hasardeuses involontaires ou non.
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
mike15 a écrit :
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit effacer?
Bonsoir,
Pour faire au plus simple, OutilsProtection
Même sans mot de passe, si la cellule qui contient la formule est
verrouillée elle ne pourra être modifiée, ce qui protège au moins des
manoeuvres hasardeuses involontaires ou non.
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
mike15 a écrit :
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit
effacer?
Pour faire au plus simple, OutilsProtection Même sans mot de passe, si la cellule qui contient la formule est verrouillée elle ne pourra être modifiée, ce qui protège au moins des manoeuvres hasardeuses involontaires ou non.
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
mike15 a écrit :
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit effacer?
