Discussion :

[Marc31]

Bonjour à tous,

J'aimerais savoir si c'est possible de bloquer des onglets sur excel en vba.
Je souhaites que lorsque plusieurs champs soient remplies, cela me bloque tous les onglets du classeur sauf l'onglet resultat.
Merci pour votre aide.

Bonne journée

[goldstar]

Bonjour,

pour bloquer les onglets je ne sais pas mais tu peux les cacher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
For w = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(w).Name <> "resultat" Then
        Sheets(w).Visible = xlSheetVeryHidden
    End If
Next w

Cordialement,

[Quentin77170]

Salut à toi,

Je ne sais pas si l'on peut "verrouiller" un onglet, par contre on peut très simplement le masquer de manière à ce que l'utilisateur de puisse pas l'afficher de nouveau à la main.

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets(1).Visible = xlSheetVeryHidden ' ça va complètement masquer la première page
'Ou si tu préfères
Sheets("Feuil1").Visible = xlSheetVeryHidden 'tu remplaces par le nom voulu

Pour l'afficher de nouveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Visible = xlSheetVisible

xlSheetVisible peut être remplacé par la valeur True
xlSheetHidden peut être remplacé par la valeur False
xlSheetVeryHidden est celui que tu recherches, je pense, car la page n'est accessible que par macro et ne peut être réactivée que par macro.

En espérant que ça te soit utile

Quentin

[Marc31]

Merci pour l'info mais je souhaiterais que sa reste visible....

[Marc31]

En fait j'aimerais que les boutons sur les différents onglets ne soient plus cliquables.

[Quentin77170]

Pour rebondir sur la réponse de Goldstar, tu peux également faire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("Résultat").Visible = xlSheetVisible
For Each Sheet In ThisWorkbook.Sheets
     If Sheet.Name <> "Résultat" Then Sheet.Visible = xlSheetVeryHidden
Next Sheet

Il est important de s'assurer que ta feuille Résultat soit visible, sinon tu risques l'erreur en cours de macro car le programme ne peut pas cacher toutes les pages

[goldstar]

Re,

Tu entends quoi par bloquer les onglets ? interdir le clic ou bien proteger les feuilles en ecriture ?

Cordialement,

[Quentin77170]

C'est pas génial, mais tu pourrais passer par l'événement "Worksheet_Change" du workbook :

Place ça dans le code de ThisWorkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Not Sh Is Sheets(1) Then Sheets(1).Activate
End Sub

...

[Marc31]

En fait actuellement les feuilles sont déjà bloquées en écritures, les personnes peuvent juste cliquer sur les boutons. une fois toutes les questions cliquers, il y a un onglet resultat et je voudrais que les personnes ne puissent pas allés re modifier les questionnaires pour augmenter les points.

[goldstar]

et bloquer les boutons... pas possible ?