Snasui Excel Forum

ครับ ถ้าอย่างนั้นแสดงว่า ผมต้องเปลี่ยน folder ปลายทางให้เป็นแบบไม่ read only ขอบคุณครับ จะลองทำดูครับ

[quote="godman"]ผู้ใช้กดวางข้อมูลที่ผมอนุญาติให้เป็น read only ไม่ทราบว่า เกี่ยวไหมครับ[/quote] มันเกี่ยวตอน Save ครับ มันไม่ให้ Save ลงไฟล์เดิม ยกเว้นว่า Folder นั้นกำหนดเป็น Read Only ด้วยก็จะบันทึกลง Folder นั้นไม่ได้ครับ

อาจารย์ ครับ ผมก็เปิดไว้แล้วนะครับ ก็ยังมีปัญหาอยู่เหมือนเดิม มันเกี่ยวกับ ผู้ใช้กดวางข้อมูลที่ผมอนุญาติให้เป็น read only ไม่ทราบว่า เกี่ยวไหมครับ

:D การ Paste ข้ามไฟล์ตาม Code ที่เขียนมานั้นต้องเปิดไฟล์ปลายทางไว้ด้วยครับ

Sub RecordDocEvident()
Dim rs As Range, rt As Range
Dim i As Integer
Worksheets("StatusPage").Range("O1") _
    = Application.Max(Worksheets("Template") _
        .Range("A:A")) + 1
With Worksheets("Template")
    i = Application.CountIf( _
        .Range("H3:H91"), ">0")
    Set rs = .Range("A2:H" & 1 + .Range("I1"))
End With
    Set rt = Workbooks("2012.xls").Worksheets("DataEvident").Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
MsgBox "Finish Approve Process"

Range("Q18:Q52").Select
        Selection.ClearContents
End Sub

พอดีผมมีปัญหาเกี่ยวกับการวางข้อมูล โดยผมมี vba ดังข้างล่างที่ผมทำให้ทั้งบริษัทให้ มีเครื่องคอม์ 39 คนที่ใช้ไฟล์ของผม โดยไฟล์นี้อยู่ที่ Drive document control ครับ ไฟล์นี้ใช้ vba ลิสต์ file ทั้งหมดใน folder ทั้ง 39 โฟล์เดอร์ ซึ่งก็คือ ชื่อของเจ้าของเครื่องที่มีสิทธิ์ลิ้งเข้าไป approve เอกสาร
โดยคำถามแรกคือ ทำไม vba อันนี้ใช้กับเครื่องผมได้ ไม่มีปัญหามันข้อการ paste data ข้ามไฟล์ครับ
[code]Sub RecordDocEvident()
Dim rs As Range, rt As Range
Dim i As Integer
Worksheets("StatusPage").Range("O1") _
= Application.Max(Worksheets("Template") _
.Range("A:A")) + 1
With Worksheets("Template")
i = Application.CountIf( _
.Range("H3:H91"), ">0")
Set rs = .Range("A2:H" & 1 + .Range("I1"))
End With
Set rt = Workbooks("2012.xls").Worksheets("DataEvident").Range("A65536").End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish Approve Process"

Range("Q18:Q52").Select
Selection.ClearContents
End Sub[/code]

โดยมันขึ้น error debug ตามไฟล์แนบที่ผมแนบมาครับ ต้องเพิ่ม code ให้มันรู้จัก network drive v หรือไม่ต้องครับ
ขอบคุณครับ อาจารย์