• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

eigenaar naam in excel

Status
Niet open voor verdere reacties.
hallo, ik ben wel een excel noob hoor:o
Waar zet ik nummer 27 dan in?

Wat Jan bedoelt, is deze code:

Code:
Private Sub Workbook_Open()
Range("A1") = Environ(27)
End Sub

Vergelijk met mijn code van een paar posts hierboven. 27 hoort gewoon bij USERNAME.

Wigi
 
Oke, dat is tot zover gelukt maar.....

Dit bestand staat nu op een gedeelde schijf en voor een ieder bereikbaar en in te vullen.
Als ze het ingevuld hebben stuurt men het formulier naar mij en ik wil er dan de username van de ander hierop zien.

Als ik het formulier open op de gedeelde schijf staat daar netje mijn username maar als mijn collega het opent dan wekt het niet.
Wat doe ik nog fout?
 
knarfje,

zoals ik hiervoor ook al had aangegeven kan je dit onderbouwen door in je code een check op te nemen.

vb.
je wilt in cel C1 de usernaam hebben.
- in je template blad is C1 leeg.
-zet achter het blad ThisWorkBook de code:
Code:
Private Sub Workbook_Open() 
If Range("C1") = "" Then 
     Range("C1") = Environ("USERNAME")
End If 
End Sub

of

Code:
Private Sub Workbook_Open() 
If Range("C1") = "" Then 
     Range("C1") = Environ(27)
End If 
End Sub

Sla je blad op (rekening mee houden dat C1 leeg is).

Als je nu je blad opent wordt er gecontroleerd of cel C1 leeg is.
Is dit het geval dan wordt de username erin gevuld.
Is deze al gevuld met ander mans naam (of die van jouw) dan gebeurt er niks mee.


Groet,
Ferenc
 
Ik moet dan wel de module die ik eerder heb aangemaakt

Function UserName() As String
UserName = Environ("USERNAME")
End Function

verwijderen?
 
Ik moet dan wel de module die ik eerder heb aangemaakt

Function UserName() As String
UserName = Environ("USERNAME")
End Function

verwijderen?

Ik heb dus geprobeerd met deze verwijderen en ook met deze laten staan.
Echter de username en ook de author bij de properties van het document blijft op mijn naam staan.
 
Probeer deze code eens achter je ThisWorkBook blad:
Code:
Private Sub Workbook_Open()

    If Range("C1") = "" Then
        Range("C1") = Environ("USERNAME")
        
        With ActiveWorkbook.BuiltinDocumentProperties
            .Item("Title") = ActiveWorkbook.Name
            .Item("Subject") = " "
            .Item("Manager") = "Ferenc"
            .Item("Author") = Environ("USERNAME")
            .Item("Keywords") = ""
            .Item("Comments") = "Excel Application gemaakt door Ferenc" & Chr(13) & " Ferenc@Helpmij.nl"
            .Item("Company") = "Helpmij"
        End With
    End If

End Sub


Groet,
Ferenc
 
Probeer deze code eens achter je ThisWorkBook blad:
Code:
Private Sub Workbook_Open()

    If Range("C1") = "" Then
        Range("C1") = Environ("USERNAME")
        
        With ActiveWorkbook.BuiltinDocumentProperties
            .Item("Title") = ActiveWorkbook.Name
            .Item("Subject") = " "
            .Item("Manager") = "Ferenc"
            .Item("Author") = Environ("USERNAME")
            .Item("Keywords") = ""
            .Item("Comments") = "Excel Application gemaakt door Ferenc" & Chr(13) & " Ferenc@Helpmij.nl"
            .Item("Company") = "Helpmij"
        End With
    End If

End Sub


Groet,
Ferenc

zelfde probleem blijft.
Mijn inlog naam komt er maar niet van mijn collega!?
 
Kan het iets met beveiliging te maken hebben in een bedrijfsnetwerk
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan