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....

[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

[Marc31]

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

[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 ?

[Marc31]

Ben je crois que les boutons seront la seul solution....

En fait j'ai utilisé les expressions du dessus pour faire disparaître les onlgets...merci pour l'aide et bonne soirée

[Arkadian]

Bonjour Marc et bonjour à tous

Quand tu parles de "bloquer", tu veux dire "protéger" ?

Tu as toujours la possibilité de "Protect" ou "Unprotect" tes feuilles sinon. Et tu mets une exception sur celle dont tu veux pouvoir avoir l'accès et le loisir de la modifier.

[Marc31]

non pas protéger, je voulais juste que les onglets ne soient plus cliquables en fait...

[kiki29]

Salut, comme l'a dit Boileau : ce qui se conçoit bien s'énonce clairement .....

[patricktoulon]

bonjour
peut etre une idée comme ca en passant

ta condition serait si un truc est fait les onglet (patin,coufin) ne serait pas activable (et la j'ai tout dis


renseigne une variable du genre montruc quand ta condition est bonne
et fait ce genre de chose dans tout les onglets concernés

Code :

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

1
2
3
Private Sub Worksheet_Activate()
If montruc = True Then ActiveSheet desactivate
End Sub

pardon!!!! "Deactivate"

Attention la variable "montruc" doit etre en public en dehors des macro
bon le deactivate ne fonctionne pas alors ceci:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If truc = True Then
Application.ScreenUpdating = False
Sheets(1).Activate'adapter le sheets a ton besoins  
End If
End Sub