Macro for hiding and unhiding Comments.

[Newbienew]

I am looking to a macro that will allow me to use the transaction code to hide and unhide cell comments. I have the comments displayed but want to make a button that will hide them, much like a help button. In addition, I also need to make the same macro with the same purpose but able to work with a unlock and lock aspect to the button.

Follow up question, do macro coding make an excel workbook larger in size?

Thank you for your help in advance

 

[mrshl9898]

Re: Marco for hiding and unhiding Comments.

They do increase size, but not noticeably.

Here's how to turn comments on/off (unhide/hide)

Sub showcomments()


'turn on
       Application.DisplayCommentIndicator = xlCommentAndIndicator
       
'turn off
       Application.DisplayCommentIndicator = xlNoIndicator


End Sub

Not following the lock/unlock aspect.

 

[Newbienew]

Re: Marco for hiding and unhiding Comments.

I attempted you use the code but the comments disappear but never return. I am very horrible and doing these things on the first try. I did a circle shape for my button and added it as a macro.

 

[mrshl9898]

Re: Marco for hiding and unhiding Comments.

Well the macro as is shows then hides them, so it worked (they're still there by the way, the markers are also removed so they look gone).

Maybe try 2 macros, 1 to hide, 1 to unhide.

Sub hidecomments()

       Application.DisplayCommentIndicator = xlNoIndicator

[FONT=Verdana]End Sub[/FONT]

Sub showcomments()

       Application.DisplayCommentIndicator = xlCommentAndIndicator
       
E[FONT=Verdana]nd Sub[/FONT]

 

[Newbienew]

Re: Marco for hiding and unhiding Comments.

Separately it works great I will use this method in the nearing future. If its possible to make it toggle between the two with one image or shape. As a help button?

 

[Rick Rothstein]

Re: Marco for hiding and unhiding Comments.

If its possible to make it toggle between the two with one image or shape. As a help button?

Try assigning this macro to your image or shape...

Sub ToggleComments()
  If Application.DisplayCommentIndicator = xlCommentAndIndicator Then
    Application.DisplayCommentIndicator = xlNoIndicator
  Else
    Application.DisplayCommentIndicator = xlCommentAndIndicator
  End If
End Sub

 

[Newbienew]

Re: Marco for hiding and unhiding Comments.

@mrshl9898 Thank you for your help. I will be using your code on another project I have, Thank you so much for the code
@Rick Rothstein Thank you so much for your assistance. This code works great for the project I am working on. Thank you greatly