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