Code khóa sheet khi tắt file excel

[Namnuns2]

Em có đoạn code như sau:
Option Explicit
Sub Khoa()
ThisWorkbook.Unprotect Password:="A"
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="A"
Next ws
Set ws = Nothing
ThisWorkbook.Protect Password:="A"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Giờ em muốn nó tự động chạy khi mình click tắt file excel. Xin các bác chỉ giáo ạ. Tks All

 

[le_vis]

Bạn thử dùng code này xem sao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="ABC", AllowFiltering:=True
Else
Me.Unprotect Password:="ABC"
End If
End Sub

 

[Namnuns2]

Bạn thử dùng code này xem sao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="ABC", AllowFiltering:=True
Else
Me.Unprotect Password:="ABC"
End If
End Sub

cảm ơn bạn. Mình cho vào rồi nhưng ko chạy được bạn ah

 

[Cu Tồ]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'goi ten cai sub khoa do
End Sub

Trong Thisworkbook chọn sự kiện này,để khi tắt file thì nó sẽ gọi cái sub kia của bạn

 

[Namnuns2]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'goi ten cai sub khoa do
End Sub

Trong Thisworkbook chọn sự kiện này,để khi tắt file thì nó sẽ gọi cái sub kia của bạn

Cảm ơn bác. Em làm được rồi. Em muốn hỏi thêm là đoạn code trên lúc em tắt thi nó chỉ tắt cửa sổ làm việc chứ ko tắt hẳn excel. Em muốn nó tắt hẳn thì phải sửa code như nào ạ. Tks bác

 

[Cu Tồ]

Application.Quit

Bạn thêm dòng này nha

 

[Namnuns2]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'goi ten cai sub khoa do
ThisWorkbook.Unprotect Password:="A"
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="A"
Next ws
Set ws = Nothing
ThisWorkbook.Protect Password:="A"
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End Sub
Thêm đoạn đó vào vị trí này đúng ko ạ. Em tắt thì nó vẫn chỉ tắt cửa sổ thôi chứ ko tắt hẳn bác ah

 

[Cu Tồ]

À lưu ý nha dùng cái lệnh thoát excel chú ý các file đang mở cùng lúc nha.tắt excel là tắt hết các file đang mở luôn á.với lại code của bạn đã có dòng lệnh lưu file rồi nên lúc dùng lệnh tắt excel thì không cần dùng ActiveWorkbook.Close nữa thay nó bằng Application.Quit vì khi thêm dong lệnh đó mà bỏ Application.Quit ở sau thì dòng lệnh quit này không có tác dụng vì file chứa code đã close mất rồi.an toàn hơn thì cứ chỉ dùng ActiveWorkbook.Close để nó đóng mỗi file đó nha bạn còn Application.Quit là tắt hẳn ứng dụng luôn

 

[Namnuns2]

À lưu ý nha dùng cái lệnh thoát excel chú ý các file đang mở cùng lúc nha.tắt excel là tắt hết các file đang mở luôn á.với lại code của bạn đã có dòng lệnh lưu file rồi nên lúc dùng lệnh tắt excel thì không cần dùng ActiveWorkbook.Close nữa thay nó bằng Application.Quit vì khi thêm dong lệnh đó mà bỏ Application.Quit ở sau thì dòng lệnh quit này không có tác dụng vì file chứa code đã close mất rồi.an toàn hơn thì cứ chỉ dùng ActiveWorkbook.Close để nó đóng mỗi file đó nha bạn còn Application.Quit là tắt hẳn ứng dụng luôn

Cảm ơn bác nhiều.