anhchanghamhoc
Thành viên mới
- Tham gia
- 18/12/06
- Bài viết
- 40
- Được thích
- 2
các pác có code nào mà không cho xem công thức (khác với không cho chỉnh sửa công thức như các pác đã viết code trong diễn đàng)
thank you!
thank you!
Ka có code nhưng sợ ấy xem mất (như ấy sợ bị xem mất công thức ý) nên tớ ko đưa ra đâu !!!anhchanghamhoc đã viết:các pác có code nào mà không cho xem công thức (khác với không cho chỉnh sửa công thức như các pác đã viết code trong diễn đàng)
thank you!
Cái này không biết có fù hợp yêu cầu của bạn không?anhchanghamhoc đã viết:nhưng mình muốn sử dụng code cho tiện việc thực hiện pác a`!
Option Explicit
'
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngData As Range
For Each rngData In Target.Cells
If rngData.HasFormula Then
Selection.Locked = False: Selection.FormulaHidden = True
ActiveSheet.Protect ("1234")
Exit Sub
Else
ActiveSheet.Unprotect ("1234")
End If
Next rngData
End Sub