sauvegarder une formule avant effacement

Le
mike15
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit
effacer?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20181951
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" discussion :
Bonjour, comment peut ton sauvegarder une formule pour éviter qu'elle soit
effacer?
FS
Le #20184161
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?


Publicité
Poster une réponse
Anonyme