自己做的excel商品进销存，完全公开

ibevel · 发表于 2013-10-3 15:02

{:soso_e182:}你太好了，非常感谢，我也想跟你一样，可我能力有限！

陶瓷罐子_25396 · 发表于 2013-10-4 17:52

谢谢你的进销存表格我是在你的基础上修改的你要的功能代码如下
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const Ps = "0451789"
If Target.Count = 1 And Not IsError(Target) Then
      If Target = "" Then
      ActiveSheet.Unprotect Password:=Ps
      Exit Sub
   End If
End If
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
      , AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowSorting _
      :=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:=Ps
End Sub

weberchen · 发表于 2013-10-4 19:53

呵呵，水平不足，有些没看明白，有空讲解一下过程。

mary3257 · 发表于 2013-10-5 11:29

感谢楼主分享,学习了.

iic23 · 发表于 2013-10-5 13:46

还可以，、不过，好像挺多功能是用不了的

looklooksee · 发表于 2013-10-5 14:08

很多地方还不懂，多看多学习

nieboxy · 发表于 2013-10-6 15:28

慢慢学习和研究楼主的思路。

zaomenyuan · 发表于 2013-10-6 19:34

顶一下！顶一下！顶一下！

bawu · 发表于 2013-10-7 11:36

很久没有进来学习了，谢谢楼主。

chenai030603 · 发表于 2013-10-7 11:59

我要慢慢研究下，谢谢

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

[分享] 自己做的excel商品进销存，完全公开