Excel : ไม่ต้องการให้ Save ทำอย่างไร

[yodpao.b]

เวลา Save ให้เปลี่ยนชื่อ หรือถ้า Save ทับชื่อเดิมต้องใส่รหัส (คล้ายใน ProtectSheets)
ต้องทำอย่างไรครับ
เหมือนผมเคยทำแต่จำไม่ได้ว่าใช้เมนูไหน

[puriwutpokin]

เวลา Save ให้เปลี่ยนชื่อ หรือถ้า Save ทับชื่อเดิมต้องใส่รหัส (คล้ายใน ProtectSheets)
ต้องทำอย่างไรครับ
เหมือนผมเคยทำแต่จำไม่ได้ว่าใช้เมนูไหน

ดูตามรูปครับ ตอนที่กด Save As เอาตัวติ๊กออกครับ

[yodpao.b]

ถูกต้องครับใช้ได้ครับ
คำถาม1
ทำได้ไหมครับ ให้มันทำงานไปเลยโดยไม่ต้องคลิกใช่
ไฟล์ที่เปิดออกมาจะเป็นไฟล์ อ่านอย่างเดียว



คำถาม2
คุณใช้ excel 2007 ครับพอดีผมมีปัญหาเกียวกับ code
พอ run ใน excel 2007 มันบัคครับ

[puriwutpokin]

ถูกต้องครับใช้ได้ครับ
คำถาม1
ทำได้ไหมครับ ให้มันทำงานไปเลยโดยไม่ต้องคลิกใช่
ไฟล์ที่เปิดออกมาจะเป็นไฟล์ อ่านอย่างเดียว


คำถาม2
คุณใช้ excel 2007 ครับพอดีผมมีปัญหาเกียวกับ code
พอ run ใน excel 2007 มันบัคครับ

คำถาม1 คงต้องใช้ vba ไว้เวลาเปิดไฟล์ ให้ไม่เตือน ใช้

Code: Select all

Application.DisplayAlerts = False

ข้อ2 ลองแนบไฟล์และโค้ดมาดูว่าติดตรง บรรทัดไหนครับ

[yodpao.b]

" ข้อ2 ลองแนบไฟล์และโค้ดมาดูว่าติดตรง บรรทัดไหนครับ"

ตอบ Code อยู่ในหัวข้อด้านล่างครับ (ให้ดูโพสต์สุดท้ายนะครับจะได้ไม่งง)
https://www.snasui.com/viewtopic.php?f= ... 436#p90436

ช่วยดูให้หน่อยครับ งง มากมาก

[yodpao.b]

จากข้อ 1

"เวลา Save ให้เปลี่ยนชื่อ หรือถ้า Save ทับชื่อเดิมต้องใส่รหัส (คล้ายใน ProtectSheets)

ต้องทำอย่างไรครับ"
จากรูปที่ได้

4.JPG

คือให้คลิก ขึ้น เครื่องหมายถูกใช่ไหมครับ
ผมลอง คลิกขึ้นเครื่องหมายถูก แล้ว SAVE
ปิดเปิดไฟล์ใหม่ เครื่องถามว่าแก้ไขหรืออ่านอย่างเดียว
ผมคลิกใช่ หมายถึง "อ่านอย่างเดียว"

คำถาม ถ้าไม่คลิกใช่ อ่านอย่างเดียว ให้ทำงานเลยได้ไหม
ตอบ ให้ใช้Code

Code: Select all

 Application.DisplayAlerts = False

คำถาม Code นี้ไว้ตรงไหนครับ

[puriwutpokin]

ไปที่ VBA
แล้วที่ ThisWorkbook
ใส่โค้ดตามนี้ เปลี่ยนชื่อ พาธ ด้วยครับ

Code: Select all

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Test.xlsm", Password:="", ReadOnly:=True
End Sub

[yodpao.b]

ถูกต้องครับ พอผม Save เปลี่ยนชื่อ ไฟล์ที่ Save ใหม่ สามารถแก้ไขได้ไม่ใช่อ่านอย่างเดียว
ตรงตามต้องการ

แต่เมื่อนำมาประกอบกันมันทำงานไม่เหมือนเดิมครับ
ไฟล์ที่ทำมา code ผมไม่ได้ทำเองเพราะ ผมมีตัวแปรเข้ามาเกี่ยวข้อง
ผมไม่เข้าใจครับ

จึงขออธิบายการทำงานดังนี้ครับ
ขั้นตอนการทำงาน
เปิดไฟล์ CreateNewProject
1.ทำตามหมายเลข 1

2.JPG

2.ทำตามหมายเลข 5 6 7 ตามรูป

3.JPG

ผลที่ได้ (ตามความต้องการถูกต้อง)
1.ได้ โฟดเดอร์ใหม่เพิ่มขึ้นมา
2.ได้ไฟล์ใหม่ที่อยู่ในโฟดเดอร์ใหม่ คือไฟล์ EERS-.......-First_Form (แสดงไฟล์ให้เห็น)
3.ได้ไฟล์ใหม่ที่อยู่ในโฟดเดอร์ใหม่ คือไฟล์ EERS-....... (ไฟล์นี้ Save เปลี่ยนชื่อจาก EX_book)
4.โชวโฟดเดอร์ใหม่
ความต้องการเพิ่ม
ทำอย่างไรไม่ให้ไฟล์ EX_book Save ทับ ชื่อเดิม
(ปกติการทำงานตามขั้นตอนก็ไม่ได้ Save ทับ ชื่อเดิมอยู่แล้ว แต่กันเอาไว้ในกรณีคนเข้ามาแก้ไขข้อมูล โดยใช้ Excel 2013 แกไขและSave)

แต่พอใส่ code

Code: Select all

Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Test.xlsm", Password:="", ReadOnly:=True
End Sub

ผลที่ได้
1.ได้ โฟดเดอร์ใหม่เพิ่มขึ้นมา
2.ไม่ได้ไฟล์ EERS -.......-First_Form
3.ไม่ได้ไฟล์ EERS -.......
4.ไม่โชวโฟดเดอร์ใหม่
5.ไฟล์ EX_book ไม่ยอม SAve เปลี่ยนชื่อครับ

[yodpao.b]

ไฟลแนบ

[snasui]

ความต้องการเพิ่ม
ทำอย่างไรไม่ให้ไฟล์ EX_book Save ทับ ชื่อเดิม
(ปกติการทำงานตามขั้นตอนก็ไม่ได้ Save ทับ ชื่อเดิมอยู่แล้ว แต่กันเอาไว้ในกรณีคนเข้ามาแก้ไขข้อมูล โดยใช้ Excel 2013 แกไขและSave)

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

[yodpao.b]

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

การใช้งาน ใช้งานใน excel 2017 ได้ครับ
แสดง Code ที่สั่งให้ EX_book.xls ทำงาน save ครับ
Code นี้อยู่ใน ไฟล์ CreateNewProject ,Module Macro_NewProject

Code: Select all

Public Sub MacroSaveAs_Filename()
''''''''''''''''''''''''''
    Dim i, jcount As Integer
    i = 6
    jcount = 0
    Do While Sheet1.Cells(i, 1).Value <> ""
        i = i + 1
        jcount = jcount + 1
    Loop
    Sheet1.Cells(2, 4) = jcount
''''''''''''''''''''''''''''''''''''
    'SAVE ชื่อ และ ตั้งชื่อ Folder ตาม Excel
    Dim xlsName, folderName, path, Co_name, in_charge As String
    path = Application.ActiveWorkbook.path
'    xlsName = Sheets("Sheet1").Range("B6")
    xlsName = Sheet1.Cells(i - 1, 2).Text
'    folderName = Sheets("Sheet1").Range("B6")
    folderName = Sheet1.Cells(i - 1, 2).Text
'    Co_name = Sheets("Sheet1").Range("C6")
    Co_name = Sheet1.Cells(i - 1, 3).Text
    in_charge = Sheet1.Cells(i - 1, 4).Text
    MkDir path & "\" & folderName                                                               'สร้าง Folder ชื่อ folderName ใน path
    
    Workbooks.Open Filename:=path & "\EX_book.xlsm"
    
'    Application.Run "path & " \ " & folderName & " \ " & xlsName & .xlsm!Sheet1.test", pathf = path
'    Application.Run "path & " \ " & folderName & " \ " & xlsName & .xlsm!Sheet1.test", folder = folderName
    ActiveWorkbook.Sheets("Log").Range("A1").Value = Co_name
    ActiveWorkbook.Sheets("Log").Range("N19").Value = in_charge
    ActiveWorkbook.SaveAs Filename:=path & "\" & folderName & "\" & xlsName & ".xlsm", FileFormat:=52
    ActiveWorkbook.Close
    Call Shell("explorer.exe" & " " & path & "\" & folderName, vbNormalFocus)
    
    Workbooks.Open Filename:=path & "\First_Form.xlsm"
    ActiveWorkbook.SaveAs Filename:=path & "\" & folderName & "\" & xlsName & " First Form.xlsm", FileFormat:=52
    MsgBox "Please print this form and bring it to your first time audit"
End Sub

หมายเหตุ
โดยปกติ code ที่เห็นนี้จะทำงานได้ตามปกติครับคือเวลาสั่งเปิดและ Save ไฟล์ EX_book.xlsm โปรแกรมจะทำการเปลี่ยนชื่อไฟล์ให้โดยอัตโนมัติ

แต่เมื่อผมเพิ่ม code ด้านล่าง

Code: Select all

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\EERS\EX_book.xlsm", Password:="", ReadOnly:=True
End Sub

การทำงานผิดไปจากเดิม
Code นี้อยู่ใน ไฟล์ EX_book.xlsm ,ใน Microsoft Excel Objects,ใน สมุดงานนี้


ความต้องการคือ ในกรณีมีการแก้ไขใน ห้าม Save ไฟล EX_book ทับในชื่อ EX_book.xlsm
ในกรณีมีการแก้ไขใน EX_book.xlsm นั้น หมายถึง เราเปิดไฟล์ EX_book ขึ้นมาเอง ไม่ใช่ ให้ไฟล์ CreateNewProject เป็นตัวเปิด
"เมื่อเราเปิดไฟล์ EX_book ขึ้นมา ผมหรือใครแก้ไขข้อมูลหรือ update ในไฟล์แล้ว โปรแกรมจะไม่ให้ Save ทับในชื่อ EX_book ให้ตั้งชื่ออื่น"
จากบรรทัดบนฟังดูแล้วไม่มีเหตุผล ทำไมเมื่อ update ข้อมูลแล้วถึง Save ทับไม่ได้ ใช่ไหมครับ
ถูกต้องครับ เป็นความคิดที่ไม่ได้เรื่อง
ถ้ามันไม่ยากเกินไปผมจำเป็นต้องใช้วิธีนี้เพื่อนำไปแก้ปัญหาให้กับโฟลตที่ชื่อ "code มีปัญหาครับ"
https://www.snasui.com/viewtopic.php?f=3&t=14826

ความเข้าใจของผมคิดว่า โคดด้านล่างนี้ไม่จำเป็นต้องใช้

Code: Select all

Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\EERS\EX_book.xlsm", Password:="", ReadOnly:=True
End Sub

แต่ให้เขียน code ตอน Save ว่าห้ามSaveทับในชื่อ EX_book
ผมเชียนไม่ได้ครับ
น้องที่ทำงานที่ทำไฟล์นี้ก็ย้ายไปทำงานที่อื่นแล้ว
ขอขอบคุณครับ

[snasui]

กรณีเป็นปัญหาต่อเนื่องกันให้ถามในกระทู้เดียวกันครับ

Code ที่ถามมานี้คือ Code เดิม ๆ แก้ไขเรื่องของ Code ตามกระทู้เดิมให้ได้ก่อนครับ

[snasui]

แต่ให้เขียน code ตอน Save ว่าห้ามSaveทับในชื่อ EX_book
ผมเชียนไม่ได้ครับ

ตัวอย่างครับ

Code: Select all

'Other code
Workbooks.Open Filename:=pth & "\First_Form.xlsm"
If Dir(pth & "\" & folderName & "\" & xlsName & " First Form.xlsm") <> "" Then
    MsgBox "This file existing, Can't save with the same name.", vbInformation
    Exit Sub
End If
ActiveWorkbook.SaveAs Filename:=pth & "\" & folderName & "\" & xlsName & " First Form.xlsm", FileFormat:=52
MsgBox "Please print this form and bring it to your first time audit"
'Other code

[yodpao.b]

เรียนอาจารย์ครับ code อยู่ใน Sub ไหนครับ

[snasui]

ดูจากโพสต์ที่ 11 ที่ถามมาได้เลยครับ