protection

Bonjour à tout le forum,
je tourne en rond sur un test.
Je cherche à obliger d'accepter le lancement des macros (sinon affichage feuille1, le reste caché)
si les macros sont acceptés, il y a un test sur le pc utilisé, s'il ne correspond pas alors message 'pas les droits' etfermeture du classeur. Ci après mes vaines élucubrations...

Private Sub Workbook_Open()
Application.ScreenUpdating = False
If Application.UserName = 'p Dupond' Then


For Each Sh In Sheets
Sh.Visible = True
Next Sh
Sheets(1).Visible = xlVeryHidden

Else
For Each Sh In Sheets
Sh.Visible = xlVeryHidden
Next Sh
Sheets(1).Visible = True
End If
End Sub

Ca ne fonctionne pas, hélas.

Un grand merci pour votre aide et agréable journée à vous