bonjour ,j'ai un gros souci je voudrait interdire le clic droit sur onglet mais ma macro ne marche et je sais pas pourquoi
si quelqu'un peut m'aider:Private Sub Workbook_Open()
Application.CommandBars("ply").Enabled = False 'masquer clic droit onglet
Application.CommandBars("Cell").Enabled = False 'masquer clic droit feuille
Application.AskToUpdateLinks = False 'mise a jour sans message
Application.DisplayFullScreen = True 'pleine ecran
ActiveWindow.DisplayGridlines = False 'masquer le quadrillage
ActiveWindow.DisplayHeadings = False ' Masquer les en-têtes
Dim F As Worksheet, Tmp As String
Tmp = Format(Now - (5 / 24), "d")
On Error Resume Next
Set F = Sheets(Tmp)
On Error GoTo 0
If Not F Is Nothing Then
F.Activate
On Error GoTo fin
Else
MsgBox "La feuille " & Tmp & " n'est pas présente", 64, "Attention"
End If
lancer_timer
Exit Sub
fin: Sheets("1").Select
End Sub
merci a vous