在B3处输入：123单位

djyang

老师们：

在B3处输入：123单位（提示对话框 Book1.zip (4.05 KB, 下载次数: 4)

2018-6-22 14:40 上传

点击文件名下载附件

）：如果B4不等于AAA123。强制退出。



已解决。是从本网上找的

djyang

老师帮帮忙

lsc900707

djyang 发表于 2018-6-22 20:18
老师帮帮忙

在B3处输入：123单位 ，如果B4不等于AAA123
从B3变成B4的内在逻辑是什么？

djyang

俩个名称。b4是已经存在的

djyang

b3是输入。与b4没关系。

djyang

lsc900707 发表于 2018-6-22 20:42
在B3处输入：123单位 ，如果B4不等于AAA123
从B3变成B4的内在逻辑是什么？

Private Sub Workbook_Open()
    Dim str, i%, str1
    If Sheet5.Range("B4") <> "AAA123" Then
       For i = 5 To 1 Step -1
         If i = 5 Then
            str1 = "发现异常，请输入密码,你还有 " & i & "次输入机会!"
         Else
            str1 = "密码错误，请重新输入，你还有 " & i & "次输入机会!"
         End If
         str = Application.InputBox(str1, "请输入密码:")
         If str = "djyang78951" Then
            MsgBox "密码正确，你可以正常使用本表格！"
            Exit Sub
         End If
       Next
       If i = 0 Then Windows(ThisWorkbook.Name).Visible = False
    End If
End Sub

djyang

lsc900707 发表于 2018-6-22 20:42
在B3处输入：123单位 ，如果B4不等于AAA123
从B3变成B4的内在逻辑是什么？

B4就是这样可以解决，简单加上B3功能就行了，老师输入如何解决。B3与B4没有关系。

sub aa()
    Dim str, i%, str1
    If Sheet5.Range("B2") <> "单位名称：有限公司" Then
       For i = 5 To 1 Step -1
         If i = 5 Then
            str1 = "发现异常，请输入密码,你还有 " & i & "次输入机会!"
         Else
            str1 = "密码错误，请重新输入，你还有 " & i & "次输入机会!"
         End If
         str = Application.InputBox(str1, "请输入密码:")
         If str = "djyang78951" Then
            MsgBox "密码正确，你可以正常使用本表格！"
            Exit Sub
         End If
       Next
       If i = 0 Then Windows(ThisWorkbook.Name).Visible = False
    End If
End Sub