Cho em hỏi về cách khoá các hàm không cho người khác thay đổi ...

Liên hệ QC

boykill9999

Thành viên mới
Tham gia
3/11/09
Bài viết
3
Được thích
0
Cho em hỏi về cách khoá các hàm không cho người khác thay đổi ...
 
Khoá ô

Bạn dùng tạm file kèm theo
 

File đính kèm

  • Khoa_o.rar
    678.1 KB · Đọc: 187
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
 
Mình cảm ơn nhưng đợt trước có cách khoá 1 phát tất cả các hàm trong sheet
 
Web KT
Back
Top Bottom