求助！因为一个软件的兼容问题，我需要在电脑上已有Office2010的基础上再装一个Excel2003，要怎么实现啊？_百度知道
求助！因为一个软件的兼容问题，我需要在电脑上已有Office2010的基础上再装一个Excel2003，要怎么实现啊？
哪儿可以下载Excel2003单独的呢！因为一个软件的兼容问题，我需要在电脑上已有Office2010的基础上再装一个Excel2003：那个软件的安装说明，要怎么实现啊？还有？附图求助
baidu.baidu.hiphotos://b.com/zhidao/wh%3D450%2C600/sign=ceeeaa9b2fd6e/be950fc0c533efbf2b44d://b.com/zhidao/pic/item/be950fc0c533efbf2b44d.jpg" esrc="http.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/wh%3D600%2C800/sign=fd8ecbbd8db1cb133e3c/be950fc0c533efbf2b44d.hiphotos<a href="http
提问者采纳
2010版本可以兼容03版本的，实际上你就不用装03的，我下的是抢先版，03的肯定不能兼容10的啦，10的文件可以在保存时另存为03的版本，你可以去试试。现在流行的是WPS OFFICE，功能还不错太平洋软件园可以下
是因为那个软件安装的时候会自动搜索安装环境，07以上的Office识别不出，会有错误提示的。所以我必须装10一下的版本。我说的兼容是说，同一台电脑上可以同时又装10又装03不。
可以安装的，你直接下就可以了。
其他类似问题
按默认排序
其他4条回答
没有单独Excel2003的，直接装office2003吧，可以直接兼容的。
没有单独的Excel2003吧
不如去下载WPS OFFICE.....
安装OFFICE2003
03和10能兼容吗？
office2010的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁同一个excel文件在两台电脑显示不一样_百度知道
同一个excel文件在两台电脑显示不一样
和打印机无关，同一个excel文件，在别人电脑上都是一页，放在我的电脑上就变成一页半或者两页了
提问者采纳
电脑分辨率不同造成的。
但是另一台电脑和我同样的分辨率，他的显示可以
提问者评价
其他类似问题
按默认排序
其他3条回答
office 版本一样吗
不一样可能不同
另外 Office 和wps 显示 有时也不完全一样
纯属版本问题吧！有2003的和2007的，还有2010有人还安的不是微软的excel而是国产的wps excel
页面布局 —— 页面设置 —— 页边距 和 纸张大小 的设置有问题
excel的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 343|回复: 16|
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
本帖最后由 snulzq 于
13:26 编辑
求助大师：本人在同一目录下有大量的Excel文件，每个工作簿文件均有好几个工作表，但是所有文件均需保护所有工作表，请问该如何“批量”设置同一目录下所有Excel文件的所有“工作表密码”（如密码为123），工作簿文件不设密码，又如何批量一次解除所有“工作表密码”？
我根据论坛的帖子，编了一个程序（见附件），但是为什么不能使用啊，求助各位大神？
13:20 上传
下载次数: 7
8.58 KB, 下载次数: 7
在线时间1087 小时经验557 威望0 性别保密最后登录注册时间阅读权限30UID911444积分557帖子精华0分享0
EH中级, 积分 557, 距离下一级还需 543 积分
积分排行1950帖子精华0微积分0
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
ww0000 发表于
/thread--1.html
可能是我没描述清楚，我要的是所有工作簿中的所有工作表设置密码，是工作表密码，不是工作簿密码！还是谢谢！
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
找到批量设置文件密码的，但是没有批量设置同一目录所有文件所有工作表的，哪位大神帮忙改改下列代码？？？Sub 批量添加密码() '批量添加密码
Application.ScreenUpdating = False '关闭屏幕刷新,防止在操作时的闪烁
Application.DisplayAlerts = False '屏蔽提示框弹出
Dim XlsFile As String '定义一个文件名变量
Dim mybook As Workbook '定义文件对象变量
XlsFile = Dir(ActiveWorkbook.Path & &\*.xls&) ' 用Dir函数获取当前文件夹中的文件列表
Do '开始在文件名之间进行循环
If InStr(1, XlsFile, &程序文件&) = 0 Then '为了不操作当前程序文件,所以要把程序文件排除
Set mybook = Workbooks.Open(ActiveWorkbook.Path & &\& & XlsFile, Password:=123) '逐个打开文件并把它交给对象变量
If ActiveWorkbook.HasPassword = False Then '判断是否已经保护
mybook.SaveAs Password:=&123& '设置文件保护密码
End If
mybook.Close ' savechanges:=True '关闭文件并保存
End If '结束判断
XlsFile = Dir '让xlsfile等于dir产生的文件列表中下一个文件名
Loop Until Len(XlsFile) = 0 '如果到文件列表结束则停止循环
Application.DisplayAlerts = True '打开提示框提示功能
Application.ScreenUpdating = True '打开并屏幕刷新功能
End Sub复制代码Sub 按钮1_单击() '批量添加密码
Application.ScreenUpdating = False '关闭屏幕刷新,防止在操作时的闪烁
Application.DisplayAlerts = False '屏蔽提示框弹出
Dim XlsFile As String '定义一个文件名变量
Dim mybook As Workbook '定义文件对象变量
XlsFile = Dir(ActiveWorkbook.Path & &\*.xls&) ' 用Dir函数获取当前文件夹中的文件列表
Do '开始在文件名之间进行循环
If InStr(1, XlsFile, &程序文件&) = 0 Then '为了不操作当前程序文件,所以要把程序文件排除
Set mybook = Workbooks.Open(ActiveWorkbook.Path & &\& & XlsFile, Password:=123) '逐个打开文件并把它交给对象变量
mybook.SaveAs Password:=&123& '设置文件保护密码
mybook.Close True '关闭文件并保存
End If '结束判断
XlsFile = Dir '让xlsfile等于dir产生的文件列表中下一个文件名
Loop Until Len(XlsFile) = 0 '如果到文件列表结束则停止循环
Application.DisplayAlerts = True '打开提示框提示功能
Application.ScreenUpdating = True '打开并屏幕刷新功能
End Sub
Sub 按钮2_单击() '批量删除文件密码
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim XlsFile As String
Dim mybook As Workbook
XlsFile = Dir(ActiveWorkbook.Path & &\*.xls&)
Do
If InStr(1, XlsFile, &程序文件&) = 0 Then
Set mybook = Workbooks.Open(ActiveWorkbook.Path & &\& & XlsFile, Password:=123)
mybook.SaveAs Password:=&& '删除文件保护密码
mybook.Close True
End If
XlsFile = Dir
Loop Until Len(XlsFile) = 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub复制代码
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
本帖最后由 snulzq 于
11:21 编辑
一个工作簿内的所有工作表设置密码代码如下，但是如何让同一目录下所有工作簿中所有工作表实线批量设置密码和解密？如何修改下列代码，求大神！Sub SheetsProtect()
'保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False& && && &
For Each sht In Worksheets
& & mySheet = sht.Name
& & Sheets(mySheet).Protect Password:=&1234&, DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
Sub SheetsUnProtect()
'取消保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each sht In Worksheets
& &&&sht.Unprotect &1234&
Application.ScreenUpdating = True
End Sub复制代码
在线时间1087 小时经验557 威望0 性别保密最后登录注册时间阅读权限30UID911444积分557帖子精华0分享0
EH中级, 积分 557, 距离下一级还需 543 积分
积分排行1950帖子精华0微积分0
把4楼与5楼的结合起来就行了
在线时间616 小时经验461 威望0 性别保密最后登录注册时间阅读权限30UID2145505积分461帖子精华0分享0
EH中级, 积分 461, 距离下一级还需 639 积分
积分排行2404帖子精华0微积分0
snulzq 发表于
一个工作簿内的所有工作表设置密码代码如下，但是如何让同一目录下所有工作簿中所有工作表实线批量设置密码 ...
多excel文件选择，批量设置或取消工作表保护密码
Sub test()
& & Dim FilesToOpen
& & Dim x&, ID$
& & Dim sh As Worksheet
& & On Error Resume Next
& & Application.ScreenUpdating = False
& & FilesToOpen = Application.GetOpenFilename(FileFilter:=&MicroSoft Excel文件(*.xls),*.xls&, MultiSelect:=True, Title:=&选择源文件&)
& & If TypeName(FilesToOpen) = &Boolean& Then
& && &&&MsgBox &没有选中文件&
& && &&&GoTo ExitHandler
& & End If
& & ID = &123&
& & T = MsgBox(&是否设置工作表密码？& & Chr(10) + Chr(13) & &“是”设置，“否”撤销，“取消”则退出程序&, vbYesNoCancel)
& & If T = 2 Then GoTo ExitHandler& && &'选择“取消”则退出程序
& & For x = 1 To UBound(FilesToOpen)
& && &&&With Workbooks.Open(Filename:=FilesToOpen(x))
& && &&&For Each sh In .Sheets
& && && && &If T = 6 Then sh.Protect ID
& && && && &If T = 7 Then sh.Unprotect ID
& && &&&Next
& && &&&.Close True
& && &&&End With
& & Next x
ExitHandler:
& & Application.ScreenUpdating = True
End Sub复制代码
(12.35 KB, 下载次数: 11)
15:26 上传
下载次数: 11
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
ww0000 发表于
把4楼与5楼的结合起来就行了
我附件的就是结合4楼和5楼的，但是不能用，求解
在线时间21 小时经验16 威望0 性别保密最后登录注册时间阅读权限10UID2942943积分16帖子精华0分享0
EH新人, 积分 16, 距离下一级还需 4 积分
积分排行3000+帖子精华0微积分0
Vicel 发表于
多excel文件选择，批量设置或取消工作表保护密码
大神，谢谢！这个就是多选择一次，还是很好的！
在线时间1087 小时经验557 威望0 性别保密最后登录注册时间阅读权限30UID911444积分557帖子精华0分享0
EH中级, 积分 557, 距离下一级还需 543 积分
积分排行1950帖子精华0微积分0
Sub SheetsProtect()
'保护工作表
Application.ScreenUpdating = False '关闭屏幕刷新,防止在操作时的闪烁
Application.DisplayAlerts = False '屏蔽提示框弹出
Dim XlsFile, mySheet As String '定义一个文件名变量
Dim sht As Worksheet
Dim mybook As Workbook '定义文件对象变量
On Error Resume Next
XlsFile = Dir(ActiveWorkbook.Path & &\*.xls&) ' 用Dir函数获取当前文件夹中的文件列表
Do '开始在文件名之间进行循环
If InStr(1, XlsFile, &程序文件&) = 0 Then '为了不操作当前程序文件,所以要把程序文件排除
Set mybook = Workbooks.Open(ActiveWorkbook.Path & &\& & XlsFile, Password:=&&) '逐个打开文件并把它交给对象变量
For Each sht In mybook.Worksheets
& & mySheet = sht.Name
& & mybook.Sheets(mySheet).Protect Password:=&1234&, DrawingObjects:=True, Contents:=True, Scenarios:=True
mybook.Close ' savechanges:=True '关闭文件并保存
End If '结束判断
XlsFile = Dir '让xlsfile等于dir产生的文件列表中下一个文件名
Loop Until Len(XlsFile) = 0 '如果到文件列表结束则停止循环
Application.DisplayAlerts = True '打开提示框提示功能
Application.ScreenUpdating = True '打开并屏幕刷新功能
Sub SheetsUnProtect()
'取消保护工作表
Application.ScreenUpdating = False '关闭屏幕刷新,防止在操作时的闪烁
Application.DisplayAlerts = False '屏蔽提示框弹出
Dim XlsFile, mySheet As String '定义一个文件名变量
Dim sht As Worksheet
Dim mybook As Workbook '定义文件对象变量
On Error Resume Next
XlsFile = Dir(ActiveWorkbook.Path & &\*.xls&) ' 用Dir函数获取当前文件夹中的文件列表
Do '开始在文件名之间进行循环
If InStr(1, XlsFile, &程序文件&) = 0 Then '为了不操作当前程序文件,所以要把程序文件排除
Set mybook = Workbooks.Open(ActiveWorkbook.Path & &\& & XlsFile, Password:=&&) '逐个打开文件并把它交给对象变量
For Each sht In Worksheets
& & sht.Unprotect &1234&
mybook.Close ' savechanges:=True '关闭文件并保存
End If '结束判断
XlsFile = Dir '让xlsfile等于dir产生的文件列表中下一个文件名
Loop Until Len(XlsFile) = 0 '如果到文件列表结束则停止循环
Application.DisplayAlerts = True '打开提示框提示功能
Application.ScreenUpdating = True '打开并屏幕刷新功能
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&每次打开excel文件都会弹出一个提示框“Excel辅助工具不能创建activeX对象，当前windows用户必须拥有超级_百度知道
每次打开excel文件都会弹出一个提示框“Excel辅助工具不能创建activeX对象，当前windows用户必须拥有超级
在office2007版本中搞出来的，现在不知道在哪卸载，而且附带打开另一个文件名为工作簿1的excel文件。这是在一次尝试安装excel辅助工具后出现的，重装office也不行，现在装了office2010还有这个相同的问题每次打开excel文件都会弹出一个提示框“Excel辅助工具不能创建activeX对象！”，当前windows用户必须拥有超级用户的权限。高手解答谢谢。系统win7
如果确实需要笨办法，然后重新安装即可。覆盖安装是不会将原来的项目删除的，估计需要卸载OFFICE后;EXCEL选项---&加载项 那里检查下项目 建议检查下 开始菜单 ---&gt，删除残余文件，所以直接重新安装时没有效果的
其他类似问题
activex的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁