Gebruik van gebruikersnaam in vba-code

[tkint]

Beste,

Ik heb gisteren een vraag gesteld over kopieerbeveiliging van een bestand dmv van 2 bestanden : één met de tool, het andere met een code. Wie zomaar het eerste kopieert, kan er niets mee aanvangen. Dat was, volgens een paar forumleden, geen "fraaie" methode.
Een vriend van mij heeft een bingo-spel ontwikkeld voor het rusthuis waar hij vrijwilligerswerk doet. Hij wil dat zijn tool niet zomaar gekopieerd en verspreid wordt. Lukt het om met de username een controle uit te voeren of de tool geopend wordt op de computer waarvoor het bestemd is?
Ik gebruik de volgende code om de username te achterhalen :

Private Sub Workbook_Open()
Range("A1").Value = Environ$("UserName")
Range("A2").Value = Application.UserName
End Sub

Op mijn laptop functioneert de code, op de PC van mijn vriend wordt er geen waarde weergegeven in A1 en geeft de 2de methode een foutmelding. Zijn er nog andere methoden om de gebruikersnaam te achterhalen?

 

[ExcelAmateur]

Kijk of je wat aan deze link heb.
http://www.helpmij.nl/forum/showthread.php/896197-If-Environ-vraag?p=5795765&highlight=Computernaam#post5795765

 

[snb]

Bespaar je de moeite. Als je wil voorkomen dat iets gekopieerd wordt moet je het niet verspreiden.

 

[Cobbe]

Ik heb het toch iets moeilijker gemaakt voor de modale gebruiker.

wachtwoord = 1234
wachtwoord VBA = 1234

 

[edmoor]

Dat wachtwoord resulteert bij mij in een Niet correct melding, waarna het document afsluit.

 

[Cobbe]

Ja dat is ook de bedoeling omdat de username niet ook overeenstemt.

In de module heb ik user gedefiniëerd als cobbe (toepasselijk he)

 

[edmoor]

Ok. Dus het wachtwoord is niet 1234 zoals je in #4 zegt. Alleen voor de gebruiker cobbe.
Maar tkint geeft dus aan dat het ophalen van de gebruikersnaam bij hem niet werkt.

 

[Cobbe]

Jawel maar ik doe de vergelijking van het wachtwoord en gebruiker samen.
Die gebruiker moet dan overeenstemmen met de oorspronkelijke 'user' gedefiniëerd in een module.

Zie bestand met uitgeschakelde code

 

[edmoor]

Ja, dat begrijp ik, maar ik had net m'n reactie iets aangevuld

 

[edmoor]

@tkint:
Welke foutmelding krijg je?

 

[Cobbe]

Ik vermoed dat die vriend de macro's niet geactiveerd heeft.

 

[edmoor]

Dat zou maar zo aan de hand kunnen zijn inderdaad