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

yizhbi

zjdh 发表于 2013-1-1 12:38
我这用2007运行很正常啊，你再下载一个试试（刚才更新了）

老师新年好！

谢谢回复
我下载了你更新的运行后还是出现“。。。excel停止工作”，但是我要是先点击保存，再点击右上角的红叉退出就不会出现这个问题
只要点击“存盘退出”按钮就会出现“。。。excel停止工作”，接着出现一个空白的sheet表格
今天我又重装了一遍还是这样，我真要崩溃了啊。。

奇怪的是其他excel文档都没有这个现象啊

engineerlzk

优秀作品，学习！留个记号

mafutz

很好,留个记号,慢慢研究{:soso_e179:}

hebeibaby

老师好，我用此系统已经有半年了，能不能在单据录入里增加几行啊，我工作的新项目出库要接近一百行了，希望老师和各位高手修改了，谢谢！！！

孤单流星

zjdh 发表于 2013-1-1 12:32
这是必须的，因为文件退出时，需要将除使用说明和首页外地的其他工作表隐藏，否则用户不运行宏就可以打开 ...

老师新年快乐！我的意思是因为共享文件的属性是只读的，每次退出提示“另存为副本”，是不是把属性改为“读写”就行了

hldwlp2002

好用，收藏了

zjdh

yizhbi 发表于 2013-1-1 16:06
老师新年好！

谢谢回复

我这没法体现你说的错误提示，找不到原因。看动画：

zjdh

hebeibaby 发表于 2013-1-1 21:14
老师好，我用此系统已经有半年了，能不能在单据录入里增加几行啊，我工作的新项目出库要接近一百行了，希望 ...

这需要修改好多宏，暂时没有空。

zjdh

孤单流星 发表于 2013-1-2 08:03
老师新年快乐！我的意思是因为共享文件的属性是只读的，每次退出提示“另存为副本”，是不是把属性改为“ ...

只要在BeforClose事件中添加一句语句：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveWorkbook.ReadOnly Then ActiveWorkbook.Close False
    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

缘銘忆

{:soso_e179:}