Другим вариантом является привязка к Named range. Вы создаете именованный диапазон с областью листа, например, следующим образом: Менеджер имен Ctrl + F3
Затем вы создаете дополнительную функцию, которая позволяет проверить, существует ли такое имя и получить его значение. В зависимости от результата лист будет скрыт или нет.
Public Function bIsVisible(ByRef wksSheet As Worksheet) As Boolean
Dim bResult As Boolean
bResult = False
On Error Resume Next
bResult = Evaluate(wksSheet.Names("Visible").Value)
bIsVisible = bResult
End Function
И вот код для скрытия листов (вы можете легко добавить здесь код для защиты листа и т. Д.):
Public Sub HideUnvisible()
Dim wksSheet As Worksheet
For Each wksSheet In Worksheets
If Not bIsVisible(wksSheet) Then
wksSheet.Visible = xlSheetHidden
End If
Next wksSheet
End Sub
Попробуйте поместить прослушиватель щелчка на дочернем виде карты, например
<android.support.v7.widget.CardView
android:id="@+id/cardRight"
android:layout_width="0dp"
android:layout_height="0dp"
app:cardCornerRadius="10dp"
android:elevation="4dp"
android:layout_marginEnd="4dp"
android:layout_marginStart="4dp"
android:layout_marginTop="8dp"
app:layout_constraintBottom_toBottomOf="parent"
app:layout_constraintEnd_toEndOf="parent"
app:layout_constraintStart_toStartOf="@+id/guideline"
app:layout_constraintTop_toBottomOf="@+id/cardTop">
<LinearLayout
android:id="@+id/layRight"
android:layout_width="match_parent"
android:layout_height="match_parent"
android:weightSum="6"
android:orientation="vertical"
android:gravity="center">
<ImageView
android:layout_width="match_parent"
android:layout_height="0dp"
android:layout_weight="3"
android:src="@drawable/illustration"
android:scaleType="centerCrop"/>
</LinearLayout>
</android.support.v7.widget.CardView>
, а в своей деятельности определите linearLayout и попробуйте установить onClicklistener с помощью
.