如何用VBA实现随着工作表内容的增加动态的对已添加的内容进行保护？例如某工作表中第1～3行中已经有内容，并进行了保护，这时如果在第4行中填入内容后，保护范围变为1～4行，4行以后的行可以编辑，如果在第5行中填入内容后，保护范围为1～5行，5行以后的行可以编辑，以此类推，最好能实现自动保护，如果不能实现自动保护，用按钮实现也可，请高手帮忙，谢谢啦。 要求是必须将这个执行程序教会我， 代码我有的 Private Sub CommandButton1_Click() ActiveSheet.Unprotect j = ActiveSheet.UsedRange.Rows.Count ActiveSheet.Range(Rows(1), Rows(j)).Locked = True ActiveSheet.Range(Rows(j + 1), Rows(j).Offset(65536 - j, 0)).Locked = False ActiveSheet.Protect End Sub 主要是不知道怎么一步一步去操作
2019-09-21 10:09:04