Hỏi code protect và unprotect (1 người xem)

[vantiep1002]

Các bác coi hộ em đoạn cod này sai chỗ nào mà không protect và unproct sheet2 duọc nhỉ.
cod:
' mo password truoc khi nhap du lieu
Sub UnprotectSheet2()
ActiveSheet2.Unprotect Password:="123"
End Sub
Sub NhapDL()
Dim i, j, Cl As Range
j = Sheet2.[B65536].End(3).Row + 1
If j < 6 Then j = 6
'Kiem tra
For i = 4 To 20
If Sheet1.Cells(i, 4) = "" Then
If i <> 6 And i <> 7 And i <> 20 Then
MsgBox "Thieu thong tin:"
Exit Sub
End If
End If
Next
'Nhap Sheet thong tin KH
For i = 4 To 20
Sheet2.Cells(j, i - 2) = Sheet1.Cells(i, 4)
Next
'Don dep
Sheet1.[D610].ClearContents
Sheet1.[D1416].ClearContents
Sheet1.[D1919].ClearContents
Sheet1.[D6].Select


End Sub
' Khoa password sau khi nhap du lieu
Sub protectSheet2()
ActiveSheet2.Protect Password:="123"
End Sub

 

[nghiaphuc]

Bạn sửa ActiveSheet2 thành Sheets("Sheet2") là được.

 

[vantiep1002]

Bạn sửa ActiveSheet2 thành Sheets("Sheet2") là được.

ok cảm ơn bạn nhiều. Ah mà bạn cho mình hỏi thêm tý. Đoạn cod trên nếu muốn khi thực thi xong thi auto save thì làm như thế nào nhỉ. Bạn giup mình nhé.

 

[nghiaphuc]

ok cảm ơn bạn nhiều. Ah mà bạn cho mình hỏi thêm tý. Đoạn cod trên nếu muốn khi thực thi xong thi auto save thì làm như thế nào nhỉ. Bạn giup mình nhé.

Câu lệnh để lưu Workbook chứa code là ThisWorkbook.Save. Bạn thích đặt nó nằm chỗ nào trong code thì tùy bạn.