yhkn.net
当前位置:首页 >> VBA,怎么用代码删除 thisworkBook 里面的代码, >>

VBA,怎么用代码删除 thisworkBook 里面的代码,

不在 workbook_beforeclose 事件写程序,而是在添加专属的工具栏时,把它设置为临时的.下面时在 帮助中复制的相关内容,以做参考:add方法应用于 commandbars 对象的情形.新建一个命令栏并添加到命令栏集合.返回 commandbar 对象.expression.add(name, position, menubar, temporary)temporary variant 类型,可选.设置为 true 将使新命令栏为临时命令栏.临时命令栏在关闭容器应用程序时删除.默认值为 false.

1. 打开已有代码的文件,按:Alt + F11,即进入VBE编辑界面.2. 双击左边:ThisWorkbook ,在右边的代码窗口中即看到代码.3. 复制这些代码,同理打开你想要添加的文件,粘贴过去就行了.4. 加VBA工程密码:按:Alt + F11,工具菜单, VBAProject属性,保护,在“查看时锁定工程”打勾,在下面的密码对话框输入你要想的密码,保存退出即可.这样够详细了吧.

你是想给别人一份没有宏的文件,那么换个思路,代码如下:Sub test()ThisWorkbook.Sheets.CopySheets.Select'Cells.Copy'Cells.PasteSpecial Paste:=xlPasteValues'Application.CutCopyMode = False'Sheets(1).SelectActiveWorkbook.SaveAs "tmp.xls"ActiveWorkbook.CloseEnd Sub去掉的部分代码可以将公式变为数值(需要的话,你再去掉').

亲,假设当前代码所在的模块名称为“ABC”,试一下这个代码:With ThisWorkbook.VBProject For Each vbc In .VBComponents If vbc.Name = "abc" Then Select Case vbc.Type Case 1, 2, 3 .VBComponents.Remove .VBComponents(vbc.Name) Case Else vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines End Select End If Next End With

Alt+F11直接把代码全部删掉!或者菜单里面找到宏管理器,里面有所有的函数,点删除.

Sub 删除B模块()With ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("B")End WithEnd Sub给你个语句,至于具体的,自己循环吧.得根据模块名字来.

把做好代码设置为事件代码Workbook_Open() 另存为加载宏.然后工作表自动加载刚才做的这个宏就可以实现了.

Sub 删除空白表()Dim sh As ObjectApplication.DisplayAlerts = FalseFor Each sh In Worksheets If Application.CountA(sh.UsedRange.Cells) = 0 Then sh.Delete End IfNextApplication.DisplayAlerts = TrueEnd Sub

如下两个语句就可以: Sub 宏1() Selection.SpecialCells(xlCellTypeFormulas, 16).Select Selection.ClearContentsEnd Sub第一个语句的功能是选择工作表中所有公式值为错误的单元格,第二个语句清除这些错误单元格的内容.

下面代码可以删除当前工作簿的sheet1中的所有代码.Sub test() With ThisWorkbook.VBProject.VBComponents("sheet1").CodeModule .DeleteLines 1, .CountOfLines End With End Sub 如果提示"不信任到vbp的程序连接",需要先在宏安全性的可靠发行商里勾选"信任对于vbp的访问"

相关文档
网站首页 | 网站地图
All rights reserved Powered by www.yhkn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com