cacher caractères

Calvus

XLDnaute Barbatruc

• 30 Octobre 2012

• #2

Re : cacher caractères

Bonjour,

Peut être peux tu voir ici.

Ou ici.

cdt

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #3

Re : cacher caractères

bonjour,

cela ne fait pas ce je veux, j'ai utilisé les commentaires car j'ai cette idée, mais si vous avez une autre solution je suis preneur

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Octobre 2012

• #4

Re : cacher caractères

Bonjour à tous

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  18.2 KB · Affichages: 66
• 111.xlsm

  18.2 KB · Affichages: 68
• 111.xlsm

  18.2 KB · Affichages: 69

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 30 Octobre 2012

• #5

Re : cacher caractères

Bonjour,


phlaurent55, très intéressant. Comment fais tu si tu veux appliquer ce code à tout le classeur ? Doit on l'écrire dans chaque module de feuille, ou y a t-il un autre moyen ?

Merci

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #6

Re : cacher caractères

ok parfait, mais comment fait-on ?

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 30 Octobre 2012

• #7

Re : cacher caractères

Re,

alt + F11 pour ouvrir vbe, et ensuite coller le code en prenant exemple sur le fichier de phlaurent.

Cdt

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #8

Re : cacher caractères

désolé mais ça marche pas

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #9

Re : cacher caractères

c'est bon j'avais oublié de modifié les cases

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 30 Octobre 2012

• #10

Re : cacher caractères

....De rien !

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #11

Re : cacher caractères

par contre lorsque j'ouvre mon fichier les macros sont désactivées et donc on peut voir les commentaires, comment laisser les macros actives

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2012

• #12

Re : cacher caractères

Bonjour à tous,

phlaurent55, très intéressant. Comment fais tu si tu veux appliquer ce code à tout le classeur ?

Cliquez pour agrandir...

Il faut alors appliquer le code dans Thisworkbook, sur les évènements suivants :
(seules les plages A1:A5 de chaque feuille dans l'exemple, sur base de la proposition de Philippe)

Code:

Private Sub Workbook_Open()
Application.DisplayCommentIndicator = xlNoIndicator
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Sh.Range("A1:A5")) Is Nothing Then
Cancel = True
If InputBox("Entrez votre mot de passe") <> "toto" Then Exit Sub
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.DisplayCommentIndicator = xlNoIndicator
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Octobre 2012

• #13

Re : cacher caractères

Re bonjour à tous,

BAILAOR à dit:

par contre lorsque j'ouvre mon fichier les macros sont désactivées et donc on peut voir les commentaires, comment laisser les macros actives

Cliquez pour agrandir...

Ayant du m'absenter, ..........

On peut ajouter ceci (dans ThisWorkBook ) dans le but de ne pas les voir réapparaître à la prochaine ouverture

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayCommentIndicator = xlNoIndicator
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayCommentIndicator = xlNoIndicator
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 30 Octobre 2012

• #14

Re : cacher caractères

Re,

Tototiti 😎

Merci

 

Vote positif 0 Vote négatif

B

BAILAOR

Guest

• 30 Octobre 2012

• #15

Re : cacher caractères

parfait, tout fonctionne

merci à tous

 

Vote positif 0 Vote négatif