តើធ្វើយ៉ាងណា បើ Run Macro error ជាមួយ Protect Sheet?

ជាទូទៅវានឹងមានបញ្ហា error បើសិនជាលោកអ្នកច្រោះទិន្នន័យ ឬលាក់ បង្ហាញ ជួរដេកជាដើមដោយការសរសេរកូដ និង Protect Sheet។ ដើម្បីដោះស្រាយបញ្ហានេះ ខ្ញុំសូមណែនាំការសរសេរកូដកុំឱ្យ error គឺ ActiveSheet.Unprotect Password:="xxx" និង ActiveSheet.Protect Password:="xxx" នៅចន្លោះកូដដែលសរសេរដើម្បីច្រោះទិន្នន័យ ឬលាក់ បង្ហាញ ជួរដេក។

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123" 

Dim r As Range, c As Range
 Set r = Range("B12:B32")
 Application.ScreenUpdating = False
 For Each c In r.Rows
     If c = "" Then
         c.EntireRow.Hidden = True
     Else
         c.EntireRow.Hidden = False
     End If
 Next c
 Application.ScreenUpdating = True
 ActiveSheet.Protect Password:="123"

End Sub