如何在取消隱藏行或列時觸發

Question

某些用戶隱藏了列/行，並且在保存工作簿之前忘記取消隱藏它們。我想趕上那與

Sub ReInvisible() 
    ThisWorkbook.Worksheets(1).UsedRange.EntireRow.Hidden = False 
    ThisWorkbook.Worksheets(1).UsedRange.EntireColumn.Hidden = False 
End Sub 

上保存事件與全部取消隱藏列/行這工作得很好，但我想告訴所有的隱藏的列/行現在是可見的用戶。現在我正在尋找一種方法來觸發取消隱藏列/行，因此只要至少有一列或一行變爲可見，我想要觸發一個消息框。

在VB.NET我會嘗試寫我自己的event，但在VBA我不知道我怎麼能做一個解決方法。有人有想法嗎？

Answer 1

像這樣的東西應該這樣做：

Sub ReInvisible() 
    Dim lVisColCount   As Long 
    Dim lVisRowCount   As Long 
    With ThisWorkbook.Worksheets(1).UsedRange 
     lVisColCount = .Rows(1).SpecialCells(xlCellTypeVisible).Count 
     lVisRowCount = .Columns(1).SpecialCells(xlCellTypeVisible).Count 
     .EntireRow.Hidden = False 
     .EntireColumn.Hidden = False 
     If .Rows(1).SpecialCells(xlCellTypeVisible).Count <> lVisColCount Then MsgBox "Columns unhidden" 
     If .Columns(1).SpecialCells(xlCellTypeVisible).Count <> lVisRowCount Then MsgBox "Rows unhidden" 
    End With 
End Sub