อยาก Save จาก userform1 ไปเก็บ sheet3 และมี password ป้องกันไว้

[sooksun2009]

รบกวนอาจารย์ช่วยปรับ code ให้หน่อยครับ คือ อยาก save จาก button save จาก form1 ไปเก็บไว้ sheet3 และต้องการ protect sheet ไว้ด้วยครับ ขอบคุณครับ

Code: Select all

Private Sub CMB_Save_Click()
If Tb_FinishM1.Text = "" Then
MsgBox ("¡Ãسҡ´»ØèÁ Finsh ¡è͹ºÑ¹·Ö¡")
Exit Sub
End If
If MsgBox("¡ÃسҵÃǨÊͺ»ØèÁ Finish ¡è͹ºÑ¹·Ö¡?", vbOKCancel) = vbOK Then
' OK µÃǨÊͺ»ØèÁ Finish áÅéÇ
Else
' Cancel ÂѧäÁèä´é¡´»ØèÁ Finish !!
Exit Sub
End If
Sheet3.Activate
Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Save")
    'find first empty row in database
    irow = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
    'Check for Id
    If Trim(Me.CB_CodeModel.Value) = "" Then
        Me.CB_CodeModel.SetFocus
        MsgBox "¡ÃسҡÃÍ¡ Model"
    Exit Sub
End If
    'copy the data to the database
    ws.Cells(irow, 1).Value = Me.Tb_VinNo.Value
    ws.Cells(irow, 2).Value = Me.Lb_Model.Caption
    ws.Cells(irow, 3).Value = Me.Tb_Timein.Value
    ws.Cells(irow, 4).Value = Me.Tb_FinishM1.Value
    ws.Cells(irow, 5).Value = Me.Tb_FinishM2.Value
    ws.Cells(irow, 13).Value = Me.Tb_STDTM1.Value
    ws.Cells(irow, 14).Value = Me.Tb_STDTM2.Value
    ws.Cells(irow, 17).Value = Me.Tb_stopworkP1L.Value
    ws.Cells(irow, 18).Value = Me.Tb_stopworkP1L.Value
    ws.Cells(irow, 21).Value = Me.Tb_BreakM1.Value
    ws.Cells(irow, 22).Value = Me.Tb_BreakM2.Value
     ws.Cells(irow, 25).Value = Me.Tb_ContinM1.Value
    ws.Cells(irow, 26).Value = Me.Tb_ContinM2.Value
    ws.Cells(irow, 29).Value = Me.CB_Remark.Value
    ws.Cells(irow, 31).Value = Me.TB_SubModel.Value
    ws.Cells(irow, 32).Value = Me.TB_Trancefer.Value
    ws.Cells(irow, 33).Value = Me.TB_Katashiki.Value
    ws.Cells(irow, 34).Value = Me.TB_Sfx.Value
    ws.Cells(irow, 35).Value = Me.TB_ColorCode.Value
    'Clear the data
stopTimer1
stopTimer2
Sheet5.Range("A2").Value = ""
Sheet5.Range("R2").Value = ""
Sheet5.Range("V2").Value = ""
 Me.Tb_VinNo.Value = ""
Me.Lb_Model.Caption = ""
Me.Tb_Timein.Value = ""
Me.CB_CodeModel.Value = ""
Me.TB_SubModel.Value = ""
Me.TB_Trancefer.Value = ""
Me.TB_Sfx.Value = ""
Me.TB_Katashiki.Value = ""
Me.TB_ColorCode.Value = ""
Me.Tb_BreakM1.Value = ""
Me.Tb_ContinM1.Value = ""
Me.Tb_FinishM1.Value = ""
Me.Tb_CountDM1.Value = ""
Me.Tb_STDTM1.Value = ""
Me.Tb_RankM1.Value = ""
Me.Tb_AveM1.Value = ""
Me.Tb_PointM1.Value = ""
Me.Tb_BreakM2.Value = ""
Me.Tb_ContinM2.Value = ""
Me.Tb_FinishM2.Value = ""
Me.Tb_CountDM2.Value = ""
Me.Tb_STDTM2.Value = ""
Me.Tb_RankM2.Value = ""
Me.Tb_AveM2.Value = ""
Me.Tb_PointM2.Value = ""
Me.Tb_stopworkP1L.Value = ""
Me.Tb_stopworkP1R.Value = ""
Me.CB_Remark.Value = ""
RefreshColor
ActiveWorkbook.Save
End Sub

[snasui]

Code อยู่ใน Module ไหน ติดขัดตรงไหน อย่างไร กรุณาลำดับวิธีทดสอบพร้อมค่าที่ใช้ในการทดสอบ ผลลัพธ์ที่ต้องการหากว่าโปรแกรมทำงานถูกต้อง จะได้ช่วยเข้าถึงปัญหาโดยไวครับ

[sooksun2009]

Code ใน userform1 ทีปุ่ม save คือต้องการ save ไปไว้ Sheet3(save) ทีนี่ sheet3 ผมตั้ง password ไว้ ป้อง user ไปแก้ไข.
ปัญหาคือเวลาเรากด save มันขึ้น debug ไม่ให้ save ขอบคุณครับ

[snasui]

ก่อนจะบันทึกให้ Unprotect เสียก่อน เมื่อบันทึกแล้วค่อย Protect ไว้เช่นเดิม ดูตัวอย่างการใช้งานที่นี่ครับ viewtopic.php?t=1743#p11117

[sooksun2009]

เข้าไปอ่านแล้วยังติด Bugเหมือนเดิมครับ ขอบคุณครับ

[snasui]

แนบไฟล์ที่ปรับปรุง Code ตามที่ผมแนะนำแล้วยังติด Bug มาดูกันจะได้ช่วยตรวจสอบได้

หากทำถูกต้องจะต้องไม่ติด Bug ยกเว้นว่า Code มีติด Bug อยู่ก่อนหน้านั้นแล้วหรือคีย์ Password ในตอน Unprotect ไว้ไม่ถูกต้องครับ

[sooksun2009]

แนบไฟล์ที่ปรับปรุง Code ตามที่ผมแนะนำแล้วยังติด Bug มาดูกันจะได้ช่วยตรวจสอบได้

หากทำถูกต้องจะต้องไม่ติด Bug ยกเว้นว่า Code มีติด Bug อยู่ก่อนหน้านั้นแล้วหรือคีย์ Password ในตอน Unprotect ไว้ไม่ถูกต้องครับ

ขอบคุณอาจารย์มากครับ ปัญหาคือ save ครั้งไม่เป็น พอบันทึกใหม่แล้ว save ครั้งที่2จะเป็นเหมือนเดิมครับ

[snasui]

แนบไฟล์ที่ยังเป็นปัญหามาด้วยจะได้ช่วยตรวจสอบให้ได้ครับ

[sooksun2009]

แนบไฟล์ที่ยังเป็นปัญหามาด้วยจะได้ช่วยตรวจสอบให้ได้ครับ

ขอบคุณครับ

[snasui]

ผมทดสอบแล้วไม่พบการ Debug จากการป้องกันและปลดการป้องกันครับ

[sooksun2009]

ผมทดสอบแล้วไม่พบการ Debug จากการป้องกันและปลดการป้องกันครับ

อาจารย์ลองสองครั้งหรือยังครับ มันจะเป็นครั้งที่สอง

[snasui]

ลองปรับการปลด Password โดยย้ายบรรทัดมาเป็นด้านล่างคือก่อนที่จะบันทึกข้อมูลครับ

Code: Select all

'Other code
ActiveSheet.Unprotect Password:="sooksun040057"
ws.Cells(irow, 1).Value = Me.Tb_VinNo.Value
ws.Cells(irow, 2).Value = Me.Lb_Model.Caption
'Other code

ที่ผ่านมาผมน่าจะ Debug ข้ามบรรทัดที่เป็น Validate เช่นเช็ค Object ว่างจึงอาจจะไม่พบครับ

[sooksun2009]

ลองปรับการปลด Password โดยย้ายบรรทัดมาเป็นด้านล่างคือก่อนที่จะบันทึกข้อมูลครับ

Code: Select all

'Other code
ActiveSheet.Unprotect Password:="sooksun040057"
ws.Cells(irow, 1).Value = Me.Tb_VinNo.Value
ws.Cells(irow, 2).Value = Me.Lb_Model.Caption
'Other code

ที่ผ่านมาผมน่าจะ Debug ข้ามบรรทัดที่เป็น Validate เช่นเช็ค Object ว่างจึงอาจจะไม่พบครับ

ได้แล้วครับขอบคุณครับ