Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A11"), Range("A12"))) Is Nothing Then
  Dim arr()
  Application.ScreenUpdating = False
  arr = SelectedArray(SelectedSheets)
  With Me
    .Select
    .Unprotect Password:="0858"
    If Target.Address(0, 0) = "A11" Then
      Cancel = True
      .Outline.ShowLevels 1 - .Rows(2).Hidden
    End If
    If Target.Address(0, 0) = "A12" Then
      Cancel = True
      If .FilterMode Then
        .Range("B11:G" & .Rows.Count).AutoFilter Field:=1
      Else
        .Range("B11:G" & .Rows.Count).AutoFilter Field:=1, Criteria1:="<>"
      End If
    End If
    .Protect Password:="0858"
  End With
  Worksheets(arr).Select
End If
Application.ScreenUpdating = True
End Sub

Private Function SelectedArray(SelectedSheets)
Dim arr(), I&
Dim iSh As Worksheet
For Each iSh In ThisWorkbook.Windows(1).SelectedSheets
  I = I + 1
  ReDim Preserve arr(1 To I)
  arr(I) = iSh.Name
Next
SelectedArray = arr
End Function