Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel case à cocher

case à cocher

3 réponses
Avatar
Manu
Bonjour,

est t'il possible de demander dans un Private Sub Workbook_Open()
de décocher toutes les cases situé dans la feuil. meme si cette parti est
protegé

Merci
Manu
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J
Bonjour
peut-être en déprotégeant puis reprotégeant ta feuille :

Private Sub Workbook_Open()
ActiveSheet.Unprotect
'ton code
ActiveSheet.Protect
End Sub

Bon courage
J@@

Manu wrote:
Bonjour,

est t'il possible de demander dans un Private Sub Workbook_Open()
de décocher toutes les cases situé dans la feuil. meme si cette parti est
protegé

Merci
Manu





Avatar
AV
A mettre dans le module de Thisworkbook (supprimer la partie non valide) :

Private Sub Workbook_Open()
'objets barre formulaire
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
Next
End With
'objets barre controles
With Sheets("Feuil1")
For Each cc In .OLEObjects
If cc.Name Like "CheckBox*" Then .OLEObjects(cc.Name).Object.Value =
False
Next
End With
End Sub

AV
Avatar
Manu
C'est nickel Chrome.

Merci

"AV" a écrit dans le message de news:

A mettre dans le module de Thisworkbook (supprimer la partie non valide) :

Private Sub Workbook_Open()
'objets barre formulaire
With Sheets("Feuil1")
For Each CheckBoxes In .CheckBoxes
CheckBoxes.Value = xlOff
Next
End With
'objets barre controles
With Sheets("Feuil1")
For Each cc In .OLEObjects
If cc.Name Like "CheckBox*" Then .OLEObjects(cc.Name).Object.Value
= False
Next
End With
End Sub

AV