ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
https://snasui.com/
Code: Select all
Public Sub CheckBox1_Click()
ActiveSheet.Protect Password:="1"
ActiveSheet.Unprotect Password:="1"
If CheckBox1.Value = True Then
Range("D" & Selection.Row) = Now()
Else
Range("E" & Selection.Row) = Now()
End If
ActiveSheet.Protect Password:="1"
End Sub
ลองบันทึก Macro เพื่อดูว่า Save แล้วได้ Code เป็นเช่นไร แล้วค่อยนำ Code มาปรับใช้ ติดตรงไหนค่อยมาถามกันต่อครับCode: Select all
Public Sub CheckBox1_Click()
ActiveSheet.Protect Password:="1"
ActiveSheet.Unprotect Password:="1"
If CheckBox1.Value = True Then
Range("D" & Selection.Row) = Now()
Else
Range("E" & Selection.Row) = Now()
End If
ActiveSheet.Protect Password:="1"
ThisWorkbook.Save
End Sub
