VBA workbook

Det virker umiddelbart ok for mig, som det er skrevet nu. Hvad er det præcist at du ønsker?

Hvis det er fordi at "Sjomka" ikke fremkommer er det sikkert fordi at dit username ikke er angivet korrekt.

Ok - jeg var nok lidt uklar. Jeg vil gerne have

If Time < 0.5 Then Msg = "Morning" KOMBINERET MED
Application.UserName & "?"

Det skulle gerne munde ud i at, når vedkommende åbner excelarket, byder man velkommen med f.eks Godmorgen + Navn

Hvis jeg forstår det rigtigt, så mangler du bare et "&".

Udskrift:
MsgBox "Good " & Msg (linje 6)
med
MsgBox "Good " & Msg & Application.UserName


Du kan evt. også vælge at undlade den ene MsgBox ved følgende:

Private Sub Workbook_Open()
Dim Msg As String
Dim EndMsg As String
If Time < 0.5 Then Msg = "morning!"
If Time >= 0.5 And Time < 0.75 Then Msg = "afternoon!"
If Time >= 0.75 Then Msg = "evening!"
EndMsg = "Good " & Msg & Chr(10) & Chr(10) & "Is your name " & Application.UserName & "?"
Ans = MsgBox(EndMsg, vbYesNo)
If Ans = vbNo Then MsgBox "OK - give a shit anyway :-)"
If Ans = vbYes Then MsgBox "I wish you a happy day at work."
End Sub

Funker perfekt. Læg et svar! Og tak for hjælpen :-)

Super! svar..

Et tillægsspm. Hvordan får jeg lavet en besked, når bruger lukker excel? Der skal gerne komme en besked a la:

Har du husket at checke om det du har lavet er korrekt?

Hvis der svares ja -> Besked om at du har checket.
Hvis der svares nej -> Besked om at du skal checke igen

Hvis efter besked om ja -> gemmes og lukkes arket
Hvis efter besked om nej -> arket kan ikke lukkes

Du bruger samme teknik som nævnt ovenfor.
Koden lægges i BeforeClose eventet. Eksempel:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If MsgBox("Ønsker du at lukke", vbYesNo) = vbNo Then Cancel = True

End Sub

Jeg er "lidt" tungnem :-)

Hvordan får jeg excel til at spørge bruger om han/hun er sikker på at det han/hun har lavet er rigtigt? Og det vil jeg gerne have lavet:

Hej igen Application.UserName. Jeg kan se, at du vil afslutte. Er du sikker på at du har lavet det korrekt?

Svar JA/NEJ

Hvis Ja -> Afslut og gem excel
Hvis Nej-> Check det igen

Når der er valgt JA i om bruger er sikker gemmes.

Hvordan vil den vba se ud?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If MsgBox("Hej igen " & Application.UserName & ". Jeg kan se at du vil afslutte." & _
            vbCrLf & "Er du sikker på at du har lavet det rigtigt?", vbYesNo) = vbNo Then
        MsgBox ("Check det igen.")
        Cancel = True
    End If

End Sub

Excel vil selv spørge om der skal gemmes, hvis der er lavet nogen ændringer.

Super. Hvordan giver jeg point for det?

Ikke nødvendigt.

Tusind tak for hjælpen. Og så (selvfølgelig!) lige et ekstra spm.

Kan man ændre denne til;

1) Hvis bruger har ændret et eller andet sted i workbook, skal bruger bekræfte, at ændringen er korrekt jf. nedenstående.

2) Hvis bruger alene åbner workbook og derefter lukker workbook, skal der komme en meddelse a la "Dejligt at se dig. Jeg kan se, at du ikke har ændret noget! Jeg lukker uden at gemme"

Dette er den nedenstående :-)
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If MsgBox("Hej igen " & Application.UserName & ". Jeg kan se at du vil afslutte." & _
            vbCrLf & "Er du sikker på at du har lavet det rigtigt?", vbYesNo) = vbNo Then
        MsgBox ("Check det igen.")
        Cancel = True
    End If

End Sub