excel如何禁止插入和删除文档

amansbj

请问各位老师：   如何在不使用  “保护工作簿” 的前提下    禁止工作薄删除和添加文档
最好是使用  VBA 实现

沈默00

用VBA代码写成工作薄保护吧，比较方便

沈默00

禁止增加倒是好处理，先来一个

沈默00

1. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
2. 
   
3. Application.DisplayAlerts=False
   
4. 
   
5. ActiveSheet.Delete
   
6. 
   
7. Application.DisplayAlerts=true
   
8. 
   
9. End Sub

复制代码

饮冰e士

禁止添加好解决，禁止删除估计不太好实现。

可以参照下面这个帖子：

https://club.excelhome.net/threa ... tml?_dsign=7a6c8b8b

1. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
2.   If ThisWorkbook.Worksheets.Count > 3 Then
   
3.     Application.DisplayAlerts = False
   
4.     Sh.Delete
   
5.     MsgBox "最多只能创建3张表，超标了喔！", vbCritical, "提醒"
   
6.     Application.DisplayAlerts = True
   
7.   End If
   
8. End Sub

复制代码

amansbj

沈默00 发表于 2024-8-31 14:34
禁止增加倒是好处理，先来一个

1. Option Explicit
   
2. 
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4. Dim ws As Worksheet
   
5. Sheet1.Visible = -1
   
6. For Each ws In Worksheets
   
7.     If ws.CodeName <> "Sheet1" Then ws.Visible = 2
   
8. Next
   
9. ThisWorkbook.Save
   
10. End Sub
    
11. 
    
12. Private Sub Workbook_Open()
    
13.    MsgBox "宏已自动启用并运行！"
    
14. Dim ws As Worksheet
    
15. For Each ws In Worksheets
    
16.     ws.Visible = -1
    
17. Next
    
18. Sheet1.Visible = 2
    
19. End Sub
    
20. 
    
21. 'Private Sub Workbook_Open()
    
22. '    MsgBox "宏已自动启用并运行！"
    
23. 'End Sub
    
24.   
    
25. Sub CenterComments()
    
26.     Dim ws As Worksheet
    
27.     Dim cmt As Comment
    
28.   
    
29.     For Each ws In ThisWorkbook.Sheets
    
30.         For Each cmt In ws.Comments
    
31.             With cmt.Shape.TextFrame
    
32.                 .HorizontalAlignment = xlHAlignCenter
    
33.                 .VerticalAlignment = xlVAlignCenter
    
34.             End With
    
35.         Next cmt
    
36.     Next ws
    
37.   
    
38.     MsgBox "所有批注已居中！"
    
39. End Sub
    
40.   
    
41. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
42.     Application.CutCopyMode = False
    
43. End Sub
    
44.   
    
45. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
46.     Application.CutCopyMode = False
    
47. End Sub

复制代码

我当前的代码是这样的，似乎不能采用保护工作簿的方法，我上边的代码我试过，只要保护工作簿就会报错！

jaxxcyh

沈默00 发表于 2024-8-31 14:34
禁止增加倒是好处理，先来一个

刚一出生就被你一把掐死

amansbj

沈默00 发表于 2024-8-31 14:34
禁止增加倒是好处理，先来一个

老师  代码我试了，目前可删除（目标未实现）
禁止插入sheet已经实现了

沈默00

amansbj 发表于 2024-8-31 14:49
老师  代码我试了，目前可删除（目标未实现）
禁止插入sheet已经实现了

我这个代码就只是禁止添加，，，
禁止删除可不太好弄，，，暂时没想到什么好办法，，，
所以我的个人建议还是用工作表保护，，

沈默00

jaxxcyh 发表于 2024-8-31 14:45
刚一出生就被你一把掐死

这个叫没办法的办法，，，，