Environ

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
@ Pro's

Ik gebruik onderstaande code, maar werkt via login Excel.
De Environ("Username") werkt via login Windows, maar hoe gebruik ik deze?

Krijg hier niet veel over gevonden..

Code: 
If Application.UserName = "Davy Verhaert" Then
MsgBox "Tekst of code"
End If
 
Zo:
MsgBox Environ("username")
 
et et :)

Waar geef ik dan de naam in?
Heb zo geprobeerd, maar zo werkt deze niet....

Code: 
If Environ("username") = "Davy Verhaert" Then
MsgBox "Tekst of code"
End If
 
Zo werkt het wel maar je zal eerst moeten weten wat Environ("username") terug geeft en dan daar op controleren.
Vandaar hetgeen ik in #2 schreef.
 
Laatst bewerkt:
Zo dus....:)

Code: 
If Environ("username") = "Bert.Milis" Then
MsgBox "Gelukt!!!:-)"
End If

Environ maakt gebruik van "." ipv "spatie"

Top!!!
 
Zodra ik de werkende code kopieer van testfile naar "echte", foutmelding in bijlage..
 

Bijlagen

  • fout.docx
    20,7 KB · Weergaven: 29
Dit moet toch gewoon werken?
Code: 
Sub testUser()
    MsgBox Environ("Username")
End Sub

Maar wat bedoel je eigenlijk met deze zin:
\
Ron001 zei:
Ik gebruik onderstaande code, maar werkt via login Excel. De Environ("Username") werkt via login Windows
Klik om te vergroten...
 
Wat je in Word heb gezet heeft niks met dat stukje te maken.
Daarnaast hebben we niks aan een Word document.
Open je Excel document, dan de VBA editor en klik dan op Foutopsporing -> VBA project compileren.

Of staat het "echte" document soms op een Mac?
 
Laatst bewerkt:
Application.UserName is in dit geval, Excel, hij neemt dan toch deze username ipv Windows login...

@ Edmoor

Er wordt een variabele of procedure verwacht, geen module
Klik om te vergroten...

Ik heb deze in een module gezet en dan opgeroepen bij Workbook open, is precies niet de bedoeling.... :)

***EDIT*** Geen Mac...
 
Laatst bewerkt:
Plaats je document, want kennelijk heb je het niet goed gedaan en zo kunnen we dat niet zien.
 
Docu plaatsen is lastig, kan ik dit prive?

Staat hetzelfde is testfile als echte, toch geeft deze foutmelding...
 
Dan is het toch echt anders.
Waarom is het document plaatsen lastig?
Haal gewoon de gevoelige gegevens eruit.
 
Voila....

pas = paswoord
 

Bijlagen

  • PO planlijst TD Assen.xlsm
    1,1 MB · Weergaven: 40
Laatst bewerkt:
Met wachtwoord.
Handig...
 
Je functie in de module heeft dezelfde naam als de module zelf.
Dat mag niet.
 
@ Edmoor

Wat kan het leven eenvoudig zijn, had ik wel moeten weten...:rolleyes:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan