excel 宏怎么删除
来源:百度知道 编辑:UC知道 时间:2024/06/07 13:40:13
我按CTRL+F11,什么代码都没有呀?
工具-宏,选择你要删除的宏名称,选择删除即可.
它的删除按钮是灰色的可能是编辑者设了密码保护。
新建一个工作表,按ALT+F11进入VBA编辑器,新建模块,把下面的代码复制到里面,运行MoveProtect宏去处密码后,再删除宏。
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else