电子表格怎样锁定excel表格整个工作簿不能修改
2026-01-22 10:56:42
1.怎样锁定excel表格整个工作簿不能修改
如果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表,运行菜单 【工具】-【宏】-【宏】,选择 强行复制 这条宏,然后按执行。
四、假如有提示说宏的安全性被限制此阀互脆就诒脚错协氮茅类的信息,请在工具栏-【宏】-【安全性】里面把【安全级】设置为【中】。
2.Excel 自定义菜单二个或二个以上,如何锁定本工作簿专用
在thisworkbook下加如下代码:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Call auto_open
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars(1).Controls("日升消防专用(&T)").Delete
Application.CommandBars("cell").Reset
End Sub
