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

[Usine à gaz]

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

 

[mapomme]

Bonjour @Usine à gaz ,

Pas certain d'avoir tout compris ???
Tout ce passe dans le module de ThisWorkbook.

 

[Usine à gaz]

Bonjour @Usine à gaz ,

Pas certain d'avoir tout compris ???
Tout ce passe dans le module de ThisWorkbook.

Bonjour mapomme
Je te remercie
Sans être certain d'avoir tout compris, c'est une bonne solution.