Disable auto open
 

I have a workbook that has code to update files. the file is manipulated and
presented. I need to disable the auto open code. I had code to ask if you
want to update the file however the users wanted that to go away after the
report was formatted.

I added the if isnull code to prevent the update from occuring and did not
realize I disabled the code that would prevent an update.

I need to disable the Auto_Open code before the contents are erased.

or can someone tell me how to save the contents of the workbook and get rid
of the code?

I have tried to change macro settings does not seem to work.

Held shift key does not work...same with Ctrl break...


Sub Auto_Open()

If IsNull(Cells(1, 2)) Then
Answer = MsgBox("Would you like to update this file?", vbYesNo +
vbExclamation, "UPDATE FILE?")
If Answer = 7 Then Exit Sub
End If

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


Range("a1:bk1000").Select
Selection.ClearContents

Disable auto open
 

If I follow, in the open event you want to do something if not already done,
but if aleady done early exit without bothering the user. One idea -

Sub auto_open()
Dim nm As Name

On Error Resume Next
Set nm = ThisWorkbook.Names("Prelim")
On Error GoTo 0

If Not nm Is Nothing Then
If UCase(nm.RefersTo) = "=TRUE" Then Exit Sub
End If

' do stuff here
Range("A1").Value = "Prelim stuff"

If Not nm Is Nothing Then nm.Delete
' store a flag in a name
Set nm = ThisWorkbook.Names.Add("Prelim", "=True")
nm.Visible = False ' hide the name

End Sub

Regards,
Peter T

"Rpettis31" wrote in message
...
I have a workbook that has code to update files. the file is manipulated
and
presented. I need to disable the auto open code. I had code to ask if
you
want to update the file however the users wanted that to go away after the
report was formatted.

I added the if isnull code to prevent the update from occuring and did not
realize I disabled the code that would prevent an update.

I need to disable the Auto_Open code before the contents are erased.

or can someone tell me how to save the contents of the workbook and get
rid
of the code?

I have tried to change macro settings does not seem to work.

Held shift key does not work...same with Ctrl break...


Sub Auto_Open()

If IsNull(Cells(1, 2)) Then
Answer = MsgBox("Would you like to update this file?", vbYesNo +
vbExclamation, "UPDATE FILE?")
If Answer = 7 Then Exit Sub
End If

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


Range("a1:bk1000").Select
Selection.ClearContents