Отменить все флажки из книги Excel с помощью макроса VBA

Question

У меня есть книга с более чем 100 флажками.

Они флажков

управления формы Я хотел бы, чтобы отменить выбор всех их сразу

, который устанавливается их ложь.

Sub clearcheck() 
ActiveSheet.CheckBoxes.Value = False 
End Sub 

Это работает для активного листа. Я бы хотел, чтобы этот код был для всей рабочей книги.

Я пробовал искать код и возиться с очисткой флажков, но я не мудрее.

Я был бы очень признателен, если кто-нибудь может вести меня

спасибо

Answer 1

Если у вас есть OLEObject стиль (ActiveX) флажков, то:

Sub terranian() 
    Dim o As Object 
    For Each o In ActiveSheet.OLEObjects 
     If InStr(1, o.Name, "CheckBox") > 0 Then 
      o.Object.Value = False 
     End If 
    Next 
End Sub 

EDIT1:

Если они формирует флажки, то будут работать следующие:

Sub clearcheck() 
    Dim sh As Worksheet 
    For Each sh In Sheets 
     On Error Resume Next 
      sh.CheckBoxes.Value = False 
     On Error GoTo 0 
    Next sh 
End Sub