Je voudrais proteger des cellulles qui contiennent des formules qui
doivent rester secretes. j'ai essay=E9 le verroillage mais les cellules
restent copiables dans d'autres feuilles et visualis=E9s apres
merci de votre reponse.
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
Tu exécutes cette macro une fois.
Et tu prends soin d'adapter le nom de la feuille dans la procédure.
'-------------------------- Sub MasquerLesformules() On Error Resume Next With Worksheets("Feuil1") ' Adapte le nom de la feuille .Unprotect '"motDePasse" si nécessaire .Cells.Locked = False With .UsedRange.SpecialCells(xlCellTypeFormulas) .Cells.Locked = True .Cells.FormulaHidden = True End With .Protect "MotDePasse" 'si nécessaire End With End Sub '--------------------------
a écrit dans le message de news:
Je voudrais proteger des cellulles qui contiennent des formules qui doivent rester secretes. j'ai essayé le verroillage mais les cellules restent copiables dans d'autres feuilles et visualisés apres merci de votre reponse.
Tu exécutes cette macro une fois.
Et tu prends soin d'adapter le nom de la feuille dans
la procédure.
'--------------------------
Sub MasquerLesformules()
On Error Resume Next
With Worksheets("Feuil1") ' Adapte le nom de la feuille
.Unprotect '"motDePasse" si nécessaire
.Cells.Locked = False
With .UsedRange.SpecialCells(xlCellTypeFormulas)
.Cells.Locked = True
.Cells.FormulaHidden = True
End With
.Protect "MotDePasse" 'si nécessaire
End With
End Sub
'--------------------------
<ktexchanger@gmail.com> a écrit dans le message de news:
1192402905.248589.47870@z24g2000prh.googlegroups.com...
Je voudrais proteger des cellulles qui contiennent des formules qui
doivent rester secretes. j'ai essayé le verroillage mais les cellules
restent copiables dans d'autres feuilles et visualisés apres
merci de votre reponse.
Et tu prends soin d'adapter le nom de la feuille dans la procédure.
'-------------------------- Sub MasquerLesformules() On Error Resume Next With Worksheets("Feuil1") ' Adapte le nom de la feuille .Unprotect '"motDePasse" si nécessaire .Cells.Locked = False With .UsedRange.SpecialCells(xlCellTypeFormulas) .Cells.Locked = True .Cells.FormulaHidden = True End With .Protect "MotDePasse" 'si nécessaire End With End Sub '--------------------------
a écrit dans le message de news:
Je voudrais proteger des cellulles qui contiennent des formules qui doivent rester secretes. j'ai essayé le verroillage mais les cellules restent copiables dans d'autres feuilles et visualisés apres merci de votre reponse.