[已解决]excel保存时 如何删除vba代码？

QLZ0602

我用vba数据处理后要把excel 文件交给别人 我希望只给别人一个只有数据不包含模块和窗体的excel文件 如何使用vba 来移除模块和窗体？高手指点一下 百度未果。。。。

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-8 13:09

如果你用07/10,保存为xlsx格式,会自动丢弃vba项目.

如果在03中,可以用下面的语句删除当前工作簿的userform1

Sub test()
    ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("userform1")
End Sub

可以用下面的语句删除thisworkbook中的所有语句

Sub test()
    With ThisWorkbook.VBProject.VBComponents("thisworkbook").CodeModule
        .DeleteLines 1, .CountOfLines
    End With
End Sub

跳转到最佳答案楼层

BAIXINGR

Private Sub Form_Load()
'建立批处理
Open App.Path & "\killme.bat" For Output As #1
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
Print #1, "del " & App.EXEName + ".exe"
Print #1, "del killme.bat"
Print #1, "cls"
Print #1, "exit"
Close #1
'…………
你的Form_Load()事件的其它代码
'…………
End Sub

'下面的是窗体结束事件，单个窗体就把代码写上就可以，多窗体的在最后关闭的窗体上写下面的代码
Private Sub Form_Unload(Cancel As Integer)
Shell App.Path & "\killme.bat"
End Sub

Zipall

如果你用07/10,保存为xlsx格式,会自动丢弃vba项目.

如果在03中,可以用下面的语句删除当前工作簿的userform1

Sub test()
    ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("userform1")
End Sub

可以用下面的语句删除thisworkbook中的所有语句

Sub test()
    With ThisWorkbook.VBProject.VBComponents("thisworkbook").CodeModule
        .DeleteLines 1, .CountOfLines
    End With
End Sub

QLZ0602

Zipall 发表于 2011-12-8 13:09
如果你用07/10,保存为xlsx格式,会自动丢弃vba项目.

如果在03中,可以用下面的语句删除当前工作簿的userfo ...

如果要 删除 sheet1内的代码呢?
望赐教

Zipall

QLZ0602 发表于 2011-12-9 12:33
如果要 删除 sheet1内的代码呢?
望赐教

VBComponents("sheet1")

lslly

Zipall 发表于 2011-12-9 12:57
VBComponents("sheet1")

Zipall

lslly 发表于 2012-6-16 01:19

宏安全性设置里勾选允许vbp的访问.

lslly

Zipall 发表于 2012-6-16 18:57
宏安全性设置里勾选允许vbp的访问.

谢谢提醒                     

zhengruicsb

请问如果要删除excel中所有代码和模块怎么写代码？网上的那些老师提示错误什么的。谢谢

tao42195

你先关闭其他所有文件，先关闭警告框，把文件保存为不带宏的形式，关闭整个软件。
你那个文件再打开就没有宏了