credit where credits due

  • hi I have spent months refining a workbook for use at work, and other people are asking me for a copy, which i am happy to give. However, some of them may claim it is then their work.. there a way of incorporating some code so that whenever the workbook opens a popup window pops up with appropriate details so they know I made it

    ...even better would be a dialog box, where they have to click "ok" to a message to continue

    thanx in advance

  • Hey Bruise,

    Give this a shot:

    Private Sub Workbook_Open()
    MsgBox "This workbook was created by Bruise Pristine, " & vbCrLf & _
    "so don't claim that you did it!", vbInformation + vbOKOnly, _
    "Authentication Alert"
    End Sub

  • To add to Smitty's answer (hi Smitty! !wave!)

    You may want to password protect your project else some of the more VBA savvy users may be able to remove the message.

    In the VBE right click on your project (something like VBAProject(yourworkbookname.xls)) and choose 'Properties'. Choose the Protection tab and check the 'Lock project for viewing' and pop in a password.

    Another option could be to have a locked worksheet with a text box containing your message


    <a href="" target="new"><img src=""></a>

  • You could also try hiding the window.

    Private Sub Workbook_Open()
    Application.Windows.Item(1).Visible = False
    If MsgBox("I created this", vbOKCancel, "Creator") = vbOK Then
    Application.Windows.Item(1).Visible = True
    End If
    End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!