Auto_Open Code on Worksheet

[Tony]

I receive an Excel workbook that runs an Autpen routine not from VBA, but
from a worksheet named "Macro1" with each of the macros defined as names in
the workbook (see sample below). Access 2007 will not let me import the
worksheet with this Autpen routine. Can anyone point me in a direction to
disable this Autpen macro in Excel? The Autpen is in column B, while
the other 21 macros are in column A.

Autpen
=ERROR(2,Recover)
=WORKBOOK.SELECT("Data Sheet 1")
=WINDOW.RESTORE()
=WINDOW.SIZE(82.5,42.75)
=WORKBOOK.HIDE("Macro1",TRUE)
=EDIT.COLOR(1,0,0,0)
=RUN("Macro20")
=DELETE.NAME("Autpen")
=WORKBOOK.SELECT("Data sheet 1")
=SELECT("R3:R65536")
=SELECT("R1C1")
=WINDOW.MAXIMIZE()
=RETURN()

 

[Joel]

You need to open the workbook in readonly mode. try this code

Sub Openbook()

filetoopen = Application _
.GetOpenFilename("Excel Files (*.xls), *.xls")
Workbook.Open Filename:=filetoopen, ReadOnly:=True

End Sub

 

[Tony]

Great! This forum is the first stop when I'm trying to resolve an issue with
Excel VBA and the community never fails to let me down! Thank you very much.