ใช้คำสั่ง Protect และ Unprotect Sheet เมื่อ Share Workbook แล้วเกิดปัญหา

[NEO889]

ผมมีปัญหาในคำสั่ง Protect Sheet ครับ เมื่อทำการ Share Workbook ให้เครื่องอื่นสามารถเข้ามาใช้ไฟล์งานที่สร้างขึ้นได้ ถ้าหากไฟล์นี้เปิดใช้งานพร้อมกันหลายเครื่องคำสั่ง Protect Sheet จะทำงานชนกันไหมครับ หรือมีแนวทางอื่นที่สามารถแก้ไขปัญหานี้ได้

Code: Select all

Sub Record()
    Dim i&
    With ActiveSheet
        .Unprotect Password:="3890" '<==UnProtect
        If .Range("V2") <> "" And .Range("AC2") <> "" _
            And .Range("B2") <> "" And .Range("B8") <> "" _
            And .Range("B4") <> "" And .Range("L4") <> "" _
            And .Range("AE4") <> "" And .Range("AA8") <> "" _
            And .Range("B6") <> "" And .Range("L6") <> "" _
            And .Range("AC2") <> "" And .Range("AI8") <> "" _
            And .Range("AI8") <> "" _
            And .Range("AA6") <> "" And .Range("P8") <> "" Then
        i = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Row
        .Range("a" & i).Value = .Range("a12").Value
        .Range("b" & i).Value = .Range("b12").Value
        .Range("e" & i).Value = .Range("e12").Value
        .Range("H" & i).Value = .Range("H12").Value
        .Range("Q" & i).Value = .Range("Q12").Value
        .Range("Z" & i).Value = .Range("Z12").Value
        .Range("ak" & i).Value = .Range("ak12").Value
        .Range("av" & i).Value = .Range("av12").Value
        .Range("ba" & i).Value = .Range("ba12").Value
        .Range("bf" & i).Value = .Range("bf12").Value
        .Range("bk" & i).Value = .Range("bk12").Value
        .Range("bp" & i).Value = .Range("bp12").Value
        .Range("bu" & i).Value = .Range("bu12").Value
        .Range("bz" & i).Value = .Range("bz12").Value
               .Range("V2,B8,J2,B4,L4,AE4,B6,L6,AA6,P8,AA8,AC2,AI8") _
               .SpecialCells(xlCellTypeConstants).ClearContents
            MsgBox ("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂ")
        Else
            MsgBox ("¤Ø³ÂѧãÊè¢éÍÁÙÅäÁè¤Ãº")
            .Range("R4").Select
        End If
        .Protect Password:="3890" '<==Protect Again
    End With
End Sub

ขอบคุณครับ

[snasui]

การแชร์แต่ละคนสามารถทำงานได้อย่างอิสระ สามารถทำงานพร้อมกันในขณะเดียวกันในตำแหน่งเดียวกันได้พร้อมกัน 255 คนครับ

ปัญหาไม่ได้เกียวกับการ Protect ได้หรือไม่ได้ แต่เกี่ยวกับว่าหากเป็นไฟล์ที่มี VBA เมื่อนำไฟล์นั้นไป Share จะทำให้ VBA ใช้การไม่ได้ และหากมี Table โปรแกรมจะไม่ยอมให้ Share ครับ

[NEO889]

ขอบคุณครับ