Cách chống xóa sheet

daocuongnbk · 1/5/12

Nhờ Các Bạn giúp đỡ Mình cách chống xóa sheet mà macro vẫn hoạt động bình thường

Xuân hiếu · 1/5/12

Bạn vào Tools/Protection/Protec Workbook...
sau đó nhấn Pass --> OK nhấp lại pass OK là xong

daocuongnbk đã viết:
Nhờ Các Bạn giúp đỡ Mình cách chống xóa sheet mà macro vẫn hoạt động bình thường

daocuongnbk · 2/5/12

Nhưng nếu sử dụng cách đó thì macro không hoạt động được

nghiaphuc · 2/5/12

daocuongnbk đã viết:
Nhưng nếu sử dụng cách đó thì macro không hoạt động được

Vậy thì trong code, chỗ nào cần can thiệp đến cấu trúc Workbook thì bạn thêm câu lệnh để Unprotect Workbook, xong việc thì lại thêm câu lệnh để Protect Workbook lại.

daocuongnbk · 2/5/12

Nhờ các Bạn giúp đỡ Mình file này nhé. Mình muốn chống xóa sheet LỚP mà chức năng copy sheet từ listbox Lớp vẫn thực hiện bình thường

Hoàng Trọng Nghĩa · 2/5/12

Thì bạn sử dụng chức năng Protect WorkBook và check vào Structure. Đặt password rồi OK, khi dùng thủ tục copy thì gán luôn thủ tục mở khóa, sau khi thực hiện xong thêm thủ tục đóng lại.

Hoàng Trọng Nghĩa · 2/5/12

Thôi, để rõ hơn, bạn xem code này nhé!

Mã:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Byte, t As Boolean, shName As String
    shName = Me.Name
    If Me.Name = Me.[P2] Then
        Exit Sub
    Else
        t = True
        For i = 1 To Sheets.Count
            If Me.[P2] = Sheets(i).Name Then t = False
        Next
        If t Then
            [B][COLOR=#0000cd]ThisWorkbook.Unprotect ("Nghiadeptrai")[/COLOR][/B]
            Me.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = Me.[P2]
            [COLOR=#0000cd][B]ThisWorkbook.Protect ("Nghiadeptrai"), Structure:=True, Windows:=False[/B][/COLOR]
        Else
            MsgBox "DA LAP LOP NAY ROI!", vbInformation, "THONG BAO CUA TUI"
        End If
    End If
End Sub

Bạn chép vào Sheet Module và thử sẽ rõ!