求各位哥哥姐姐帮忙~~输入某一单元自动锁定，共享用

SUNDAY112233

求助：各位大神，哥哥姐姐。


   我想设这图表，用于财务共享用的，大家可以阅读，可以输入数据，对输入空白数据后，会自动锁定对应单元格，如果修改需要得到允许才能修改


  求助。、。。。

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1520437&mobile=

权限控制？

SUNDAY112233

zpy2 发表于 2024-7-24 12:40
https://club.excelhome.net/forum.php?mod=viewthread&tid=1520437&mobile=

权限控制？

应该不是，就是加入我把文件方在A电脑，然后共享了，BCD电脑进入A电脑后，启动文件，加入输入了A1单元格，A1就不能再变动其他数据了，然后如果我输入错误了，又要如何修改

zpy2

SUNDAY112233 发表于 2024-7-24 14:37
应该不是，就是加入我把文件方在A电脑，然后共享了，BCD电脑进入A电脑后，启动文件，加入输入了A1单元格 ...

你说的是文件夹局域网共享，也可以试试。

SUNDAY112233

zpy2 发表于 2024-7-24 16:47
你说的是文件夹局域网共享，也可以试试。

我的重点是EXCEL，里面每个单元格输入了数据就可以自动锁定该单元格，不是共享文件

Peny2020

就是别人输完内容后，设置一栏让他选“完成”，然后就会触发宏，把这一整行进行锁定，如果要修改，就只能输入密码解锁才可以修改，是这种效果不？

长安布衣

在EXCEL对象Sheet1下输入
Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False
   
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
   
    Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True '锁定所有含公式单元格
    Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True  '锁定所有常量单元格
   
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Target.Select
    Application.ScreenUpdating = True

End Sub

如需打开文件保护，执行宏myUnprotect

Sub myUnprotect()
   
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    [a1].Select
End Sub

详见附件文件

SUNDAY112233

长安布衣 发表于 2024-7-28 17:31
在EXCEL对象Sheet1下输入
Private Sub Worksheet_Change(ByVal Target As Range)

可以了，谢谢哈