怎样锁定excel表格整个工作簿不能修改
1个回答
展开全部
如果CTRL+A用不了,那么就是单元格保护里面限制了选择。
可以用VBA来强行选择复制:
一、按ALT+F11
打开VB编辑器
二、双击左边靠上的【工程资源管理器】中的【Microsoft
Excel
对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R),在右边的代码窗口贴入下面的代码:(根据实际情况按代码说明修改a、b的值,中的内容)
Sub
强行复制()
'修改以下两行中的工作表名字
Dim
a
As
String:
a
=
Sheet1
'修改成你需要复制的表名
Dim
b
As
String:
b
=
Sheet2
'修改成粘贴的空白表名
'以下不需要修改
Sheets(a).Cells.Copy
Sheets(b).Range(A1).Select
ActiveSheet.PasteEnd
Sub三、回到EXCEL表,运行菜单
【工具】-【宏】-【宏】,选择
强行复制
这条宏,然后按执行。
四、假如有提示说宏的安全性被限制此阀互脆就诒脚错协氮茅类的信息,请在工具栏-【宏】-【安全性】里面把【安全级】设置为【中】。
可以用VBA来强行选择复制:
一、按ALT+F11
打开VB编辑器
二、双击左边靠上的【工程资源管理器】中的【Microsoft
Excel
对象】中的ThisWorkbook(如果找不到【工程资源管理器】请按CTRL+R),在右边的代码窗口贴入下面的代码:(根据实际情况按代码说明修改a、b的值,中的内容)
Sub
强行复制()
'修改以下两行中的工作表名字
Dim
a
As
String:
a
=
Sheet1
'修改成你需要复制的表名
Dim
b
As
String:
b
=
Sheet2
'修改成粘贴的空白表名
'以下不需要修改
Sheets(a).Cells.Copy
Sheets(b).Range(A1).Select
ActiveSheet.PasteEnd
Sub三、回到EXCEL表,运行菜单
【工具】-【宏】-【宏】,选择
强行复制
这条宏,然后按执行。
四、假如有提示说宏的安全性被限制此阀互脆就诒脚错协氮茅类的信息,请在工具栏-【宏】-【安全性】里面把【安全级】设置为【中】。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |