[原创]教你不用VBA也建新菜单

zz5151353

打開時說有病毒 ?

andysky

QUOTE:

以下是引用zz5151353在2006-12-13 14:09:00的发言：
打開時說有病毒 ?

里面有大量的4.0宏函数命令，被部分软件视为病毒是理所当然的，事实如何你自己判断了。

代码如下：

=ERROR(TRUE,$A$15)
=RUN("NoRunMacro")
=ERROR(FALSE)
= ADD.MENU(1,B4:C15)
=WORKBOOK.HIDE("sheet1",TRUE)
=WORKBOOK.HIDE("macro",TRUE)
=WORKBOOK.HIDE("sheet2",TRUE)
=WORKBOOK.HIDE("sheet3",TRUE)
=ALERT("请看菜单。是否很简单？？",1)
=ALERT("若禁用宏则此表不可用。--andysky",2)
=ERROR(TRUE)
=RETURN()

=IF(ERROR.TYPE($A$3)=4)
=WORKBOOK.HIDE("macro",FALSE)
=ALERT("禁用宏则关闭。--andysky",2)
=FILE.CLOSE(FALSE)
=RETURN()
=ELSE()
=ERROR(TRUE)
=RETURN()
=END.IF()

=ALERT("这是一个宏表建菜单之范例:即OFFICE97专用宏表函数.",1)
=ALERT("过时之函数却有意想不到之功效!",3)
=ALERT("这就是所谓的“旧瓶装新酒，其味也无穷!”",2)
=HALT()

=FILE.CLOSE(FALSE)
=RETURN()

=WORKBOOK.HIDE("sheet1",TRUE)
=RETURN()

=MESSAGE(TRUE, "系统运行中，请等待...............嘿嘿，够酷吧？？？")
=RETURN()

=SPLIT(3,15)
=RETURN()

=FULL.SCREEN(TRUE)
=HALT()

=BORDER(1,1,1,1,1,TRUE,3,3,3,3,3)
=HALT()

=ADD.TOOL(1, 2, 51)
=ALERT("“新建工具按钮位于常用工具栏第二个，图标为阴影”",2)
=HALT()

=SHOW.TOOLBAR(1, FALSE, 1, 1, 1, 1, FALSE, FALSE, FALSE, TRUE)
=RETURN()

=CLEAR(1)
=RETURN()

=FILE.CLOSE(TRUE, TRUE)
=RETURN()
 
{ 新增工具栏 } 
显示自动信息 信息
隐藏工作表一 hide
修改状态栏信息 状态栏
分割当前表窗口 窗口
添加边框底纹 边框
添加工具按钮 添加工具按钮
隐藏常用工具栏 隐藏常用工具
全屏显示 全屏显示
删除选区信息 删除选区信息
关闭并保存 关闭并保存
退出EXCEL程序 quit

[此贴子已经被作者于2006-12-13 14:17:36编辑过]

zz5151353

謝謝 ANDYSKY 兄 !!!

2樓的. 不但打開時說有病毒 ?且把貼出圖片東東自動刪除
附件代碼完全沒有了

andysky

代碼是隱藏的，需要用代碼顯示所有工作表後才能看到。

paipaitemp

一个字,牛

bdyzf

太厉害了，学习

wsp1478714

向罗老师学习，你无所不能