cacher caractères

[BAILAOR]

bonjour,

je souhaite cacher des caractères mais que l'on puisse les voir,
j'ai donc mis des *** et créer un commentaire avec les infos, j'ai protégé la feuille avec l'impossibilité de modifier son contenu, sauf que si l'on passe la souris sur la cellule, le commentaire s'affiche, je pensais qu'en protégeant la feuille, on avait accès à rien, et qu'il fallait rentrer le mot de passe pour y avoir accès
avez-vous une solution ?

les caractères que je souhaite cacher sont les mots de passe des installations clients, et je souhaite les visualiser via un mot de passe ou autre, mais quelque chose de pratique.

cdt

 

[Calvus]

Re : cacher caractères

Bonjour,

Peut être peux tu voir ici.

Ou ici.

cdt

 

[BAILAOR]

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

 

[phlaurent55]

Re : cacher caractères

Bonjour à tous

voir fichier joint

à+
Philippe

 

[Calvus]

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

 

[BAILAOR]

Re : cacher caractères

ok parfait, mais comment fait-on ?

 

[Calvus]

Re : cacher caractères

Re,

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

Cdt

 

[BAILAOR]

Re : cacher caractères

désolé mais ça marche pas

 

[BAILAOR]

Re : cacher caractères

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

 

[Calvus]

Re : cacher caractères

....De rien !

 

[BAILAOR]

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

 

[tototiti2008]

Re : cacher caractères

Bonjour à tous,

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

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)

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

 

[phlaurent55]

Re : cacher caractères

Re bonjour à tous,

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

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

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

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

 

[Calvus]

Re : cacher caractères

Re,

Tototiti 😎

Merci

 

[BAILAOR]

Re : cacher caractères

parfait, tout fonctionne

merci à tous