View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Mike H Mike H is offline
external usenet poster
 
Posts: 11,501
Default Excel 2003 - open work book useage agreement

Hi,

Try this. Alt+F11 to open vb editor. Double cklick 'This workbook' and paste
the coode in on the right.

Private Sub Workbook_Open()

response = MsgBox("I want you to read this and" & Chr(13) & _
"Click OK that you agree", vbYesNo)

If response = vbNo Then ThisWorkbook.Close savechanges:=False
End Sub

Mike

"mbotfield" wrote:

Hi Mike H,

I understand what you are saying, however I would like to proceed becuase
the users are internal and they all use the same Marco settings.

"Mike H" wrote:

Hi,

Before we begin you need to understand that what your tring to do is a waste
of time in terms of security. This popup window and the accept/decline
buttons will be controlled by code so if your user opens with macros disabled
then all your security is gone. There are 'methods' of making such things a
bit more robust but in the final analysis they would not prevent anyone with
even a little knowledge from defeating whatever you put in place.

Still want to proceed?

Mike

"mbotfield" wrote:

I have an Excel 2003 workbook. I want to creat a window that when the
workbook is opened the window appears. In the window it shows text I have
written about the useage terms of the workbook. The user must agree by
clicking a I ACCEPT button to use the file or click I DO NOT ACCEPT and the
workbook closes.