Hot Fox: Re: ]] XL-mania [[ Workbook yg Rajin mencatat Nama Excel-User yg membukanya.

quinta-feira, 24 de setembro de 2009

Re: ]] XL-mania [[ Workbook yg Rajin mencatat Nama Excel-User yg membukanya.

Tante2x.......Event : ' Application.UserName bukannya mendapatkan MS OFFICE Username yak Bukannya Windows (Yang dientry pada saat install windows) ???

He he bagusnya dapetin nama Windows Usernamenya jadi pas dishare juga ketahuan

Fungsinya :
Option Explicit
'api call for obtaining the username
Private Declare Function GetUserName& Lib "advapi32.dll" Alias "GetUserNameA" _
                 (ByVal lpBuffer As String, _
                 nSize As Long)

Public Function WindowsUserName() As String
    Dim szBuffer As String * 100
    Dim lBufferLen As Long

    lBufferLen = 100

    If CBool(GetUserName(szBuffer, lBufferLen)) Then

        WindowsUserName = Left$(szBuffer, lBufferLen - 1)

    Else

        WindowsUserName = CStr(Empty)

    End If

End Function

Kalo di modif dari punyanya Tante yang Misterius (

Katanya om Mono looh tante bukan saya) :

Private Sub Workbook_Open()
   Call LogInfo( _
   Format(Now, "dd-mmm-yyyy hh:mm:ss") & " " & _
   "Opened by " & WindowsUserName)
End Sub

Selain itu ada fungsi lainnya (File Terlampir)
- Nama Environtment
Environ("USERNAME")

- NETWORK Username :
    Dim objNet As Object
    On Error Resume Next
    Set objNet = CreateObject("WScript.NetWork")
    MsgBox "Network username : " & objNet.UserName
    Set objNet = Nothing

~ Puthut Wibowo ~

--- On Mon, 9/21/09, siti Vi <setiyowati.devi@gmail.com> wrote:

From: siti Vi <setiyowati.devi@gmail.com>
Subject: ]] XL-mania [[ Workbook yg Rajin mencatat Nama Excel-User yg membukanya.
To: "XL-mania" <XL-mania@yahoogroups.com>
Date: Monday, September 21, 2009, 12:49 PM

anda dapat membuat workbook yg memungkinkan otomatis tercatatnya
- nama excel user dan
- saat (date & time) / kapan user tsb membuka file ini

catatan ditulis dalam sebuah file text (LOGBOOK) yg di simpan di folder tertentu;
dlm contoh ( ./. ctv_AutoLogger_ Workbook. xls)
* folder = D:\MyLogFiles
* nama file = nama workbook; tetapi extensinya (xls) diganti Log

barangkali saja suatu saat anda memerlukan hal seperti ini yg akan anda
berlakukan terhadap file yg sensitip, misal terhadap file "TOP SECRET" yg
berisi resep-resep rahasia anda.. Setiap saat anda dapat mengontrol:
siapa saja yg permah membuka workbook tsb.

untuk mencapai keinginan itu, diperlukan dua Prosedur Sub

prosedur I : memanfaatkan event Dibukanya Workbook
- jika workbook dibuka : otomatis prosedur II dipanggil oleh prosedur I.
sambil melewatkan nilai aktual sebuah argument (berupa informasi
[nama Excel User yg membuka file tsb] dan [tgl & jam saat itu]

- Prosedur 2, atas perintah dari prosedur 1 mencatat informasi tsb ke
sebuah file text (file terpisah / di luar workbook tsb) lalu mensave dan
menutupnya kembali.

Jadi apakah workbook disave-atau- tidak oleh pembukanya, informasi
selalu dicatat di LogBook tsb.

Prosedur 2 (yg memiliki 1 argument) TIDAK harus dibuat sbg prosedur
Fungsi walaupun harus mengandung Argument
(karena kalau hanya sekedar melewatkan argument antar prosedur,
atau prosedur yg memerlukan argument; prosedur yg dipanggil
TIDAK HARUS DITULIS SEBAGAI prosedur Fungsi, jangan ikut² salah kaprah !! )

Mudah-mudahan bermanfaat, dan tentu saja Anda dapat mengembangkan
sesuai keperluan anda.

-ctv-
19 Sept 2009

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat Idul Fitri... Mohon maap dari momods...                   |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other