Thread: Bypass an
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ken Loomis Ken Loomis is offline
external usenet poster
 
Posts: 143
Default Bypass an

When I created the latest versions of my Excel project, I included this
code:


Private Sub Workbook_Open()

CopyrightAnnouncement

End Sub


Sub CopyrightAnnouncement()


Dim Config As Integer
Dim Ans As Integer

Config = vbYesNo + vbQuestion + vbDefaultButton2

Ans = MsgBox("This program is copyrigted and is currently only
licensed on loan to and for the exclusive use of Sherri Allen. All
rights are retained by the owner and deleveloper, Ken Loomis. Are you
Sherri Allen?", Config)
If Ans < vbYes Then
ActiveWindow.Close
End If

End Sub

I though that would help me be sure that only one person used this file.

But now that I need to open and fix all the files that this project created,
it seems to be a problem.

Is there a way to open those files without having to make the user answer
that dialog box?

Thanks,
Ken