Giúp sửa cú pháp On Errror GoTo (1 người xem)

[xuantam1991]

Xin chào toàn thể anh em GPE thân mến.
Mình đang có vấn đề với cú pháp On Error Goto để unprotect sheet trong VBA
Chi tiết mình mô tả trong file đính kèm nhờ anh em chỉ giáo giúp mình với.
Xin cảm ơn.!

 

[giaiphap]

Bạn thử đoạn code này thử xem.

Sub Unlock_sheet()
On Error Resume Next
ActiveSheet.Unprotect "123"
ActiveSheet.Unprotect "abc"
If ActiveSheet.ProtectContents = True Then MsgBox "Pass Khong Dung"
End Sub