关于excel宏程序的相关应用，求助高手帮忙解决一下，在下感激不尽！

看下附件 excel 2010版本的 看看能用不  在sheet2  中插入代码

Private Sub Worksheet_Activate()

ApplicationVisible = False

n = InputBox("请输入密码")

If n <> "123" Then

    ApplicationQuit

    Else: ApplicationVisible = True

End If

End Sub

Private Sub CommandButton1_Click()

If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then

Sheets(1)Range("f4:aa30") = ""

Else

Exit Sub

End If

End Sub

Private Sub CommandButton10_Click()

If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then

Sheets(1)Range("a4:aa30") = ""

Else

Exit Sub

End If

End Sub

Private Sub CommandButton7_Click()

If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then

Sheets(1)Range("f4:aa30") = ""

Sheets(1)Range("d4:e30") = ""

Else

Exit Sub

End If

End Sub

详情请见附件  密码为123  自己更改

楼主，虽然您提问的时间已经过去半年多了。但今天我也遇到了和您一模一样的问题！起初我以为是版本问题，比如什么精简版、完全版的问题。但经过我重装Office以后发现问题还是没有解决，于是，我直接否定了是Office的问题。应该是系统设置的问题。 经过我在网上的疯狂搜索，有人说把“Visual Basic编辑器”中的“模块1X”改为英文名就可以了。我抱着试一试的希望改了下，居然成功了！（通过“Visual Basic编辑器”中的视图→属性窗口可调出） 但我又有新的问题了，我不能每次编写完宏都要把模块一个一个改成英文名啊。 后来我想起了一个主要原因，就是因公司需要，我把“控制面板”中的“区域和语言选项”设置成英文(英国)的了，这就导致了如果“Visual Basic编辑器”中的“模块1X”是中文名称，就会d出Visual Basic未找到。 说了这么多，解决方法如下： 打开“控制面板”→“区域和语言选项”，在区域选项卡里，把“标准和格式”中的语言改成中国(中国)就可以了。

就道题目很简单呀。用vba来数一下就可以了。我把过程写出来了

>

以上就是关于关于excel宏程序的相关应用，求助高手帮忙解决一下，在下感激不尽！全部的内容，包括:关于excel宏程序的相关应用，求助高手帮忙解决一下，在下感激不尽！、EXCEL,此工作簿已丢失了其 VBA 工程、ActiveX 控件以及其他任何与可编程序性相关的功能。、救一EXCEL编程程序，麻烦高手进来下，谢谢！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！