Açıklama kutusunun opsiyonel kapanması

[cliff]

Merhaba, bazı hücrelerimde uzun açıklamalar ekli. Mouse'u ilgili hücreden kaydırınca doğal olarak açıklama penceresi hemen kapanıyor. Açıklamalar alt sayfaya sarktığı için sonuna kadar okuyamamak bir yana, açıklama kutusu açıkken de bazı işlemler yapmam gerekebilir.

Açıklama kutusunun otomatik kapanmasını nasıl engelelyebilirim? Örneğin ilgili hücreye tıklayınca açılması, bir daha aynı hücreye tıklamadıkça kapanmaması şeklinde veya buna benzer bir yol var mı?

 

[alicimri]

1- Açıklama olan hücrede sağ tıklayın Açıklamayı göstere tıklayın sabitlenecek, tekrar aynı hücrede sağ tıklayıp gizleyi işaretleyin veya
2- Aşağıdaki kodları ilgili sayfanın kod modülüne yapıştırın. Açıklama bulunan hücrenin üzerinde çift tıklayın açıklama sabit kalacaktır, aynı hücrede tekrar çift tıklarsanız gizlenecektir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If ActiveCell.Comment.Visible = False Then
    ActiveCell.Comment.Visible = True
    Else
    ActiveCell.Comment.Visible = False
    End If
End Sub