作者：乔山办公网日期：
返回目录：excel表格制作
下面的代码是复从我的程序里面复制的，稍制做百改动就可以适合你的需要度：
sName = Application.GetOpenFilename(dept & "文本知数据,*.txt;*.unl;*.cvs;*.csv", , "打开信息技术部提供的道文本数据文件")
If sName = False Then Exit Function
Sheets("工具").[b2].Value = sName
我做了一个密码如果输入的是123后，就继续往下执行，然后输来入行，即可删除所输入的行。源
如果密码三次输入都不是123，那么就退出。
将下面zd这几串代码复制到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
禁用 宏将百失效度
在 sheet1 sheet2 添加知
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "a1:a1"
ActiveWindow.Zoom = 10
If Application.InputBox("查看密道码", , ***) = 123 Then
Cells(1, 1).Select
ActiveSheet.ScrollArea = "a1:xfd1048576"
ActiveWindow.Zoom = 85
Else
MsgBox "错误,工作表回将隐藏答"
ActiveSheet.Visible = 0
End If
End Sub
Sub test()
myPW = "123456" '设置密码
p = InputBox("请输入百运行密码", "温馨提示度！", Default)
If myPW = p Then
MsgBox "OK" '删除此版句，插入权原代码
Else
MsgBox "密码错误，请重新输入！", , "温馨提示！"
End If
End Sub