Khóa không cho xóa một số sheet nhất định trong file mẫu

[viethung78]

Chào ACE diễn đàn,

Minh cần khóa không cho xóa, sửa tên một số sheet trong file Excel mẫu. Ngoài các sheet đó NSD vẫn được tạo mới sửa xóa các sheet khác. Nhưng mày mò chỉ thấy Excel có tính năng khóa Workbook structure là khóa tất cả, hoặc là không khóa.

ACE nào biết cách khóa chỉ một số sheet xin được chia sẻ. Mình rất cảm ơn!

 

[Maika8008]

Chào ACE diễn đàn,

Minh cần khóa không cho xóa, sửa tên một số sheet trong file Excel mẫu. Ngoài các sheet đó NSD vẫn được tạo mới sửa xóa các sheet khác. Nhưng mày mò chỉ thấy Excel có tính năng khóa Workbook structure là khóa tất cả, hoặc là không khóa.

ACE nào biết cách khóa chỉ một số sheet xin được chia sẻ. Mình rất cảm ơn!

Chép 2 thủ tục này vào module ThisWorkbook, thay tên Sheet1, Sheet10 bằng tên sheet mà bạn không cho xóa. Muốn thêm sheet không được xóa nữa thì gõ thêm cụm Or Sh.Name = "Sheetxx". Cuối cùng là phải lưu file đó với dạng .xlsm

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ThisWorkbook.Protect Structure:=False
End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Or Sh.Name = "Sheet10" Then
        ThisWorkbook.Protect Structure:=True
    End If
End Sub

 

[viethung78]

Chép 2 thủ tục này vào module ThisWorkbook, thay tên Sheet1, Sheet10 bằng tên sheet mà bạn không cho xóa. Muốn thêm sheet không được xóa nữa thì gõ thêm cụm Or Sh.Name = "Sheetxx". Cuối cùng là phải lưu file đó với dạng .xlsm

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ThisWorkbook.Protect Structure:=False
End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Or Sh.Name = "Sheet10" Then
        ThisWorkbook.Protect Structure:=True
    End If
End Sub

Cảm ơn bạn, nhưng cách này thụ động. Nếu VBA bị disable hoặc lưu file xlsx thì VBA này không có tác dụng.

 

[befaint]

Dùng tính năng A Cờ E thần chưởng là được luôn rồi.