ban dùng hàm này cũng đc.đây là hàm do thành viên trong GPEX viết
'Tao o khoa tung cel trong khi su dung cong thuc,mà khong cho ng khac su dung
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
'password dat la "25251325"
Dim rngdata As Range
'bat dau vong lap for qua vong lap for co chua gia tri
For Each rngdata In target.Cells
'kiem tra xem o so co phai la cong thuc khong ?
If rngdata.HasFormula Then
'khoa o neu o do la cong thuc
ActiveSheet.Protect ("25251325")
Exit Sub
Else
'huy bo khoa o neu o do khong phai la cong thuc
ActiveSheet.Unprotect ("25251325")
End If
Next rngdata
End Sub
'Bạn copy đoạn code đó vào thisWorkbox nhé rùi trở lại ex