Code tự động khóa và mở Protect Sheet

  • Thread starter Thread starter khamha
  • Ngày gửi Ngày gửi
Liên hệ QC

khamha

Không có việc gì khó...
Tham gia
4/6/10
Bài viết
662
Được thích
846
Nghề nghiệp
CNVC Laos
Nhờ các bạn giúp mình viết cái Code tự động khóa và mở Protect Sheet như sau:
Khi ta mở Sheet"Data" thì sẽ tự động Protect Sheet với mật khẩu là:1234
Khi ta chuyển từ Sheet"Data" sang Sheet khác thì Sheet"Data" sẽ tự động UnProtect Sheet.
Cảm ơn các bạn.
 
Lần chỉnh sửa cuối:
Nhờ các bạn giúp mình viết cái Code tự động khóa và mở Protect Sheet như sau:
Khi ta mở Sheet"Data" thì sẽ tự động Protect Sheet với mật khẩu là:1234
Khi ta chuyển từ Sheet"Data" sang Sheet khác thì Sheet"Data" sẽ tự động UnProtect Sheet.
Cảm ơn các bạn.

Mã:
Private Sub Worksheet_Activate()
    Sheets("DaTa").Unprotect ("GPE")
End Sub

Private Sub Worksheet_Deactivate()
    Sheets("DaTa").Protect ("GPE")
End Sub
 
Upvote 0
Mã:
Private Sub Worksheet_Activate()
    Sheets("DaTa").Unprotect ("GPE")
End Sub

Private Sub Worksheet_Deactivate()
    Sheets("DaTa").Protect ("GPE")
End Sub
Hình như hơi ngược thì phải.
PHP:
Private Sub Worksheet_Activate()
    Sheets("DaTa").Protect ("1234")
End Sub
PHP:
Private Sub Worksheet_Deactivate()
    Sheets("DaTa").Unprotect ("1234")
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom