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

amansbj

沈默00 发表于 2024-8-31 16:31
我这个代码就只是禁止添加，，，
禁止删除可不太好弄，，，暂时没想到什么好办法，，，
所以我的个 ...

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

复制代码

那老师如果我采用保护工作薄的方法，那这段代码能否帮忙看下，尤其是第一段和第二段代码！
这两段代码是通过增加引导然后启用宏：初始状态隐藏除了sheet1以外的所有工作表，只有点击启用宏之后会隐藏sheet1，然后显示其他的sheet文档，从而做到引导启用宏的效果。
因为文档内的宏代码是为了将文件传输给其他人后，防止他人随意更改文件格式。

当前代码是添加引导后就无法使用保护工作簿（宏代码报错）。