Is this what you are looking for?

library(tidyverse)

data %>% 
  select(
    ., 
    - any_of(
      select(., matches('^cx[12]')) %>% keep(~ sum(.x) == 0) %>% names()
    )
  )