execl工作表数据导入到加了密的ACCSEE数据库

w8899

yunfei2018 发表于 2018-8-27 11:05
用二楼的数据库档案就没问题，那是调整过的，

谢谢你了，我也不知道什么原因有得行了，但F22的销售员那一列给我搞在了F1列，有点神奇

w8899

yunfei2018 发表于 2018-8-27 11:05
用二楼的数据库档案就没问题，那是调整过的，

我对比了一下，实际上就是ACCSEE和EXECL的单元格格式 字段的问题，一个是单元格格式  一个是字段表示，捉迷藏

谢谢给我帮助的老师。祝您青春常在，笑口常开。

w8899

yunfei2018 发表于 2018-8-27 11:05
用二楼的数据库档案就没问题，那是调整过的，

老师再问一个问题，为什么我同时修改密码后再保存时提示密码无效

yunfei2018

w8899 发表于 2018-8-28 09:05
老师再问一个问题，为什么我同时修改密码后再保存时提示密码无效

先以独占方式打开数据库，取消密码，保存，关闭。

按图设置，


再以独占方式打开数据库，重新设置密码，保存，关闭。

OK

w8899

yunfei2018 发表于 2018-8-28 11:50
先以独占方式打开数据库，取消密码，保存，关闭。

按图设置，

谢谢您了，完美解决，就是后面那个加密方法没选对

w8899

yunfei2018 发表于 2018-8-27 11:05
用二楼的数据库档案就没问题，那是调整过的，

Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "隐藏" Then
    Sheet1.Visible = xlSheetHidden
    Sheet3.Visible = xlSheetHidden
    Sheet5.Visible = xlSheetHidden
    Me.CommandButton1.Caption = "显示"
Else
    Sheet1.Visible = xlSheetVisible
    Sheet3.Visible = xlSheetVisible
    Sheet5.Visible = xlSheetVisible
    Me.CommandButton1.Caption = "隐藏"
End If
End Sub

老师能否为这个批量显示隐藏工作表加个密码

老师这个问题我解决了
Sub 隐藏工作表()
    If Application.InputBox("请输入密码:") = 14358899 Then
        Sheet1.Visible = 2
        'Sheet2.Visible = 2
        'Sheet3.Visible = 2
        Sheet4.Visible = 2
        Sheet5.Visible = 2
        'Sheet6.Visible = 2
        Sheet7.Visible = 2
        Sheet8.Visible = 2
        Sheet9.Visible = 2
        Sheet10.Visible = 2
        Sheet11.Visible = 2
        Sheet12.Visible = 2
        Sheet13.Visible = 2
        Sheet14.Visible = 2
        Sheet15.Visible = 2
        'Sheet16.Visible = 2
        Sheet17.Visible = 2
        Sheet18.Visible = 2
        Sheet19.Visible = 2
        Sheet20.Visible = 2
        Sheet21.Visible = 2
        'Sheet22.Visible = 2
        Sheet23.Visible = 2
        Sheet24.Visible = 2
        'Sheet25.Visible = 2
        Sheet26.Visible = 2
        'Sheet27.Visible = 2
    End If
End Sub

Sub 显示工作表()
    If Application.InputBox("请输入密码:") = 14358899 Then
        Sheet1.Visible = -1
        Sheet2.Visible = -1
        'Sheet3.Visible = -1
        Sheet4.Visible = -1
        Sheet5.Visible = -1
        'Sheet6.Visible = -1
        Sheet7.Visible = -1
        Sheet8.Visible = -1
        Sheet9.Visible = -1
        Sheet10.Visible = -1
        Sheet11.Visible = -1
        Sheet12.Visible = -1
        Sheet13.Visible = -1
        Sheet14.Visible = -1
        Sheet15.Visible = -1
        'Sheet16.Visible = -1
        Sheet17.Visible = -1
        Sheet18.Visible = -1
        Sheet19.Visible = -1
        Sheet20.Visible = -1
        Sheet21.Visible = -1
        'Sheet22.Visible = -1
        Sheet23.Visible = -1
        Sheet24.Visible = -1
        'Sheet25.Visible = -1
        Sheet26.Visible = -1
        'Sheet27.Visible = -1
    End If
End Sub