:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

Protect Lock Sheet

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: Protect Lock Sheet

Re: Protect Lock Sheet

#19

by kit_nad » Wed Aug 15, 2012 4:54 pm

อาจารย์ครับผมใช้คำสั่ง Call Mudule เอานะครับจะได้ตัดไปหาไปเลยครับ
ตอนนี้ save ได้แล้วครับขอบคุณครับ

Re: Protect Lock Sheet

#18

by snasui » Wed Aug 15, 2012 4:46 pm

:D ขั้นตอนการทำงานจาก Code ที่แนบมาก็ถูกต้องแล้วครับ กรณีที่มีการ Protect ไว้จะต้องปลดการ Protect ก่อน จากนั้นปรับปรุงข้อมูลตามต้องการ และเมื่อเสร็จสิ้นการปรับปรุงให้ Protect เอาไว้ใหม่ครับ ที่สำคัญ การปลดการ Protect จะต้องมั่นใจว่าเป็นชีทที่เราต้องการทำงานด้วย ไม่เช่นนั้นก็ Error ครับ

Re: Protect Lock Sheet

#17

by kit_nad » Wed Aug 15, 2012 4:40 pm

ปัญหาของผมคือ ผม lock sheet ไว้
พอ run คำสั่ง macro เสร็จแล้วมันขึ้น Error ว่า read only ครับ
ถ้าปลดล็อกจะสามารถ copy data ได้

Re: Protect Lock Sheet

#16

by snasui » Wed Aug 15, 2012 4:26 pm

:D ได้ครับ สรุปตอนนี้ปัญหาคืออะไรครับ :?:

Re: Protect Lock Sheet

#15

by kit_nad » Wed Aug 15, 2012 4:01 pm

มันไม่มี code สำหรับการ save แต่ใช้คำสั่ง Copy แล้วค่อยไป Save ใน โปรแกรม Excel อีกทีไม่ได้เลอครับ

Re: Protect Lock Sheet

#14

by snasui » Wed Aug 15, 2012 12:08 pm

:D ผมตอบไว้ชัดแล้วครับ ไม่ได้ตอบแบบใบ้ ลองสรุปขั้นตอนการทำงานมาเป็นคำพูดดูอีกครั้งครับ และติดในขั้นตอนใด ตามที่ถามมานั้นเป็นคำถามเกียวกับการ Save และปัญหาคือ Save ไม่ได้

และเมื่อมีปัญหาเกี่ยวกับการ Save ผมก็ตอบเรื่อง Save ครับ การจะ Save ได้ก็ต้องมี Code สำหรับการ Save ก่อน แต่ที่เขียนมานั้นไม่มี Code สำหรับการ Save ครับ

Re: Protect Lock Sheet

#13

by kit_nad » Wed Aug 15, 2012 11:34 am

อาจารย์ครับผมลองดูหลายๆ กระทู้แล้วไม่เห็นมีใครใส่คำสั่ง save เลย
viewtopic.php?f=3&t=1590&p=11080&hilit=protect#p11080
ช่วยเกรินนิดๆ ได้ไหมครับ

Re: Protect Lock Sheet

#12

by snasui » Wed Aug 15, 2012 9:23 am

:D ผมเขียนไว้ชัดเจนแล้วครับ เนื่องจาก Code ที่แนบมา ไม่มีบรรทัดไหนที่เป็นการ Save ไฟล์ ลองบันทึก Macro สำหรับการ Save ไฟล์โดยเฉพาะ แล้วนำ Code นั้นมาปรับใช้กับ Code นี้ โดยนำมาไว้หลังบรรทัด

ActiveSheet.Protect Password:="1111"

ซึ่งผมเห็นว่า Code สำหรับการ Save นั้นไม่ได้ยาก สามารถใช้การบันทึก Macro ได้ และเมื่อเขียนการ Save แล้วยังติดขัดตรงไหน สามารถแนบไฟล์ที่เป็นปัญหาถามมาได้เรือย ๆ การใช้ภาษาในการถามตอบควรใช้ให้เหมาะสม จะเถื่อนไม่ได้ครับ

Re: Protect Lock Sheet

#11

by kit_nad » Wed Aug 15, 2012 9:13 am

อาจารย์คับผมงงครับ
ช่วยพูดภาษาเถือนๆ ได้ไหมคับผมงงครับ
Attachments
ไม่รู้ว่าผมจะตอบตรงกับคำถามของอาจารย์ที่อธิบายมาหรือเปล่า
ไม่รู้ว่าผมจะตอบตรงกับคำถามของอาจารย์ที่อธิบายมาหรือเปล่า
condit.jpg (42.39 KiB) Viewed 383 times

Re: Protect Lock Sheet

#10

by snasui » Wed Aug 15, 2012 9:07 am

:mrgreen:
snasui wrote:สำหรับ Code ที่เขียนมายังไม่มี Code สำหรับการ Save ไฟล์ ลองบันทึก Macro การ Save แล้วนำ Code มาใช้กับ Code เดิมหากยังไม่ได้ช่วยแนบ Code ที่ปรับปรุงแล้วมาอีกครั้งครับ

Re: Protect Lock Sheet

#9

by kit_nad » Wed Aug 15, 2012 8:23 am

Code: Select all

Public Sub SaveJig() '' Form
ActiveSheet.Unprotect Password:="1111"
If Range("C4") <> "" And Range("E4") <> "" And Range("C5") <> "" And Range("E5") <> "" Then
Sheets("temp").Range("A2:K2").Copy
Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Form").Range("C4:c8,E4:E8").SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("Save data complete")
Else
MsgBox ("Please input data before click save data" & vbCrLf & "·èÒ¹¡ÃÍ¡¢éÍÁÙÅäÁè¤Ãº")
End If
ActiveSheet.Protect Password:="1111"
End Sub

Re: Protect Lock Sheet

#8

by snasui » Tue Aug 14, 2012 4:45 pm

:D ช่วยวาง Code ให้แสดงเป็น Code ตามกระทู้นี้ครับ viewtopic.php?f=3&t=1187

สำหรับ Code ที่เขียนมายังไม่มี Code สำหรับการ Save ไฟล์ ลองบันทึก Macro การ Save แล้วนำ Code มาใช้กับ Code เดิมหากยังไม่ได้ช่วยแนบ Code ที่ปรับปรุงแล้วมาอีกครั้งครับ

Re: Protect Lock Sheet

#7

by kit_nad » Tue Aug 14, 2012 4:36 pm

ครับอาจารย์ผมเขียน macro แล้ว
อันนี้เป็นคำสั่ง save ครับ

Public Sub SaveJig() '' Form
ActiveSheet.Unprotect Password:="1111"
If Range("C4") <> "" And Range("E4") <> "" And Range("C5") <> "" And Range("E5") <> "" Then
Sheets("temp").Range("A2:K2").Copy
Sheets("Database").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Form").Range("C4:c8,E4:E8").SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("Save data complete")
Else
MsgBox ("Please input data before click save data" & vbCrLf & "·èÒ¹¡ÃÍ¡¢éÍÁÙÅäÁè¤Ãº")
End If
ActiveSheet.Protect Password:="1111"
End Sub

Re: Protect Lock Sheet

#6

by snasui » Tue Aug 14, 2012 4:32 pm

:D การบันทึก Macro ไม่จำเป็นต้องสร้างปุ่มขึ้นมาก่อนครับ สร้างปุ่มทีหลังแล้วค่อย Assign Macro ให้กับปุ่มก็สามารถทำได้ครับ

Re: Protect Lock Sheet

#5

by kit_nad » Tue Aug 14, 2012 4:13 pm

ไป insert Button มาแล้วเขียน code vba เลอครับ

Re: Protect Lock Sheet

#4

by ChoBkuN » Tue Aug 14, 2012 4:10 pm

ผมลืมบอกว่า วิธีแก้ของผม คือใช้ มาโคร เพื่อมาช่วยสร้างคำสั่งให้
unprotect --> save --> protect นะครับ
ชื่อ มาโคร ว่า SaveButton

Re: Protect Lock Sheet

#3

by kit_nad » Tue Aug 14, 2012 3:54 pm

เดี๋ยวผมแนบไฟล์ไปให้ใหม่นะครับ
Attachments
เอกสารร้องขอให้จัดทำเครื่องมือJig.xlsm
(48.49 KiB) Downloaded 15 times

Re: Protect Lock Sheet

#2

by ChoBkuN » Tue Aug 14, 2012 2:08 pm

ผมไม่เก่ง VBA นะครับ
เข้าใจว่า เวลา Protect Sheet จะทำให้เป็นลักษณะ Read Only ทำให้ Save ไม่ได้
คงต้องเขียน VBA ว่าเวลากดปุ่ม Save
ให้ Unprotect Sheet ก่อน
แล้ว Save
แล้ว Protect Sheet ใหม่แบบ อัตโนมัติ
ครับ
Attachments
เอกสารร้องขอให้จัดทำเครื่องมือJig.xlsm
(47.89 KiB) Downloaded 15 times

Protect Lock Sheet

#1

by kit_nad » Tue Aug 14, 2012 1:48 pm

ผมต้องการที่จะ Protect sheet ไว้แต่พอเวลา save แล้วมันก็ขึ้น Error ตอน Save ทุกทีครับ
ลองทำตามกระทู้นี้แล้วแต่ก็ไม่ได้ผลครับ
viewtopic.php?f=3&t=404&p=4419&hilit=Protect
มันต้องมี code อะไรเพิ่มหรือเปล่า???
Attachments
เอกสารร้องขอให้จัดทำเครื่องมือJig.xlsm
(48.53 KiB) Downloaded 19 times

Top