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

孤单流星

yizhbi 发表于 2012-12-27 15:32
有返回按钮啊，最后一个不是吗？

谢谢提醒，笔记本本身问题，嘿嘿，在台式机上能看到
昨天把基本数据录入后，打开系统设置将原来的“张三、李四”清空，觉得不美观，删除了两行，添加了一个操作员，谁知再次以管理员身份打开目录正常，却只能打开使用说明，其他都提示权限不够！可怜俺白白忙了一下午

孤单流星

如果在内网使用，没有管理员权限的无论存盘退出还是直接关闭excel都会提示存盘，这个问题老师能帮忙解决吗

yizhbi

zjdh 发表于 2012-12-26 19:51
1. 完全查询代码我没修改啊！怎么回事？
2. 在点击“单据录入”的部门、编码和“库存明细”的编码时出 ...

老师新年好！
在使用老师的系统的退出保存时，总是出现如下提示，但用其他人编写的带vba的文件时就没有这个提示，不知什么原因？



我用的是2007,已重装好几遍了，还是不行

郎子策

完全查询  工作薄   部门处增加 字典查询
代码如何处理
我修改多次 都报错

tanqinbo

老师你屏闭工作表名称可以用代码再次显示工作表名称出来吗,我需要增加及修改工作表名称,谢谢!

zjdh

孤单流星 发表于 2012-12-29 13:37
谢谢提醒，笔记本本身问题，嘿嘿，在台式机上能看到
昨天把基本数据录入后，打开系统设置将原来的“张三 ...

在权限设置页只可修改或清除姓名和权限，不可删除行，否则都乱套啦！

zjdh

孤单流星 发表于 2012-12-30 19:16
如果在内网使用，没有管理员权限的无论存盘退出还是直接关闭excel都会提示存盘，这个问题老师能帮忙解决吗

这是必须的，因为文件退出时，需要将除使用说明和首页外地的其他工作表隐藏，否则用户不运行宏就可以打开无权操作的工作表，这也是去了权限限制了。
若需要不提示直接存盘也很容易，将这段宏改成：
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
    ActiveWorkbook.Save
End Sub
一楼附件已更新

zjdh

yizhbi 发表于 2012-12-31 08:32
老师新年好！
在使用老师的系统的退出保存时，总是出现如下提示，但用其他人编写的带vba的文件时就没有这 ...

我这用2007运行很正常啊，你再下载一个试试（刚才更新了）

zjdh

郎子策 发表于 2012-12-31 14:59
完全查询  工作薄   部门处增加 字典查询
代码如何处理
我修改多次 都报错

你可以参照“录入”页中，部门输入的设置，将其复制过来，删除控件1（textbox1、listbox1）的宏，将控件2的宏改为控件1，当然添加到控件也一定是编号1啦。

zjdh

tanqinbo 发表于 2013-1-1 00:14
老师你屏闭工作表名称可以用代码再次显示工作表名称出来吗,我需要增加及修改工作表名称,谢谢!

这容易：
Sub 显示工作表()
    For Each SH In Sheets
        UlS Sheets(SH.Name)
    Next
End Sub
不过希望你读懂了宏，再增加或修改工作表名称。