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

hhxq001 · 发表于 2022-1-24 11:34

本帖最后由 hhxq001 于 2022-1-24 11:45 编辑

zjdh 发表于 2021-12-10 22:28
有关登录的宏从开始确定后，就没修改过，你下个其他版本附件试试。

登陆的时候出现无法加载对象，点击确定，进去以后，使用入库单、出库单填写，出现下面提醒
出现类OLEOBJECT的Activate方法无效，怎么解决电脑系统win10，office2010
用的是出入库系统6-4.1

zhumin1025 · 发表于 2022-1-24 15:44

https://club.excelhome.net/thread-1599964-2-1.html何不试试这个更高级的

zjdh · 发表于 2022-1-27 11:34

hhxq001 发表于 2022-1-24 11:34
登陆的时候出现无法加载对象，点击确定，进去以后，使用入库单、出库单填写，出现下面提醒
出现类OLEOBJE ...

本附件必须引用一些控件，详见下图：

hhxq001 · 发表于 2022-1-28 09:17

zjdh 发表于 2022-1-27 11:34
本附件必须引用一些控件，详见下图：

只要勾选这5个控件就行吗

zjdh · 发表于 2022-1-29 15:07

hhxq001 发表于 2022-1-28 09:17
只要勾选这5个控件就行吗

是的，就是引用这几个控件。

Rolubic · 发表于 2022-2-25 15:04

膜拜！！太强大了！楼主能否告知工作表保护密码~

zjdh · 发表于 2022-2-25 16:26

登录密码：管理员 9999
其余 123
工作表保护密码： 123

zzkof · 发表于 2022-3-15 10:50

本帖最后由 zzkof 于 2022-3-15 10:52 编辑

可以用了，谢谢

yokun · 发表于 2022-3-31 15:42

楼主，为什么点存盘退出的时候其他工作簿也会弹出关闭窗口？

yokun · 发表于 2022-3-31 16:18

知道原因了，将thisworkbook中的这串代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("首页").Select
For Each SH In Sheets
If SH.Name <> "首页" And SH.Name <> "修改说明" Then llS Sheets(SH.Name)
Next
Sheets("系统设置").Cells(22, 2) = "无"
Application.CommandBars("cell").Reset
ThisWorkbook.Save
ActiveWindow.Close
' Application.Quit
End Sub

红色部分注释掉就可以了

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

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