如何设置允许用户编辑区域

txyabb

区域内已保存的内容不能修改，修改需要密码！请各位大侠帮帮忙

w609053988

1. Sub test()
   
2. 
   
3. Dim rng As Range
   
4. 'Sheet1.Unprotect ("1234")
   
5. Set rng = Range("a1").CurrentRegion
   
6. rng.Locked = True
   
7. rng.SpecialCells(xlCellTypeBlanks).Locked = False
   
8. Sheet1.Protect ("1234"): Sheet1.EnableSelection = xlUnlockedCells
   
9. 
   
10. End Sub

复制代码

txyabb

w609053988 发表于 2019-7-8 16:28

允许用户编辑分三大部分，给每一部分输入权限不一样，修改的密码可以是一样

w609053988

txyabb 发表于 2019-7-8 17:11
允许用户编辑分三大部分，给每一部分输入权限不一样，修改的密码可以是一样

权限你想怎么个不一样法？

txyabb

w609053988 发表于 2019-7-8 17:35
权限你想怎么个不一样法？

每一部分输入内容都需要一个密码，输入密码后才能输入内容，而且手动保存后，输入的内容不能修改，修改需要密码

w609053988

txyabb 发表于 2019-7-10 17:30
每一部分输入内容都需要一个密码，输入密码后才能输入内容，而且手动保存后，输入的内容不能修改，修改需 ...

空白区域输入内容之前还得先输个密码？

txyabb

w609053988 发表于 2019-7-10 17:52
空白区域输入内容之前还得先输个密码？

嗯，以免其他部门的人填错

w609053988

txyabb 发表于 2019-7-11 09:31
嗯，以免其他部门的人填错

试试附件的

txyabb

w609053988 发表于 2019-7-11 14:57
试试附件的

附件没什么变化，随便都可以填？

w609053988

txyabb 发表于 2019-7-11 15:47
附件没什么变化，随便都可以填？

打开有弹窗提示选择编辑区域的，你打开能随便填？