Bloquer les onglets sur excel en vba

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

Bonjour,

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

Code:

---

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,

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:

---

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:

---

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

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

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

Code:

---

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 :)

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

Re,

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

Cordialement,

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:

---

1 2 3

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

---

...

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.

et bloquer les boutons... pas possible ?

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

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.

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

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

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:

---

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:

---

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

---