Angivelse af "last saved by"

På den event der hedder beforeSave ved woorkbook indsætter du flg kode.

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

Public Event UserNameNotFound()
Public Event UserNameFound()


Private Function NTDomainUserName() As String
    Dim strbuffer As String
    Dim inglen As Long
    Const dhcmaxusername = 255
   
    strbuffer = Space(dhcmaxusername)
    inglen = dhcmaxusername
    If CBool(GetUserName(strbuffer, inglen)) Then
        NTDomainUserName = Left(LCase$(Left$(strbuffer, inglen - 1)), 100)
        RaiseEvent UserNameFound
        Else
            NTDomainUserName = ""
            RaiseEvent UserNameNotFound
        End If
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("a1").Value = NTDomainUserName
End Sub

Kedde

Du gør sådan:
NormalTemplate.AutoTextEntries("Senest gemt af").Insert Where:=Selection.Range

Hvor skal jeg sætte det ind Dimle, og i hvilken celle vil den så placere brugerens navn?

Du skal jo så den ind der hvor du gemmer! Den sætter det ind i den celle du står i!!! HVis du vil have en bestemt celle så kan du selecte den celle du vil have det til at stå i og bagefter sætte det her ind:

NormalTemplate.AutoTextEntries("Senest gemt af").Insert Where:=Selection.Range