麻烦看一下代码哪里错了？还有两个小要求

totalwolf

麻烦看一下代码哪里错了？

Private Sub CommandButton1_Click()
    [d2] = ""
    [f2] = ""
    [b3] = ""
    [e3] = ""
    [f3] = ""
CommandButton2.Enabled = True
    If [b2] <> "" Then
        Else
        [b2] = VBA.Date
    End If
   
    orderno = "'" & Format([b2], "yyMM") & Format(GetOrderNo([b2]), "00000")
    [d2] = orderno
   
End Sub

Function GetOrderNo(dte As Date) As Integer
   
    Dim cnn As New Connection
    Dim rs As New Recordset
   
    Dim sqlstr As String
   
    With cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0"
        .CursorLocation = adUseClient
        .Open
    End With
   
    sqlstr = "select max(right([订单编号],5)) from [sheet2$a:f] where [订单日期]=#" & dte & "#"
    rs.Open sqlstr, cnn
    If Not rs.EOF And IsNull(rs.Fields(0)) = False Then
        i = rs.Fields(0)
        Else
        i = 0
    End If
    GetOrderNo = i + 1
End Function

Private Sub CommandButton2_Click()
    i = Sheet3.Range("a65536").End(xlUp).Row + 1
    'MsgBox i
    Sheet3.Range("a" & i) = [b2]
    Sheet3.Range("b" & i) = [d2]
    Sheet3.Range("c" & i) = [f2]
    Sheet3.Range("d" & i) = [b3]
    Sheet3.Range("e" & i) = [e3]
    Sheet3.Range("f" & i) = [f3]



    CommandButton2.Enabled = False
End Sub

Private Sub Worksheet_Activate()



End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 3 And Target.Column = 5 Then
        'MsgBox Target.Address
        [b3] = Sheet2.Range("c:c").Find(Target.Value).Offset(0, -2).Value
        '[e3] = Sheet2.Range("c:c").Find(Target.Value).Offset(0, -1).Value
        
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub




测试显示一下内容


运行时错误“1004”
应用程序定义或对象定义错误

还有两个小要求
1，
设置权限。
1，开单员增加可以查看SHEET2的权限。
2，3个用户设置密码，密码不一样或可修改。

密码是12345

liwen

合并单元格把所有的单元格都包括进去如:[B3:C4],[E3:I4]或取消单元格的锁定状态.
1.不隐藏而只使用保护工作表
    Sheet2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Sheet2Protect"
   Sheet2.Unprotect Password:="Sheet2Protect"
2密码你可以随便设,当然可以不同,要想用户密码可以更改的话,使用单独的表存储用户密码信息.

totalwolf

可以帮我改一下吗？我是初学者，很多都还在摸索中。

liwen

初学就应该多尝试,借助录制宏可以简化一些思路和避免书写错误.多使用帮助文件,要善于从别人的提示中找到一些关键词,通过这些关键词查找更多帮助.

totalwolf

谢谢版主！谢谢.我也在努力学习中。   SHEET2设置保护密码是多少？

liwen

sheet2保护密码在代码中,Password:后

totalwolf

谢谢！