Deseleziona tutti i checkbox dalla cartella di lavoro Excel con VBA Macro

Question

Ho una cartella di lavoro con oltre 100 caselle di controllo.

Sono caselle di controllo sotto forma

vorrei a tutti loro non-selezionare in una volta

che li sta impostata su false.

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

Questo funziona per il foglio attivo. Mi piacerebbe che questo codice fosse per l'intera cartella di lavoro

Ho provato a cercare il codice e a cercare di svuotare le caselle di controllo, ma non ne sono più saggio.

sarei davvero grato se qualcuno potesse guidarmi

grazie

Answer 1

Se hai OLEObject stile (ActiveX) caselle di controllo, quindi:

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:

Se sono moduli caselle, quindi il seguente funzionerà:

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