这个代码这么写？

dailj

用代码，移除ThisWorkbook里的宏，以及移除模块1。我研究了几天都没弄好

liulang0808

另存为扩展名为xlsx的工作簿，看看是否可行

leirongqin

你自己参考一下，修改吧，我自己的自杀文件，清除所有代码、窗体、模块。

1. Private Sub Workbook_Open()
   
2.     If Date <= #5/5/2023# Then Exit Sub
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     Application.CutCopyMode = False
   
6.     Application.DisplayStatusBar = False
   
7.     On Error Resume Next
   
8.     For Each sh In Sheets
   
9.         With ThisWorkbook.VBProject.VBComponents(sh.CodeName).CodeModule
   
10.             .DeleteLines 1, .CountOfLines
    
11.         End With
    
12.         Next sh
    
13.         Dim Vbc As Object
    
14.         For Each Vbc In Application.ThisWorkbook.VBProject.VBComponents
    
15.             Select Case Vbc.Type
    
16.             Case 1, 2, 3
    
17.                 With Application.VBE.ActiveVBProject.VBComponents
    
18.                     .Remove .Item(Vbc.Name)
    
19.                 End With
    
20.             End Select
    
21.         Next
    
22.         With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
    
23.             .DeleteLines 1, .CountOfLines
    
24.         End With
    
25.         ActiveWorkbook.Save
    
26.         Application.DisplayAlerts = True
    
27.         End Sub

复制代码

dailj

liulang0808 发表于 2022-12-16 08:12
另存为扩展名为xlsx的工作簿，看看是否可行

不行啊。没密码可以成功。但它现在有个"123"的密码

dailj

leirongqin 发表于 2022-12-16 11:22
你自己参考一下，修改吧，我自己的自杀文件，清除所有代码、窗体、模块。

嗯，没密码的话没问题，它现在有个"123"的密码，代码没效果

leirongqin

dailj 发表于 2022-12-16 20:26
嗯，没密码的话没问题，它现在有个"123"的密码，代码没效果

是工作表有密码，还是工作簿有密码。如果是工作表例如sheet1.Unprotect Password:="123"（sheet1指定工作表，123就是密码）

dailj

leirongqin 发表于 2022-12-17 08:33
是工作表有密码，还是工作簿有密码。如果是工作表例如sheet1.Unprotect Password:="123"（sheet1指定工作 ...

不是工作表的密码，是打开VB编辑器后，那个project的界面有密码"123"，不知有没有方法通过代码自动移除"模块1"？

leirongqin

dailj 发表于 2022-12-19 14:16
不是工作表的密码，是打开VB编辑器后，那个project的界面有密码"123"，不知有没有方法通过代码自动移除" ...

肯定是有办法的，你搜一下VBE界面登入代码，别人怎么写。我最近没空，帮不了你

dailj

leirongqin 发表于 2022-12-20 13:29
肯定是有办法的，你搜一下VBE界面登入代码，别人怎么写。我最近没空，帮不了你

搜了几天没弄好，sendkeys运行不流畅，而且不稳定，不会弄放弃

dailj

liulang0808 发表于 2022-12-16 08:12
另存为扩展名为xlsx的工作簿，看看是否可行

不好意思才理解你说的意思，真的可行