请问这个VBA程序怎么更改？

Sub check()

Dim i As Integer

Dim s As Integer

s = InputBox("请胡喊旅输入渗腊查找裤凳内容")

For i = 1 To 1000

If Cells(1, i) = s Then

MsgBox "找到" &i &"列 " &Cells(1, i)

Exit Sub

End If

Next

MsgBox "not find"

End Sub

1．信任对于VB项目的访问

Sub SetAllowableVbe()

On Error Resume Next

Dim Chgset As Boolean

'陷阱测试迅让轮，VBProject.Protection在这儿并无实亩信际的意义

Debug.Print ThisWorkbook.VBProject.Protection

If Err.Number = 1004 Then

  Err.Clear

  Application.SendKeys "%TMS%T%V{ENTER}"

  Chgset = True

  DoEvents

End If

End If

End If

'要执行的 *** 作....

'.....

' *** 作完成后还原 *** 作前的状态

If Chgset Then Application.SendKeys "%TMS%T%V{ENTER}"

End Sub

2．滑如 *** 作密码工程

Sub AllowPass()

Dim pw$

pw = "SH"

If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then

  Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute

  Application.SendKeys pw &"{ENTER}{ENTER}"

  DoEvents

End If

'要执行的 *** 作….

'.....

End Sub

不要将代码放到sheet2里乎饥。在vb界面盯顷山下，右键，插入，模块，将凯中你的代码copy进去，记住名字改成其它的。然后你可以为这个宏指定快捷键（ctrl

+

?):

如，2007版下，宏，查看宏，选项。

---