Option Explicit

Private m_oFlagCheckActiveWindow As Boolean

Public Property Let FlagCheckActiveWindow(bValue As Boolean)
    m_oFlagCheckActiveWindow = bValue
End Property
Public Property Get FlagCheckActiveWindow() As Boolean
    FlagCheckActiveWindow = m_oFlagCheckActiveWindow
End Property

Private Sub Workbook_Open()
    m_oFlagCheckActiveWindow = False
    
    PivotObj.EnableDrilldown = False
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim oPivotDataRange As Excel.Range
    Dim oClickRange As Excel.Range
    
    Set oPivotDataRange = mdlPivotEdit.PivotDataRange()
    If (oPivotDataRange Is Nothing) Then
        Cancel = False
        Exit Sub
    End If
    
    If Not (Sh Is oPivotDataRange.Worksheet) Then
        Cancel = False
        Exit Sub
    End If
    
    Set oClickRange = Application.Intersect(oPivotDataRange, Target)
    If (oClickRange Is Nothing) Then
        Cancel = False
        Exit Sub
    End If
    
    mdlPivotEdit.DoEdit oClickRange.Cells(1)
     
    Cancel = True
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If Not FlagCheckActiveWindow Then Exit Sub
    
    If (Right(Wn.Caption, 2) = ":2" Then
        Windows(Left(Wn.Caption, Len(Wn.Caption) - 1) & "1".Close
        ActiveWindow.WindowState = xlMaximized
        
        PivotObj.RefreshTable
    End If
    
    FlagCheckActiveWindow = False
End Sub