如何不打开PERSONAL工作表 宏依然可用

株洲跳豆

本人录制了几个宏 存在“个人宏工作薄”. 但每次打开任意一张EXCEL工作表 都会自动打开名为“PERSONAL”的工作表 想请教各位 如何不让PERSONAL自动打开 但其中的宏又可用 （之前听人说可以将PERSONAL的属性 ISADDIN设置成TRUE 但那样所有录制的宏就不可用了）

[ 本帖最后由 株洲跳豆 于 2010-6-8 17:02 编辑 ]

株洲跳豆

有知道的 教教我啊

weixueke

我也想知道。。。。。

香川群子

1. 编制一些自己需要的个人宏

2. 保存在自定义名称的文件，如【个人宏.xls】文件中
（注意，千万不要取名字为personal.xls，即不和personal.xls同名）
  其实，也可以直接打开personal.xls以后，另存为【个人宏.xls】

3. 把该文件放在自己指定的文件夹中，如【D:\macro\】中。

4. 在该文件的vba模块中，加入代码：
Sub CallMacro()
    key = MsgBox("Open the macro File ? ", vbOKCancel)
    If key = vbCancel Then Workbooks("个人宏.xls").Close
End Sub

5. 设定使该文件hide属性，即窗口不可见。（和personal.xls一样）
  然后在vba编辑器中再次保存该文件，
  以后再打开该文件，就是窗口不可见啦。
  
【到这里，请暂时不要退出文件，继续下去……】

6. 在Excel菜单上做一个导入该文件的宏的按钮，使其链接到这个
个人宏.xls文件中的CallMacro宏上去。


——————————————————————————
然后，按下该按钮，就会出现是否需要打开你自己编制的【个人宏.xls】文件的对话框。

如果需要，则选择OK，选Cancel取消，则不会打开，
或者，在已经打开了该【个人宏.xls】文件时，该操作会关闭【个人宏.xls】文件。


这下子就万事大吉了。

唯一的遗憾是，菜单上那个按钮，可不要随便给别人，尤其是你的上司知道了，
尽量放在不起眼的地方，图标也弄的通俗一点，甚至化妆成别的不常用的命令按钮就行啦。

香川群子

但是，一般情况下，打开了你的个人宏文件以后呢，在关闭Excel程序之前，
文件不会被主动关闭。

因此，还是我设计的那个按钮，更强大一些吧。


为了更好地隐藏你的秘密，你还可以把对话窗口的信息美化一下。

比如：
Sub CallMacro()
   
    key = MsgBox("今天是周" & Weekday(Date) & "了," & "现在已经" & Format(Time, "hh:00") & vbCrLf & "要加班吗?", vbOKCancel)
    If key = vbCancel Then Workbooks("个人宏.xls").Close
End Sub

这样的你就可以骗别人说，这个只是你自己做的提醒功能。


呵呵。大家试一下哦。

zyhui1961

香川群子 发表于 2010-6-8 17:46
1. 编制一些自己需要的个人宏

2. 保存在自定义名称的文件，如【个人宏.xls】文件中

好想看一下群子老师本尊!!多次得到过群子老师的帮助。