Anvendelse af Userform i Excel

Modulnavn.makronavn

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 skal også lave en procedure der loader og viser formen. Det er den du skal kalde fra kappen.

'For at vise formen ved aktivering af to bestemte sheets, indsæt flg. i koden for ThisWorkbook i VB:
'----------------------------------

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "Sheet2" Then
        UserForm1.Show
    End If
End Sub

'For at udføre en handling ved et klik på en knap i et sheet, indsæt da flg. i koden for dette sheet, hvor CommandButton1 er navnet på knappen.
'----------------------------------

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

'-----------------------------
'I alle tilfælde med UserForm1.Show kan du vælge at tilføje vbModal efter .Show, hvis formen skal vises modalt - altså:
'UserForm1.Show vbModal

/Mikbj

Husk at rette UserForm1 til navnet på din UserForm

kedde65 >> det der svar hørte vist til hér: http://www.eksperten.dk/spm/166460 :)

mikbj>>  Jeg takker for at du gjorde opmærksom på det. Beklager det måske lidt fejlagtige indlæg her :-))

Kedde

Hov, glemte også lige at sige at du skal rette "Sheet1" og "Sheet2" til navnene på de to sheets, som viser formen! :)

Har testet det, og der virker fuldstændig efter hensigten! Mange tak for hjælpen!

Det var så lidt! :)

Gå ind i Rediger Makro. Dobb.klik på det arknavn hvor userformen skal virke.
I vinduet skriver du følgernde:

Private Sub Worksheet_Activate()
    userFormNavn.Show
End Sub

Du kan selvfølgelig gøre det samme på flere Ark.

For at få knappen til at kalde:

Opret denne makro i et Modul og tildel den til en knap:

Sub ViForm()
    userFormNavn.Show
End Sub