Bonsoir,
Je sais qu'il s'agit d'un sujet traité des milliers de fois, mais j'aimerai mettre en place une manière d'assigné un classeur à un poste de travail. Adresse mac etc .. plusieurs façon sont présente sur internet mais beaucoup trop compliqué pour surtout quelque chose qu'il est possible de contourné.
Malgré tout, l'idée pour moi est de mettre un classeur xlsm sur 3 postes différents. Poste utiliser par des utilisateurs ou le facteur risque de contournement est casi-nul. Ces postes non-connecté à internet ne doivent pas pouvoir utiliser les 2 autres fichiers que celui qui lui ai assigné. Alors j'ai lu énormément de chose, j'ai vu qu'il été possible à l'ouverture du fichier de lire un .txt comportant une donnée et si le .txt ou la donnée ne sont pas présente bloquer l'utilisation. J'avais également eu l'idée du nom de la machine ? ou du compte de la session ? Chaque fichier comporte un onglet Param qui est visible. Voici un code que j'ai fais pour le moment avec le nom d'utilisateur mais sa me semble pas très bien
Si vous avez une idée ou des modification à suggerer je suis toute oui
Merci
Je sais qu'il s'agit d'un sujet traité des milliers de fois, mais j'aimerai mettre en place une manière d'assigné un classeur à un poste de travail. Adresse mac etc .. plusieurs façon sont présente sur internet mais beaucoup trop compliqué pour surtout quelque chose qu'il est possible de contourné.
Malgré tout, l'idée pour moi est de mettre un classeur xlsm sur 3 postes différents. Poste utiliser par des utilisateurs ou le facteur risque de contournement est casi-nul. Ces postes non-connecté à internet ne doivent pas pouvoir utiliser les 2 autres fichiers que celui qui lui ai assigné. Alors j'ai lu énormément de chose, j'ai vu qu'il été possible à l'ouverture du fichier de lire un .txt comportant une donnée et si le .txt ou la donnée ne sont pas présente bloquer l'utilisation. J'avais également eu l'idée du nom de la machine ? ou du compte de la session ? Chaque fichier comporte un onglet Param qui est visible. Voici un code que j'ai fais pour le moment avec le nom d'utilisateur mais sa me semble pas très bien
VB:
Private Sub Workbook_Open()
Sheets("Param").Select
Range("A28").Select
If Selection = "" Then
Code
End If
Code2
If Sheets("Param").Range("A27").Value = Sheets("Param").Range("A28").Value Then
Sheets("Param").Range("A27").Clear
Else
MsgBox "Pas le bon poste"
Application.Quit
End If
ActiveWorkbook.Save
End Sub
VB:
Sub Code()
Application.ScreenUpdating = False
Dim user As Variant
user = Environ("username")
Sheets("Params").Select
Range("A27").Select
ActiveCell = user
ThisWorkbook.Save
Sheets("Devis").Activate
Application.ScreenUpdating = True
End Sub
Sub Code2()
Application.ScreenUpdating = False
Dim user2 As Variant
user2 = Environ("username")
Sheets("Params").Select
Range("A28").Select
ActiveCell = user2
ThisWorkbook.Save
Sheets("Devis").Activate
Application.ScreenUpdating = True
End Sub
Si vous avez une idée ou des modification à suggerer je suis toute oui
Merci