小小出入库管理系统(2012年12月又作了更新)

feixiang521 · 发表于 2020-7-18 18:07

WIN10专业版64位，office2019 32位，操作时点第一次会出现发的那个截图，然后那句代码会变成黄色。对应的工作表没有删除。点第二次时能打开对应的工作表。

feixiang521 · 发表于 2020-7-18 18:10

zjdh · 发表于 2020-7-19 08:00

是点击单价“单据录入”吗？

feixiang521 · 发表于 2020-7-19 08:20

不是的，是权限设置这块

feixiang521 · 发表于 2020-7-19 08:21

点第一下会出个错误提示，然后点结束，再点一下，就能打开要打开的工作表

feixiang521 · 发表于 2020-7-19 08:22

出现错误提示后，如果点调试，就出现

zjdh · 发表于 2020-7-19 13:16

我的附件中没有此工作表啊。

zjdh · 发表于 2020-7-19 13:24

我的附件中，你这情况从来没人出现过，实在不行就加一个容错试试。
Public Sub UlS(sht As Worksheet)
On Error Resume Next
sht.Visible = True
End Sub

feixiang521 · 发表于 2020-7-19 14:45

加这句后，错误提示成这样的了：

zjdh · 发表于 2020-7-19 16:23

那修改这个试试
Sub 系统设置()
If Sheets("系统设置").[D22] = 1 Then
      Sheet10.Visible = -1
      Sheets("系统设置").Select
Else
      TS
End If
End Sub

		自动登录	找回密码
密码			免费注册

[分享] 小小出入库管理系统(2012年12月又作了更新)