[Excel] computer name

[Excel] computer name 01.11.2009. u 17:15 · pre 206 meseci #1

pomoć

u jednoj radnoj knjizi radi više korisnika. Prilikom kreiranja podataka u svakom redu u određenom stupcu bi trebalo biti upisano prilikom pospremanja s čijeg je kompjutera kreiran podatak odnosno computer name (npr pperic)
Primjer:

datm; vrsta; račun; tko je to upisao (computer name)

isti korisnik može kreirati više redova par puta u toku dana, tjedna ili mjeseca

Pozdrav

Re: [Excel] computer name 01.11.2009. u 19:50 · pre 206 meseci #2

na ovom linku http://www.mrexcel.com/forum/showthread.php?t=46889

sam našao ovo ( možda pomogne ;)

Code:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

On Error GoTo carryon
Application.ScreenUpdating = False
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Sheets("log").Activate
lastrow = [a1].CurrentRegion.Rows.Count
'add username date and time
Sheets("log").Cells(lastrow + 1, 1).Value = Application.UserName
Sheets("log").Cells(lastrow + 1, 2).Value = Date
Sheets("log").Cells(lastrow + 1, 2).NumberFormat = "mmmm d, yyyy"
Sheets("log").Cells(lastrow + 1, 3).Value = Time
Sheets("log").Cells(lastrow + 1, 4).Value = UserName
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
carryon:
End Sub

Re: [Excel] computer name 01.11.2009. u 21:45 · pre 206 meseci #3

Dobićeš podatak od Environ() funkcije (inače, pominjano već u aplikacija za fiskalnu kasu).

Biće jasnije kada pokreneš primer

Code:
Sub Environment()

Debug.Print Environ("computername")
Debug.Print Environ("username")
End Sub

Ili, preko sledećeg primera pogledaj sve raspoložive vrednosti

Code:
Sub EnvironmentList()
Dim EnvString As String
Dim Indx As Byte

    Do
        Indx = Indx + 1
        EnvString = Environ(Indx)
        Debug.Print Indx, EnvString
    Loop Until EnvString = ""
End Sub

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: [Excel] computer name 02.11.2009. u 14:35 · pre 206 meseci #4

upravo ono što mi treba mi je code od Ivek33
ukopirala sam code u VBAproject (ThisWorkbook) u zajedničku radnu knjigu, u Sheet1, kojeg sam nazvala "log"

Code:
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

On Error GoTo carryon
Application.ScreenUpdating = False
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Sheets("log").Activate
lastrow = [a1].CurrentRegion.Rows.Count
'add username date and time
Sheets("log").Cells(lastrow + 1, 1).Value = Application.UserName
Sheets("log").Cells(lastrow + 1, 2).Value = Date
Sheets("log").Cells(lastrow + 1, 2).NumberFormat = "mmmm d, yyyy"
Sheets("log").Cells(lastrow + 1, 3).Value = Time
Sheets("log").Cells(lastrow + 1, 4).Value = UserName
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
carryon:
End Sub

i sve radi savršeno

Hvala Iveku33 i 3okc

Forum kao aplikacija na telefonu

Srodne teme