Bonjour à tous,
Je n'arrive pas à écrire la bonne syntaxe, limitant l'accès à mon fichier à deux ordinateurs (ou plus après). Dans ThisWorkbook_Open :
SI "nom du pc est différent de 1" OU "nom du pc est différent de 2" ALORS fermeture.
Private Sub Workbook_Open()
Application.OnKey "{ESCAPE}", ""
Application.WindowState = xlMinimized
Application.Visible = False
USFKiKiFé.Show 0
If Environ("COMPUTERNAME") <> "PSC21542" Or Environ("COMPUTERNAME") <> "PPS50092" Then MsgBox "Vous n'avez pas d'autorisation pour accéder au KiKifé": Unload USFKiKiFé
End Sub
Merci de votre aide