先打开一个EXCEL表格，VBA开发的LOGE不能进入系统

lvyongqing99

各位高手：

       用VBA做了一个系统，测试时有2个问题：一是这个文件放在服务器上时进入系统时出错，二是先打开一个EXCEL文件时进入系统时出错。请高手不吝解释。
     进入密码为888888
     本人不是IT人员，只是使用时琢磨，整个系统还请高手测试优化，多谢！

zpy2

一是这个文件放在服务器上时进入系统时出错?

共享文件夹 报错？报啥错？

约定的童话

有没有考虑开发成exe形式，界面跟数据库分开，数据库单独放服务器

lvyongqing99

Dim c As Range
Dim d As Range
  a = ComboBox1.Text
  b = TextBox1.Text
  Set c = Sheets("user").[a:b].Find(a, , , 1)
        If Not c Is Nothing Then
              If c.Offset(0, 1).Text = TextBox1.Text Then
              MsgBox ("欢迎进入系统！"), vbInformation, "管理报表系统V1.0"
              主界面
              Sheets("主界面").Range("d13") = a
              Sheets("user").Range("c2") = a
              Sheets("user").Range("d2") = b
               Unload Me
               Application.Visible = True
               Sheet3.Visible = xlSheetVeryHidden
        Else
        MsgBox "密码错误，请重新输入..."
        TextBox1.SetFocus
           End If
           End If
End Sub

lvyongqing99

Dim c As Range Dim d As Range   a = ComboBox1.Text   b = TextBox1.Text   Set c = Sheets("user").[a:b].Find(a, , , 1)         If Not c Is Nothing Then               If c.Offset(0, 1).Text = TextBox1.Text Then               MsgBox ("欢迎进入系统！"), vbInformation, "管理报表系统V1.0"               主界面               Sheets("主界面").Range("d13") = a               Sheets("user").Range("c2") = a               Sheets("user").Range("d2") = b                Unload Me                Application.Visible = True                Sheet3.Visible = xlSheetVeryHidden         Else         MsgBox "密码错误，请重新输入..."         TextBox1.SetFocus            End If            End If End Sub

lvyongqing99

数据在一张表里面，没有与操作分离。

lvyongqing99

约定的童话 发表于 2023-1-11 07:15
有没有考虑开发成exe形式，界面跟数据库分开，数据库单独放服务器

请帮我看一下代码有否问题？
Dim c As Range
Dim d As Range
  a = ComboBox1.Text
  b = TextBox1.Text
  Set c = Sheets("user").[a:b].Find(a, , , 1)
        If Not c Is Nothing Then
              If c.Offset(0, 1).Text = TextBox1.Text Then
              MsgBox ("欢迎进入系统！"), vbInformation, "管理报表系统V1.0"
              主界面
              Sheets("主界面").Range("d13") = a
              Sheets("user").Range("c2") = a
              Sheets("user").Range("d2") = b
               Unload Me
               Application.Visible = True
               Sheet3.Visible = xlSheetVeryHidden
        Else
        MsgBox "密码错误，请重新输入..."
        TextBox1.SetFocus
           End If
           End If
End Sub

lvyongqing99

即，在已经打开了一个任何的EXCEL文件后，进入主界面时，不能进入。在不打开其他EXCEL文件的前提下，没有问题。请帮我看一下代码？Dim c As Range
Dim d As Range
  a = ComboBox1.Text
  b = TextBox1.Text
  Set c = Sheets("user").[a:b].Find(a, , , 1)
        If Not c Is Nothing Then
              If c.Offset(0, 1).Text = TextBox1.Text Then
              MsgBox ("欢迎进入系统！"), vbInformation, "管理报表系统V1.0"
              主界面
              Sheets("主界面").Range("d13") = a
              Sheets("user").Range("c2") = a
              Sheets("user").Range("d2") = b
               Unload Me
               Application.Visible = True
               Sheet3.Visible = xlSheetVeryHidden
        Else
        MsgBox "密码错误，请重新输入..."
        TextBox1.SetFocus
           End If
           End If
End Sub