vba tabblad gebruiken als beveiligde logfile met AD gebruikersnaam en datum in excel – Single Sign on

maak gebruik van de gebrukersnaam (inlog) en wachtwoord van AD ( active directory) om deze te gebruiken in de log file.

maak een tabblad aan “logfile” en op de bovenste lijn in kolom a schrijf je “inlog” en in kolom b schrijf je “datum en tijd”

maak een module aan en kopieer letterlijk alles dat hieronder staat in een module

Private Declare Function apiGetUserName Lib “advapi32.dll” Alias _
“GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
‘ Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen – 1)
Else
fOSUserName = vbNullString
End If
End Function

Function GetCurrentUser() As String
GetCurrentUser = Environ(“USERNAME”)
End Function

Sub logmagic()
Dim bepaalrij, i As Integer

bepaalrij = 1
For i = 1 To 5000
If Sheets(“logfile”).Cells(i, 1).Value = “” And bepaalrij = 1 Then
bepaalrij = i
i = 4999
End If
Next i
ActiveWorkbook.Unprotect “type hier een wachtwoord”
ActiveWorkbook.Sheets(“logfile”).Unprotect “type hier een wachtwoord”
Sheets(“logfile”).Cells(bepaalrij, 1).Value = fOSUserName()
Sheets(“logfile”).Cells(bepaalrij, 2).Value = Now()
ActiveWorkbook.Sheets(“logfile”).Protect “typ hier hetzelfde wachtwoord”
ActiveWorkbook.Protect “typ hier een wachtwoord”
ActiveWorkbook.Save

End Sub

   

Geef een reactie

Het e-mailadres wordt niet gepubliceerd. Vereiste velden zijn gemarkeerd met *

  • Zoek de Ict tips

    Generic selectors
    Exact matches only
    Search in title
    Search in content
    Search in posts
    Search in pages
    Filter by Categories
    advies desktop
    advies notebook
    advies smart tv
    cloning and backup
    cmd
    esxi
    exchange 2007/2010/2013
    freeware
    koopadvies
    office 2003
    office 2007
    office 2010
    office 2013
    office 2016
    Powershell
    Thin os (wyse)
    tips voorblad
    Uncategorized
    Visual Basic For Applications (VBA)
    vmware
    win 8 apps zeer goed
    Windows 10
    windows 7
    Windows 8
    windows 8.1
    Windows 8.x RT
    windows server 2003
    windows server 2008
    windows server 2012
    windows server 2012 R2
    windows server 2016
    wordpress