Bold text

[dpaton05]

I have a message box that is displayed if another user already has a file open on my network. I want to make the text within the message box bold "without saving them". Could someone tell me how I do this please?

Private Sub Workbook_Open()
Dim file1 As Integer
Dim strLine As String
file1 = FreeFile
    If Not ActiveWorkbook.ReadOnly = True Then
        'only add name to the usage log if the user has it locked
        Open ThisWorkbook.Path & "\usage.log" For Append As #file1
        Print #file1, Environ("USERNAME") & ". Please close all the additional workbooks that will be opened " _
        & "without saving them. Then contact the user that has it open or wait until they are finished."
        Close #file1
    Else
        'if someone else has the file open, find out who
        Open ThisWorkbook.Path & "\usage.log" For Input Access Read As #file1
            Do While Not EOF(file1)
               Line Input #file1, strLine
            Loop
        Close #file1
        MsgBox "The following user has the allocation sheets open: " & strLine
    End If
End Sub

 

[Michael M]

Can't be done in a MsgBox.....you would have to create a Forms box !!

 

[dpaton05]

Does that do the same thing as a message box? If so, how would I put one in?

 

[JoeMo]

This forms textbox will be created on the activesheet and be deleted after 10 seconds. Size and position of the box as well as the dwell time on the sheet can be changed to suit.

Sub testTextBx()
Dim Tbx As Shape
strLine = "Joe"
Set Tbx = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 40, 120, 120)
With Tbx.TextFrame.Characters
    .Text = "The following user has the allocation sheets open: " & strLine & vbCrLf & vbCrLf & _
            "This message will be removed in 10 seconds."
    .Font.Bold = True
    Application.ScreenUpdating = True
    Application.Wait Now + TimeSerial(0, 0, 10)
    Tbx.Delete
End With
End Sub