ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) อาจารย์ครับ เข้าใจว่าชีทต่างๆ เราสามารถซ่อนได้ แต่ผมไม่มั่นใจว่าสามารถที่จะล๊อคได้ไหม
bank9597 wrote:ชีทต่างๆ เราสามารถซ่อนได้ แต่ผมไม่มั่นใจว่าสามารถที่จะล๊อคได้ไหม
เช่น ชีทที่เก็บข้อมูลสำคัญ เช่น ชีทเก็บข้อมูลรายการสั่งซื้อ เป็นต้น เราสามารถล๊อคไว้ได้ไหม โดยที่ไม่ให้ผู้ใช้สามารถเปิดดูและแก้ัไขได้ เว้นแต่เราจะอนุญาต
เราสามารถซ่อนชีทไว้ก่อนแล้วเข้าเมนู Review > Protect Workbook > ระบุรหัสที่ต้องการ
ผมล๊อคชีทตามที่อาจารย์บอกแล้ว แต่พอทดสอบทำใบสั่งซื้อ แล้วกดบันทึกข้อมูล กลายเป็นว่าบันทึกไม่ได้ มันติด Debug การ Protect Sheet กับ Protect Workbook ไม่เหมือนกันนะครับ แสดงว่าผมทำผิดวิธีการ รบกวนอาจารย์แนะนำอีกครั้งได้ไหมครับ ของผมเป็น Excel 2007 ภาษาไทย อยู่ที่เมนู ตรวจทาน > ป้องกันสมุดงานครับ ถ้าเป็นไปได้ให้ใช้เมนูภาษาอังกฤษ เพราะผมไม่สะดวกตอบเป็นเมนูภาษาไทยครับ 
ครับผม เดี๋ยวผมจะพยายามในเรื่องนี้อีกทีนึงครับ 
ทำไมถึงติดกับการป้องกันชีทครับ ผมมิได้แนะนำให้ป้องกันชีทแต่ประการใดครับ อ่านซ้ำอีกครั้งหนึ่ง ผมงงอยู่อ่ะครับอาจารย์ อิอิ
สำหรับที่ถามมานั้นไม่ใช่เรื่องลำบากครับ อิอิ ผมพอจะเข้าใจแล้วครับอาจารย์ Code: Select all
Sub Button7_Click()
Dim msg As Integer
msg = MsgBox("¤Ø³µéͧ¡Òúѹ·Ö¡ÃÒ¡ÒÃãªèËÃ×ÍäÁè?", vbYesNo)
If msg = vbYes Then
ActiveSheet.Unprotect Password:="240130" '<==UnProtect
If Range("A17") <> "" Then
Sheets("Temp").Select
Range("A2:J61").Resize(Range("K1"), 10).Select
Selection.Copy
Sheets("DataStore").Select
Range("Target").Select
Selection.PasteSpecial xlPasteValues
Sheets("PurchaseOrder").Select
Range("B17:I76,L3,G7,C13,B7").SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("ºÑ¹·Ö¡¢éÍÁÙºàÃÕºÃéÍÂáÅéÇ")
Else
MsgBox ("¤Ø³ÂѧäÁèàÅ×Í¡ÊÔ¹¤éÒ")
Range("A17").Activate
End If
ActiveSheet.Protect Password:="240130" '<== Protect Again
End If
End SubCode: Select all
Sub Button7_Click()
Dim msg As Integer
msg = MsgBox("¤Ø³µéͧ¡Òúѹ·Ö¡ÃÒ¡ÒÃãªèËÃ×ÍäÁè?", vbYesNo)
If msg = vbYes Then
ActiveSheet.Unprotect Password:="240130" '<==UnProtect
If Range("A17") <> "" Then
Sheets("Temp").Range("A2:J61").Resize(Range("K1"), 10).Copy
Sheets("DataStore").Range("Target").PasteSpecial xlPasteValues
Sheets("PurchaseOrder").Range("B17:I76,L3,G7,C13,B7") _
.SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("ºÑ¹·Ö¡¢éÍÁÙºàÃÕºÃéÍÂáÅéÇ")
Else
MsgBox ("¤Ø³ÂѧäÁèàÅ×Í¡ÊÔ¹¤éÒ")
Range("A17").Activate
End If
ActiveSheet.Protect Password:="240130" '<== Protect Again
End If
End Subความจำเป็นอยู่ที่ว่าต้องการให้เห็นหรือไม่ครับ ถ้าไม่ต้องการให้เห็นก็จำเป็นต้องซ่อนครับbank9597 wrote:อีกนิดน่ะครับ ถ้าเราป้องกันแผ่นงานแล้ว ก็ไม่จำเป็นต้องซ่อนใช่ไหมครับ
ยังติด Debug ครับ Password ที่ป้องกันแผ่นงานคืออะไรครับCode: Select all
Sheets("Temp").Range("A2:J61").Resize(Range("K1"), 10).CopyCode: Select all
Sheets("Temp").Range("A2:J61").Resize(Sheets("Temp").Range("K1"), 10).Copyผมลองปรับโค๊ดตามด้านบน แต่ว่ามันกลับติด Debug ครับSheets("Temp").Range("A2:J61").Resize(Sheets("Temp").Range("K1"), 10).Copy
ผมส่งตัวอย่างมาให้ดูครับ เป็นตัวทดสอบ รู้สึกว่ายังมีปัญหาแก้ไม่ได้เลยครับ