Cần xem giúp đoạn code Protect Book

[chibi]

Chào các anh/chị trên diễn đàn.
Tôi có đoạn code với mục đích nhảy đến sheet khác

Option Explicit
Public Sub S01_to_sh(ws)
    [A1].Activate
    ThisWorkbook.Unprotect Password:=123
    Worksheets(ws).Visible = True
    S01.Visible = False
    Worksheets(ws).Activate
[COLOR=Red]    ThisWorkbook.Protect Password:=123[/COLOR]
End Sub

Không hiểu sao nó lại báo lỗi ở dòng màu đỏ. Cụ thể trong file đính kèm.

 

[Po_Pikachu]

Em viết như vầy được không bác!
Code này dùng để mở Sheets thứ tiếp theo sheet đang hiện hữu và mở protect sheet tiếp theo (cũng như khoá sheet hiện tại đi luôn).

Public Sub Next_Sh()
Dim k As Byte
    ActiveSheet.Protect "123"
    k = IIf(ThisWorkbook.Sheets.Count = ActiveSheet.Index, 0, ActiveSheet.Index)
    Sheets(k + 1).Visible = -1
    ActiveSheet.Visible = 2
    Sheets(k + 1).Activate
    ActiveSheet.Unprotect "123"
End Sub

Thân.

 

[ptlong04x1]

Chào các anh/chị trên diễn đàn.
Tôi có đoạn code với mục đích nhảy đến sheet khác

Option Explicit
Public Sub S01_to_sh(ws)
    [A1].Activate
    ThisWorkbook.Unprotect Password:=123
    Worksheets(ws).Visible = True
    S01.Visible = False
    Worksheets(ws).Activate
[COLOR=Red]    ThisWorkbook.Protect Password:=123[/COLOR]
End Sub

Không hiểu sao nó lại báo lỗi ở dòng màu đỏ. Cụ thể trong file đính kèm.

Mình test thử thấy bình thường mà, S01 bị ẩn đi, S02 Activate.

 

[chibi]

Mình test thử thấy bình thường mà, S01 bị ẩn đi, S02 Activate.

Trước đây mình đã từng dùng code này, không vấn đề gì, nhưng bây giờ lại không được. Nó báo cụ thể

và

 

[PhanTuHuong]

Chính xác là password phải đặt trong ngoặc kép, có thể do phiên bản VBA thay đổi. Bác cứ record macro là rõ hết.

 

[chibi]

Cảm ơn nhiều. "123" nó mới chấp nhận.