Excelシートのすべてのコメントを表示/非表示する方法（他のシートには影響しません）

Question

ボタンが必要ですアクティブなExcelシートのすべてのコメントを表示/非表示にします。私はこのソリューション（Application.DisplayCommentIndicatorを使用）を実装し、かなり満足しています。 Simple VBA Show/Hide Excel Comments problems 唯一の問題は、このソリューションがアプリケーションで開いているすべてのシートのコメントを表示/非表示にすることです。これは、他のシート（他のブック内の）に表示/非表示ボタンがないため、特に不便です。

Answer 1

私はあなたの問題の半修正をしています。ユーザーがボタンを押して、Sheet1にあるコメントを非表示にしたが、別のワークシートに切り替えることを決定した場合、すべてのコメントが再度アクティブになるとします。

問題：ユーザーがSheet1に切り替わり場合、コメントは非表示になり、ユーザーは、彼らがコメントを見たい場合は関係なく、以前の選択の再表示を押す必要があるでしょう：

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

    If Sh.Name = "Sheet1" Then 
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly 
    Else 
    Application.DisplayCommentIndicator = xlCommentAndIndicator 
    End If 

End Sub