VBA实现点击按钮后在弹出的对话框输入行号，并将该行删除。

Question

我需要在EXCEL中创建一个按钮，点击按钮之后执行以下程序，按钮上的文字显示“删除某行”。
一、弹出对话框“请输入密码：”输入正确之后继续向下执行，否则自动退出；
二、自动撤销带密码保护的工作表保护（保护密码是固定的）；
三、弹出对话框提示“请输入要删除的行号：”，后面带可输入数字的文本框，用户输入行号对应的数字之后点击确定，如果放弃或退出可点击“取消”后自动退出；
四、
系统自动删除已输入的行号所对行的行；
五、
自动使用前边撤销保护时使用的密码保护工作表。

非常感谢好心的大侠，最好能够上传一个实例的附件，
或者把全部完整的代码回复上来。

Answer 1

我做了一个密码如果输入的是123后，就继续往下执行，然后输入行，即可删除所输入的行。

如果密码三次输入都不是123，那么就退出。

将下面这几串代码复制到sheet1中

Private Sub CommandButton1_Click()

1:

n = n + 1

If n > 3 Then

Exit Sub

Else

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

If mima <> 123 Then GoTo 1

Me.Unprotect (123)

End If

shrow = Application.InputBox("请输入行号", , , , , , 1)

Rows(shrow).Delete

Me.Protect 123, 1, 1

End Sub

将下面的代码复制到thisworkbook中

Private Sub Workbook_Open()

Sheet1.Activate

Sheet1.Protect 123, True, True

End Sub

本回答被提问者采纳

Answer 2

这是作业吧，去淘宝找人吧

Answer 3

还请提问者上传一个实例附件，注明要输入的密码是什么？工作表保护密码是什么？
提问都不愿意上传附件，回答者怎么有动力上传附件呢？本回答被网友采纳