Unprotect sheet (1 người xem)

[hoanganhdl]

Private Sub Worksheet_Activate()    Me.ScrollArea = "A1:p100"    Me.Protect ("zakka123456")    'Me.Unprotect ("zakka123456")End Sub

Mình đặt pass Protect trong sự kiện Worksheet_Active như trên nhưng Unprotect không được, ngay cả khi copy xuống đổi Protect thành Unprotect nó cũng báo không đúng pass.
Thầy cô & ace cho mình hỏi phải sửa ntn nhỉ?

 

[phulien1902]

Private Sub Worksheet_Activate()    Me.ScrollArea = "A1:p100"    Me.Protect ("zakka123456")    'Me.Unprotect ("zakka123456")End Sub

Mình đặt pass Protect trong sự kiện Worksheet_Active như trên nhưng Unprotect không được, ngay cả khi copy xuống đổi Protect thành Unprotect nó cũng báo không đúng pass.
Thầy cô & ace cho mình hỏi phải sửa ntn nhỉ?

Bạn thử:

Private Sub Worksheet_Activate()
    With Sheet1
        .ScrollArea = "A1:p100"
        .Protect ("zakka123456")
        '.Unprotect ("zakka123456")
    End With
End Sub

 

[quanluu]

Private Sub Worksheet_Activate()    Me.ScrollArea = "A1:p100"    Me.Protect ("zakka123456")    'Me.Unprotect ("zakka123456")End Sub

Mình đặt pass Protect trong sự kiện Worksheet_Active như trên nhưng Unprotect không được, ngay cả khi copy xuống đổi Protect thành Unprotect nó cũng báo không đúng pass.
Thầy cô & ace cho mình hỏi phải sửa ntn nhỉ?

Mình thấy có vấn đề gì đâu nhỉ, code chạy bt mà, unprotect cũng bt. k như bạn nói