Lock and Hide Sheets based on Tab Color

Hello,

I'm looking for a macro solution to "Close" (Hide) Sheets based on the Color of the tab.

In a workbook with colored tabs, where BLACK tabs are "Raw Data", GREEN are Graphical tabs, etc., I am intending for the macro, when activated, will (for example) lock and hide all RED tabs.

I thought that this would work:

 With ActiveWorkbook.Sheets
       If ThemeColor = xlThemeColorLight1 Then
                '.TintAndShade = 0
            ActiveWorkbook.Sheets.Visible = False
        End If
    End With

...but, it does nothing. Any ideas on how to make this work?