รบกวนขอคำสั่ง แสดงตัวตนของชื่อเครื่องที่มีการ Update ไฟล์

[akung]

หน่อยครับ

ที่คิดได้ประมาณว่า IF(A1<>"",ให้โชว์ว่าชื่อเครื่องของใคร,"") ประมาณนี้ละครับ จะต้องใช้คำสั่งอะไรครับรบกวนด้วยครับ

[bank9597]

รบกวนแนบไฟล์มาดูด้วยได้ไหมครับ

[songsug]

ลองตามนี้ครับ
ไปที่หน้า VBE ครับ insert Module ขึ้นมา แล้วเอา Function ไปใส่

Code: Select all

Function UserUpdate() As String
    Dim MyName As Object
    On Error Resume Next
    Set MyName = CreateObject("WScript.NetWork")
    UserUpdate = MyName.UserName
    Set objNet = Nothing
End Function

หรือถ้าชอบสั้นๆ ก็

Code: Select all

Function UserUpdate() As String
    UserUpdate = Environ("USERNAME") ' หรือ ComputerName ก็ได้นะ
End Function

จากนั้นคุณก็ซัดเลย
= IF(A1<>"",UserUpdate(),"")
คำว่า UserUpdate คือ Function ที่เราเขียนขึ้นมาเอง เพื่อดึงชื่อเครื่องมาใช้งาน ปกติผมจะใช้กันแบบนี้ครับ

[akung]

ขอบคุณมากครับ

รบกวนถามต่อหน่อยครับ ถ้าสมมุติเขารู้ว่า เทคนิคนี้มีผลที่ Column A เราพอจะมีวิธีไหมครับ ที่จะทำให้ไม่สามารถแก้ไขได้ครับ ขอบคุณอีกครั้งครับ

[songsug]

เอาแบบนี้ได้ไหม

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Cells(ActiveCell.Row, 2).Select
End Sub

เวลาที่คนอื่นมาคลิกที่คอลัมน์ A มันจะเด้งออก แต่เวลาที่เราต้องการแก้ไข เราต้องกด Design Mode ก่อนนะ Code จะได้ไม่ Run

เพิ่มเติมนิดหนึ่งนะครับ เท่าที่ลองคิดดูแล้ว ถ้าหากเราต้องการทราบว่าใคร Save File เป็นคนสุดท้่าย เราควรนำค่าของ User เครื่อง ไปไว้ที่ใดที่หนึ่ง ในสถานะการณ์ กด Save และเมื่อเปิดไฟล์มาแล้วค่อยแจ้งว่าใครเป็นคน Save File ล่าสุด เช่น

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'เวลามีคนบันทึกไฟล์
Range("A2").Value = UserUpdate
Range("A3").Value = Now()
End Sub

Private Sub Workbook_Open() 'เวลาเปิด
MsgBox "ผู้บันทึกล่าสุดคือ " & Range("A2").Value & vbCrLf & _
              "เวลา " & Range("A3").Value, vbInformation + vbOKOnly, "สถานะการใช้งาน"
End Sub

แล้วซ่อนที่ A2 และ A3 ถ้าหากไม่ต้องการให้ผู้อื่นเห็นอาจซ่อนโดยการจัดรูปแบบเป็น ;;; ก็ได้ครับ
หากต้องการ = IF(A1<>"",UserUpdate(),"") ค่อยใส่สูตรต่อ เพราะถ้านำค่าโดยตรงมาแสดง มันจะเป็นชื่อเครื่องผู้เปิดเองครับ ดังนั้นต้องพักค่าไว้ก่อน

[akung]

เอาแบบนี้ได้ไหม

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Cells(ActiveCell.Row, 2).Select
End Sub

เวลาที่คนอื่นมาคลิกที่คอลัมน์ A มันจะเด้งออก แต่เวลาที่เราต้องการแก้ไข เราต้องกด Design Mode ก่อนนะ Code จะได้ไม่ Run

เพิ่มเติมนิดหนึ่งนะครับ เท่าที่ลองคิดดูแล้ว ถ้าหากเราต้องการทราบว่าใคร Save File เป็นคนสุดท้่าย เราควรนำค่าของ User เครื่อง ไปไว้ที่ใดที่หนึ่ง ในสถานะการณ์ กด Save และเมื่อเปิดไฟล์มาแล้วค่อยแจ้งว่าใครเป็นคน Save File ล่าสุด เช่น

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'เวลามีคนบันทึกไฟล์
Range("A2").Value = UserUpdate
Range("A3").Value = Now()
End Sub

Private Sub Workbook_Open() 'เวลาเปิด
MsgBox "ผู้บันทึกล่าสุดคือ " & Range("A2").Value & vbCrLf & _
              "เวลา " & Range("A3").Value, vbInformation + vbOKOnly, "สถานะการใช้งาน"
End Sub

แล้วซ่อนที่ A2 และ A3 ถ้าหากไม่ต้องการให้ผู้อื่นเห็นอาจซ่อนโดยการจัดรูปแบบเป็น ;;; ก็ได้ครับ
หากต้องการ = IF(A1<>"",UserUpdate(),"") ค่อยใส่สูตรต่อ เพราะถ้านำค่าโดยตรงมาแสดง มันจะเป็นชื่อเครื่องผู้เปิดเองครับ ดังนั้นต้องพักค่าไว้ก่อน

ขอบคุณมากครับ สำหรับวิธีนี้ ก็น่าสนใจดีมากเลยครับ

แต่ส่วนงานนี้ผมจะต้องบันทึกเป็น รายแถวเลยครับ เช่น มีคนเขาไปทำอะไรที่ A1 ก็จะบันทึกว่าเครื่องไหน ทำอะไรกับแถวที่ 1 พอมีคนทำอะไรที่ A2 ก็จะมี Record ว่าใครทำอะไรที่แถวที่ 2 แบบนี้ครับ ตอนนี้ผมก็ใช้วิธีซ่อนและ Lock สูตรไว้แล้วครับตามที่คุณแนะนำมา ขอบคุณมอีกครั้งครับ

[snasui]

แต่ส่วนงานนี้ผมจะต้องบันทึกเป็น รายแถวเลยครับ เช่น มีคนเขาไปทำอะไรที่ A1 ก็จะบันทึกว่าเครื่องไหน ทำอะไรกับแถวที่ 1 พอมีคนทำอะไรที่ A2 ก็จะมี Record ว่าใครทำอะไรที่แถวที่ 2 แบบนี้ครับ

การทำเช่นนั้นใช้การ Share File ครับ จะสามารถติดตามได้ทุกครั้งที่มีการ Update ว่า Update โดยใคร สามารถที่จะติดตาม ยอมรับหรือยกเลิกการ Update นั้น ๆ ก็สามารถทำได้ ดูวิธีการ Share File จากกระทู้นี้ครับ viewtopic.php?f=3&t=2060

[akung]

แต่ส่วนงานนี้ผมจะต้องบันทึกเป็น รายแถวเลยครับ เช่น มีคนเขาไปทำอะไรที่ A1 ก็จะบันทึกว่าเครื่องไหน ทำอะไรกับแถวที่ 1 พอมีคนทำอะไรที่ A2 ก็จะมี Record ว่าใครทำอะไรที่แถวที่ 2 แบบนี้ครับ

การทำเช่นนั้นใช้การ Share File ครับ จะสามารถติดตามได้ทุกครั้งที่มีการ Update ว่า Update โดยใคร สามารถที่จะติดตาม ยอมรับหรือยกเลิกการ Update นั้น ๆ ก็สามารถทำได้ ดูวิธีการ Share File จากกระทู้นี้ครับ viewtopic.php?f=3&t=2060

ขอบคุณมากครับ เพิ่งเห็นว่ามีการตอบเพิ่มเติม