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
