XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)

Je bute sur un code (comme d'habitude lol :))

Ce que je sais faire :
Bloque le clic droit sur les onglets

Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False 'interdit clic droit sur onglets
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True 'autorise clic droit sur onglets
End Sub

Bloque sortie de la Feuille "MonBesoin"
Code dans Feuille
Private Sub Worksheet_Deactivate()
If [b1] <> "ok" Then
Sheets("MonBesoin").Select
End If
End Sub

Ce que je ne sais pas faire
Feuille "MonBesoin" active
If [b1] <> "ok" Then
Bloquer la sélection des autres onglets (sans les masquer)
Peut-être en bloquant, sous la condition, le clic de la souris sur les onglets ?

Auriez-vous le bon code ?
En cas, je joins le petit classeur test.
Grand merci à toutes et à tous...
 

Pièces jointes

  • Classeur1onglet selection ou clic.xlsm
    19.3 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
313 222
Messages
2 096 329
Membres
106 571
dernier inscrit
Domdom24