一个库存系统无法新建工作表的问题

weiliaos · 发表于 2019-12-16 08:06

本帖最后由 weiliaos 于 2019-12-16 08:08 编辑

小白求助各位大大
借用了个库存管理系统,做了简单修改，其他问题基本解决了
现在出现了个2个问题
1.本想在出库单页面新建个按钮“单据”指向一个新的工作表（一个物料领用单，方便打印出来）
现在出现了一个问题，就是无法新建工作表。就是添加了一退出再打开就不见了，只能在VBA界面MICROSOFT EXCEL对象看得到。

2.就是保护密码无法修改，一修改就报错，想修改成“0”就行，简单一些.
附件是库存管理系统本身（密码0）和需要添加的物料领用单。

捣鼓了很久各种查，就是搞不定了，特来求助各位大大帮忙.

Jaofuan · 发表于 2019-12-16 09:13

请查看附件，是不是你要的效果

weiliaos · 发表于 2019-12-16 10:30

本帖最后由 weiliaos 于 2019-12-16 10:38 编辑

Jaofuan 发表于 2019-12-16 09:13
请查看附件，是不是你要的效果

非常感谢，修改密码的问题，
就是想新建工作表实在是搞不清头脑。

Jaofuan · 发表于 2019-12-16 11:14

设置显示所有工作标签

Sub jaofuan()
Dim c As Worksheet
For Each c In Worksheets
ThisWorkbook.Sheets(c.Name).Visible = xlSheetVisible
Next
End Sub

复制代码

运行代码显示所有工作表

在GoTosub 模块内更改密保、密备密码

Sub goGaoJi(Optional jiaBool As Boolean = True)
Call goOpenTab("GaoJi")
End Sub

复制代码

上面是工作表跳转代码，将GaoJi 更改为要跳转的工作表名称，表名和括号内

Jaofuan · 发表于 2019-12-16 13:12

weiliaos 发表于 2019-12-16 10:30
非常感谢，修改密码的问题，
就是想新建工作表实在是搞不清头脑。

中午回复的，到现在还没审核过，耐心等待吧

weiliaos · 发表于 2019-12-16 16:41

Jaofuan 发表于 2019-12-16 13:12
中午回复的，到现在还没审核过，耐心等待吧

完美，谢谢大神，学习了很多

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

[求助] 一个库存系统无法新建工作表的问题

评分

评分