我们在开发通用Excel模版的时候，经常会遇到选择性的填写数据，某些特定的字段（单元格）只需要在满足指定条件后，才允许输入内容。当条件未满足时，禁止填报者输入、编辑或选中该字段。

要达到这样的效果，这里就需要用到简单的VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If [C3] <> 必填 Then

With ActiveSheet

Application.EnableEvents = False

  Unprotect

  UsedRange.Cells.Locked = False

  Range("C4").Locked = True

  Protect

  EnableSelection = xlUnlockedCells

  Application.EnableEvents = True

  End With

Else

ActiveSheet.Unprotect

End If

End Sub

我们在开发通用Excel模版的时候，适当使用一些VBA，能增加整个系统的人性化体验，更加方便、快捷、实用！

本文由互和科技·通用Excel官网原创，转载请注明。