[已解决]数据重算及锁定问题

yls1668

请教高手:

    1、因为数据偏多，影响速度，所以我关了自动重新功能，现在我想实现这样的功能：假设我有三个工作表，当我点击某一工作表时,这个工作表就自动重算，其他工作表还是不参加重算，除非点击激活它，如何编VBA?

   2、 数据输入后，自动锁定单元格，如修改则须解锁，如何编VBA?

最佳答案

月排行榜 / 总排行榜

wayy

2009-11-12 07:42

第2问代码：两个事件

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
 ActiveSheet.Unprotect
 Target.Locked = True
 ActiveSheet.Protect
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Value = "" Then
  ActiveSheet.Unprotect
  Target.Locked = False
  ActiveSheet.Protect
 End If
End Sub

跳转到最佳答案楼层

wayy

第1问：工作表事件

Private Sub Worksheet_Activate()
Calculate
End Sub

第2问：效果可以达到，这样做比较麻烦，如果输入错了还要取消保护工作表。

主要就是判断如果为非空则单元格锁定后进行工作表保护。

wayy

第2问代码：两个事件

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
 ActiveSheet.Unprotect
 Target.Locked = True
 ActiveSheet.Protect
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Value = "" Then
  ActiveSheet.Unprotect
  Target.Locked = False
  ActiveSheet.Protect
 End If
End Sub

风彩依然

路过看看

yls1668

谢谢wayy帮我解决实际问题！