VBA 代码在共享工作簿中执行是有一定限制的（其实不是 VBA 限制，而是 Excel 自身限制）。比如：
不能解除或添加工作簿保护密码；
如果工作表处在保护状态，没有特殊设置的话是不能编辑被保护的区域；
如果连工作簿的结构和窗体被保护起来的话，不可以更改工作表的名称、显示属性；也不可以添加或删除工作表。等等……
另外，在共享模式下 VBA 代码不可被查看和修改。
那可不可以用VBA来添加gif格式的图片？我的是excel2010，添加了但不能动
追答你这个问题就是另一个问题了。建议重开贴询问。
不过现在可以回答你，你百度一下，EXCEL插入GIF图片，好像是需要个控件什么的。具体不清楚。找到这个插入GIF图片的方法之后再考虑如何用VBA实现的问题。
不过 你本贴的问题已经解决了吧？给采纳呗。呵呵
此工作簿包含VBA宏程序,VBA代码不能在共享模式下编写
VBA 代码在共享工作簿中执行是有一定限制的（其实不是 VBA 限制，而是 Excel 自身限制）。比如：不能解除或添加工作簿保护密码；如果工作表处在保护状态，没有特殊设置的话是不能编辑被保护的区域；如果连工作簿的结构和窗体被保护起来的话，不可以更改工作表的名称、显示属性；也不可以添加或删除工作表...
在共享工作薄2003时,出现此工作薄包含vBA宏程序,VBA不能在共享模式下...
那你把工作簿按独占方式打开即可，编辑完后再把它共享出去。这个功能是为了避免两台机或两个人同时进行编辑而已。
EXCEL 2010 使用共享工作簿进行协作
需要注意的是必须勾选上允许多用户同时编辑，同时...的选项，确定后EXCEL会提示你保存，如果你共享的工作薄包含VBA，他还会提醒你VBA与宏在共享下无法编辑，最后我们可以看到，这个程序的名称后多了一个共享的字样， 2012-2-24 14:51:17 上传下载附件 (5.08 KB) 现在说明这个工作薄就...
...函数包含有宏或需要宏语言支持内容,Word需要VBA宏语言来完”怎么办...
方法三、可能是初次安装Office时共享里的VBA没安装，可以重新再安装一下VBA和信任证书。方法四、Word选项-->加载项-->转到-->把里面的5项内容都删除，然后确定-->Word选项-->信任中心-->信任中心设置-->选择 “启用所有宏”和“信任对 VBA 工程对象模型的访问”-->确定，最后重新启动Word2007即可。
怎样清除EXCEL工作簿中的宏
“宏”都是放在一个“模块”里，视图中打开“工程资源管理器”，打开后在窗口的最左边，然后左边有你对应的工作表的名字，比如表名:VBAPROJECT(...),打开子目录就有SHEET1,sheet2,sheet3等你的工作表，然后在这个下面紧接着有一个 “模块1”项目，双击打开以后，里面就是你写的宏代码，删除...
如何用VBA更新共享工作簿
由于Excel默认在开始共享的模式下无法运行宏。所以要更新共享的工作簿，需要先关闭共享，更新完后再开启共享。如果你想供多人从不同的电脑上访问,那么你可以将文档放在共享文件夹里,同时设置该文件夹的属性"允许用户更改我的文件。"如果启用工作薄自身的共享功能,有些的宏\\窗体\\和模块的功能可能将会在...
《神奇的VBA》编程:禁止修改Excel工作表名称
职场中共享Excel表格或模板时，常需禁止他人修改预设的工作表名称。否则，若工作表名称变动，依赖其的公式、VBA程序或外部引用将失效，影响程序执行。如何禁止修改工作表名称？以下提供四种方法及VBA代码示例。案例：禁止修改宏工作簿中“生产计划表”、“销售计划表”和“财务计划表”的名称。方法一：保护...
EXCEL如何查看修改痕迹
1、打开excel表格，在工具栏中点击“审阅”选项。2、在“审阅”中找到“修订”并点击下拉三角形，选择下拉框中的“突出显示修订”。3、随后会弹出设置的对话框，将下图中红圈标注的位置中的勾选框选中后点击确定。4、此时，弹出提示对话框，点击对话框中的“是”。5、即可将表格更改为修订有痕迹的操作...
excel表格无法输入内容
首先，检查单元格是否被设置为只读或受保护状态，这会导致无法编辑。其次，查看是否有条件格式或数据验证规则限制了输入内容。另外，工作簿可能被设置为共享模式且其他人正在编辑，也可能导致输入受限。解决这些问题的方法包括：取消单元格的只读或保护状态，通过“审阅”选项卡下的“取消工作表保护”实现；...
EXCEL在共享模式中,如何让数据透视表能够自动刷新?
这个问题本身也简单,用vba关闭共享,刷新透视表,再开启共享,就算解决了.之后会产生新问题:共享功能无法关闭.可以单独运行"取消共享"的宏.Sub 按钮1_Click()Call stopshare ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh Call startShare End Sub Sub startShare() '开始共享 If Len(Th...
