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..
....so
...is 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
dave
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
HTH
wow you guys sure know your stuff, thats great, another problem sorted. thanks
dave
hi sorry for being picky, but is there a way to stop excel showing any of the workbook or data until the "ok" button is clicked in the dialog box ??
Perhaps make a splash screen e.g.
http://j-walk.com/ss/excel/tips/tip39.htm
Or use the 'force macros' idea from
http://j-walk.com/ss/excel/tips/tip100.htm
to unhide sheets only with VBA with your message sheet as the only visible sheet perhaps?
HTH
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
Else
Application.Quit
End If
End Sub
Don’t have an account yet? Register yourself now and be a part of our community!
