Tecnologia, programação e muito Visual FoxPro.

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


__._,_.___
+-:: 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              |
+-------------------------------------------------------------------+
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Weight Management Group

on Yahoo! Groups

Join the challenge

and lose weight.

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

.

__,_._,___

Nenhum comentário:

Arquivo do blog