ไปยังเนื้อหาหลัก

วิธีอนุญาตให้รีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกันใน Excel

คุณอาจนำเข้าข้อมูลจากแอปพลิเคชันอื่นไปยัง Excel ด้วยฟังก์ชันบิลด์อิน - รับข้อมูลภายนอกและอัปเดตข้อมูลที่นำเข้าได้อย่างง่ายดายโดยปุ่มรีเฟรชทั้งหมด อย่างไรก็ตามหลังจากปกป้องแผ่นงานแล้วปุ่มรีเฟรชทั้งหมดจะถูกปิดใช้งานและไม่สามารถอัปเดตข้อมูลที่นำเข้าได้อีกต่อไป วิธีอนุญาตให้รีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกัน วิธีการในบทความนี้สามารถช่วยคุณได้

อนุญาตให้รีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกันด้วยรหัส VBA


อนุญาตให้รีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

โค้ด VBA ด้านล่างสามารถช่วยคุณในการรีเฟรชข้อมูลภายนอกที่นำเข้าหลังจากปกป้องแผ่นงานใน Excel กรุณาดำเนินการดังนี้

1. ในแผ่นงานที่มีการป้องกันให้กดปุ่ม อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางสคริปต์ VBA ด้านล่างลงในหน้าต่างโมดูล ดูภาพหน้าจอ:

รหัส VBA: อนุญาตให้รีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกัน

Sub DataRefresh()
'Update by Extendoffice 5/28/2019
    ActiveSheet.Unprotect "123"
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2 ()
    If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
        Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
    Else
        ActiveSheet.Protect "123"
    End If
End Sub

หมายเหตุ: ในรหัส VBA“ 123” คือรหัสผ่านที่เราระบุเพื่อป้องกันแผ่นงาน โปรดเปลี่ยนตามความต้องการของคุณ

3. ตรวจสอบให้แน่ใจว่าเคอร์เซอร์ของคุณอยู่ในส่วนรหัส Sub DataRefresh แรกจากนั้นกดปุ่ม F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา นำเข้าแฟ้ม โปรดเลือกไฟล์ภายนอกที่คุณได้นำเข้าข้อมูลจากนั้นคลิกไฟล์ นำเข้า ปุ่ม

หลังจากกลับไปที่แผ่นงานคุณจะเห็นข้อมูลภายนอกได้รับการอัปเดตทันที

หมายเหตุ: รหัสนี้สามารถรีเฟรชข้อมูลภายนอกในแผ่นงานที่มีการป้องกันซึ่งนำเข้าจาก Access, Text และไฟล์ Excel


บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

kte แท็บ 201905


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
sorry, incorrect - read comments at stackoverflow first!
This comment was minimized by the moderator on the site
a more simple way is described here: https://stackoverflow.com/a/22088630/1349511

ThisWorkbook.RefreshAll
DoEvents
' code will not continue before Refresh finished
This comment was minimized by the moderator on the site
Dzięki bardzo pomocne makro. Pozdrawiam
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations