Private WithEvents App As Application   ' объявляем объект Application для того, чтобы можно было отлавливать события других книг

Private Sub Workbook_Open()
        Set App = Application   ' назначаем объект Application для того, чтобы можно было отлавливать события других книг
End Sub

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
    If Wn.Caption <> Me.Name Then
        If Application.Windows(ThisWorkbook.Name).WindowState = xlNormal Then
            With ActiveWindow
                .Top = 1.75
                .Left = 835
                .Width = 606.75
                .Height = 643.5
            End With
        End If
    End If
End Sub

Application.Windows(ThisWorkbook.Name).WindowState = xlNormal