[VBA] Verrouillage d'un multipage

Bonjour la communauté, j'ai un multipage avec ...plusieurs page (jusque là rien d'anormal)

Lorsque je valide mes données de la page 1 par un bouton je passe sur la page 2.

Je souhaite que la page 1 après validation se retrouve "Locked", et donc impossibilité pour quiconque d'y modifier les informations préalablement renseignées.

Solution 1: masquer cette page une fois valider mais pas très ergonomique car pour remplir la page 2, 3 et 4 de ce multipage l'utilisateur peut avoir recourt à des infos de la page 1

Solution 2: verrouiller ce multipage, tout en le laissant apparent dans les onglets du multipage (ce qui permet de pouvoir le consulter mais pas le modifier)

Déjà est ce réalisable?

Bonjour,

Pour verrouiller votre page 1, il suffit de verrouiller tous les contrôles modifiables qu'il contient. Exemple de code :

    Dim ctrl As control

For Each ctrl In Me.Multipage1.Pages(0).Controls
    If Not TypeOf ctrl Is MSFORMS.Label Then ctrl.Locked = True
Next ctrl

Hello merci pour ton retour, mais je n'ai pas la syntaxe locked avec le ctrl.

If Not TypeOf ctrl Is MSFORMS.Label Then ctrl.??

Hello merci pour ton retour, mais je n'ai pas la syntaxe locked avec le ctrl.

Normal car ctrl est un control ActiveX générique mais la propriété fonctionne.

Salut Thev, je ne suis pas un expert VBA.

Lorsque je lance mon code j'ai une erreur

Alors essayer ceci

    Dim ctrl As msforms.control

    For Each ctrl In Me.Assistance1.Pages(0).Controls
        If TypeOf ctrl Is msforms.ComboBox Then ctrl.Locked = True
        If TypeOf ctrl Is msforms.TextBox Then ctrl.Locked = True
        If TypeOf ctrl Is msforms.CommandButton Then ctrl.Locked = True
        If TypeOf ctrl Is msforms.CheckBox Then ctrl.Locked = True
    Next ctrl

Thev je ne vois pas ta réponse il semblerait que ce soit un message vide

C'est apparu 7 minutes après

merci je teste

message rempli.

Super cela fonctionne

Un grand merci