Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto Open + Disable on Final Product | Excel Programming | |||
Disable auto-update | Excel Programming | |||
Can I disable auto formula update? | New Users to Excel | |||
Disable Auto Macro | Excel Programming | |||
Disable auto editor formatting | Excel Programming |