excel里给单元格赋值的代码？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.protected = True Then '如果工作表保护就解除密码。
ActiveSheet.Unprotect "123" '123为你设置的密码，假设你设置的密码是cctv，那么将这句ActiveSheet.Unprotect "123"改成ActiveSheet.Unprotect "cctv"
[b3] = 6
[c6] = "合格"
ActiveSheet.protect "123" ’再进行保护。
End If
End Sub

这样就解决了保护工作表后出错的问题。

前半部分还行，后半部分难度很高，有些不太可能，毕竟公式是按照条件实现的，条件参数没了结果也会变

在表格下面标签名上点右健，选“查看代码”，把下面代码复制进去。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[b3] = 6
[c6] = "合格"
End Sub
回到EXCEL表格中，只要在表选中任意单元格，C6与B3中就会显示你要的内容。