Lỗi Run time 1004 khi protect sheet (1 người xem)

[dqt_nt]

Dùng dùng đoạn mã sau trong sheet:

Option Explicit
Private Sub Calendar1_Click()
  With ActiveCell
    .Value = Calendar1
    .NumberFormat = "dd/mm/yyyy"
    Calendar1.Visible = False
  End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
    If Not Intersect(Range("D5,D7,D16, D17,I16"), Target) Is Nothing Then
      Calendar1.Value = Date
      .Visible = True
      .Top = Target.Top
      .Left = Target(, 2).Left
    ElseIf Application.CutCopyMode = False Then
      .Visible = False
    End If
  End With
End Sub

Khi không khóa sheet thì dùng bình thường, tuy nhiên khi khóa lại bị lỗi 1004. Bạn nào giúp mình cách khắc phục với.

Thanks all!

 

[ndu96081631]

Dùng dùng đoạn mã sau trong sheet:

Option Explicit
Private Sub Calendar1_Click()
  With ActiveCell
    .Value = Calendar1
    .NumberFormat = "dd/mm/yyyy"
    Calendar1.Visible = False
  End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
    If Not Intersect(Range("D5,D7,D16, D17,I16"), Target) Is Nothing Then
      Calendar1.Value = Date
      .Visible = True
      .Top = Target.Top
      .Left = Target(, 2).Left
    ElseIf Application.CutCopyMode = False Then
      .Visible = False
    End If
  End With
End Sub

Khi không khóa sheet thì dùng bình thường, tuy nhiên khi khóa lại bị lỗi 1004. Bạn nào giúp mình cách khắc phục với.

Thanks all!

Đương nhiên là lỗi rồi ---> Protect thì sao calendar nó gán giá trị xuống sheet được
Sửa code Calendar thành vầy:

Private Sub Calendar1_Click()
  ActiveSheet.Unprotect "Pass của bạn"
  With ActiveCell
    .Value = Calendar1
    .NumberFormat = "dd/mm/yyyy"
    Calendar1.Visible = False
  End With
  ActiveSheet.Protect "Pass của bạn"
End Sub

 

[dqt_nt]

Thanks anh ndu. Lại được anh giúp đỡ.