excel中ba如下代码只能禁止删除某一个表，如"SHEET1"，如何修改代码禁止删除多个表

求一个代码，让excel表格的内容只能够添加，不能修改或删除~

工作表selectionchange事件:
if target"" then
target.offset(1,0).select
end if
输入代码后选择有内容的单元格时，自动跳至下方第一个空白单元格。

为了验证代码是否获得除了sheet1表以外的其它表：

Sub wfdele()
Dim sh As Worksheet
Dim c As Long
Dim r As Long
Dim LastRow As Integer
Dim Lastcolumn As Integer
For Each sh In Worksheets
debug.print sh.name　　　'增加的代码
Lastcolumn = sh.[IV1].End(xlToLeft).Column
LastRow = sh.[a65536].End(xlUp).Row
For c = 1 To Lastcolumn
If sh.Cells(1, c).Value = "b" Then
For r = LastRow To 1 Step -1
If sh.Cells(r, c).Value = "0" Then
Range(r & ":" & r).Delete shift:=xlUp
End If
Next
End If
Next
Next
End Sub

如法炮制多复制几份，应该可以吧
Sub MyDelSht()
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET1" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET2" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET3" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET4" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET5" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET6" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
If VBA.UCase$(ActiveSheet.CodeName) = "SHEET7" Then
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
Else
ActiveSheet.Delete
End If
......
End Sub

或者干脆所有工作表都不允许删除：
Sub MyDelSht()
MsgBox "禁止删除" & ActiveSheet.Name & "工作表!"
End Sub

---

白银市15142975124： 在excel中如何不让别人插入或删除行或列,但又能让别人在单元格中输入内容? - ？
墨种头孢： 按Alt+F11,双击你要设置的那张工作表,粘贴如下代码即可.Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

白银市15142975124： 我的Excel出现了宏,如何删除Excel表中的宏.如果降低表的安全性,那就打不开了能是？
墨种头孢： 如果只是删除工作簿中的宏,可以在表格中按ALT+F11键,调出VBA窗口,在该窗口中的左侧找到工作簿中的工作表列表,用鼠标双击它们,就会在窗口的中间位置弹出相应的代码窗口,如果哪个代码窗口中有字符出现(其实就是VBA代码),用鼠标选中它们直接删除,最后保存这个工作簿就好了.

白银市15142975124： excel中怎么删除重复的记录,保留某项值最大的那个记录?? - ？
墨种头孢： excel对重复值操作的方法比较多,常见的有以下几种: 1. 条件格式:选中源数据区域-->开始-->条件格式-->新建规则-->对于唯一值或重复值设 置格式-->格式-->选择一种填充色-->确定,操作完成后,源数据区域所有的重复数据便 被标记上了颜...

白银市15142975124： excel中怎样保护vba代码不被查看和修改 - ？
墨种头孢： 工具/原料 excel 步骤/方法 第1步骤: excel 第2步骤: 1 打开excel以后,在菜单栏上执行:开发工具--vb,如图所示图片1第3步骤: 2 绝地反击地方输入一段代码,随便输入就可以了,我 图片1第4步骤: 3 在左侧导航栏,选中你要加密的一个工...

白银市15142975124： 在EXCEL中,如何筛选数据,只显示有数据的行(不能删除行)???？
墨种头孢： 此问题可以用VBA解决,只是楼主不肯花时间想而已 …………………………………………………………… 楼上的方法需要转置 但用VBA挺简单:按下alt + F11,空白处右击插入模块,复制粘贴下面代码按F5即运行.(“For i = 1 To 4”指从第一...

白银市15142975124： 在excel中使用一个函数判断 如a1符合条件则,当前行隐藏否则不隐藏,有这样的函数吗? 或者其他实现的方法 - ？
墨种头孢： 首先在表中输入相应的内容 例如:第一行:A1 1 第二行:A2 2 第三行:A3 3 第四行:A4 4..........................然后点击“工具”——“宏”——“VB编辑器”在弹出的代码窗口中输入下面代码:就可以删除A列中为2的所有行.Sub myhide() For i ...

白银市15142975124： excel vba代码? - ？
墨种头孢： 一、工作表2-4,回主页代码如下: sub gotoHome() activesheet.visible=xlsheetveryhidden sheets(＂主页＂).activate end sub 二、工作表1,回工作表2-4,sheet2请自行修改为3,4,代码如下: sub gotoSht2() sheets(＂sheet2＂).visible=true sheets(＂sheet2＂).activate end sub手机打码,未测试,可继续追问 希望对你有帮助,请采纳,谢谢.

白银市15142975124： excel中用vba编写限制excel使用次数的代码 - ？
墨种头孢： Private Sub Workbook_Open() Worksheets(2).ScrollArea = ＂A1:IV65535＂ If Sheets(＂Sheet2＂).Cells(65536, 256).Value < 3 Then Sheets(＂Sheet2＂).Cells(65536, 256).Value = Sheets(＂Sheet2＂).Cells(65536, 256).Value + 1 ...

白银市15142975124： Excel中,使用REPLACE函数,对Sheet1中的员工代码进行升级. - ？
墨种头孢： 假设单元格A1的值为PA123456,复制下面的到单元格A2 =IF(LEFT(A1,2)=＂PB＂,A1,REPLACE(A1,1,2,＂PA0＂)) A2的结果是PA0123456,如果A1的值为PB123456则不作改变 不知道是不是你想要的结果