Note: The other languages of the website are Google-translated. Back to English
English English

วิธีจัดกลุ่มและยกเลิกการจัดกลุ่มแถวในแผ่นงานที่มีการป้องกัน

อย่างที่เราทราบกันดีว่าในเวิร์กชีตที่มีการป้องกันมีข้อ จำกัด มากมายสำหรับเราที่จะใช้การดำเนินการบางอย่าง เช่นเราไม่สามารถสลับระหว่างข้อมูลที่จัดกลุ่มและไม่ได้จัดกลุ่ม มีวิธีจัดกลุ่มหรือยกเลิกการจัดกลุ่มแถวในแผ่นงานที่มีการป้องกันหรือไม่?

จัดกลุ่มและยกเลิกการจัดกลุ่มแถวในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา จัดกลุ่มและยกเลิกการจัดกลุ่มแถวในแผ่นงานที่มีการป้องกันด้วยรหัส VBA


อาจไม่มีวิธีอื่นที่ดีในการแก้ปัญหานี้ แต่ใช้รหัส VBA โปรดทำดังนี้:

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการใช้โปรดตรวจสอบว่าแผ่นงานยังไม่ได้รับการป้องกัน

2. จากนั้นกดปุ่ม ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: จัดกลุ่มและยกเลิกการจัดกลุ่มแถวในแผ่นงานที่มีการป้องกัน

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนรหัสผ่านเพื่อป้องกันแผ่นงานปัจจุบัน ดูภาพหน้าจอ:

doc-group-in-protected-sheet1

5. จากนั้นคลิก OKแผ่นงานของคุณได้รับการป้องกัน แต่คุณสามารถขยายและหดสัญลักษณ์เค้าร่างในแผ่นงานที่มีการป้องกันนี้ได้โปรดดูภาพหน้าจอ:

doc-group-in-protected-sheet1

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (32)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่าจะใช้งานได้ดี แต่เมื่อฉันปิดและเปิดเวิร์กบุ๊กอีกครั้ง ฉันพบปัญหาเดียวกัน - ฉันไม่สามารถขยายกลุ่มที่ยุบได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ผมก็เป็นเหมือนกันครับ ใครพอจะทราบวิธีแก้บ้างครับ ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณต้องใช้ VBA สำหรับสิ่งนี้ และผู้ใช้จะต้องอนุญาตให้มาโครเพื่อให้สิ่งนี้ทำงานได้

กด Alt+F11 เพื่อเปิดใช้งาน Visual Basic Editor

ดับเบิลคลิก ThisWorkbook ใต้ Microsoft Excel Objects ในตัวสำรวจโปรเจ็กต์ทางด้านซ้ายมือ

คัดลอกรหัสต่อไปนี้ลงในโมดูลที่ปรากฏขึ้น:



สมุดงานย่อยส่วนตัว_Open()
ด้วยแผ่นงาน("Emp Summary")
.EnableOutlining = จริง
.ปกป้อง UserInterfaceOnly:=True
จบด้วย
ย่อยสิ้นสุด



รหัสนี้จะถูกดำเนินการโดยอัตโนมัติทุกครั้งที่เปิดสมุดงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ดูเหมือนว่าจะใช้งานได้ดี แต่เมื่อฉันปิดและเปิดเวิร์กบุ๊กอีกครั้ง ฉันพบปัญหาเดียวกัน - ฉันไม่สามารถขยายกลุ่มที่ยุบได้โดย mayich[/quote]เรื่องนั้นได้รับการแก้ไขด้วยเสียงร้อง Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ contents:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันพบปัญหาเดียวกัน ทันทีที่ฉันปิดและกลับเข้าสู่แผ่นงานอีกครั้ง มันใช้งานไม่ได้... โปรดบอกทีละขั้นตอนว่าที่ไหนและใช้งานอย่างไร เรื่องที่ได้รับการแก้ไขเป็นเสียงร้อง Private Sub Workbook_Open() Dim wsh As ตัวแปรสำหรับแต่ละ wsh ในเวิร์กชีต (Arra y("Sheet1", "Sheet2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ contents:=True, _ Scenarios: =True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากค่ะพี่ ใช้งานได้ดีจริงๆ ขอบคุณมากค่ะ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณทำงานนี้ได้อย่างไร? ฉันได้ลองเพิ่มลงใน VBA ด้านบนแล้วสร้างโมดูลอื่น แต่ก็ยังใช้งานไม่ได้ ฉันจำเป็นต้องเปลี่ยนรหัสใด ๆ หรือไม่? ฉันกำลังใช้รหัสผ่านของฉันหรือฉันต้องเปลี่ยนชื่อชีต?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีปัญหาเดียวกันเมื่อฉันปิดสมุดงาน มีความคิดที่จะแก้ไขหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contents: =True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Next wsh End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยังไม่แน่ใจว่าวิธีนี้ทำงานอย่างไร ฉันจะสร้างโมดูลใหม่หรือแนบกับโมดูลด้านบนหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถทำทีละขั้นตอนว่าจะวางสิ่งนี้ไว้ที่ใดตามที่พวกเขาทำในคำแนะนำดั้งเดิม ขอขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! ฉันใช้มาโครตัวแรกที่ประสบความสำเร็จ จากนั้นมีปัญหาเดียวกันในการปิดสมุดงานและมาโครไม่ทำงานอีกต่อไป ฉันเห็นวิธีแก้ปัญหาข้างต้น แต่ไม่สามารถทำงานได้เลย คุณช่วยกรุณาให้ฉันก้าวผ่านได้ไหม ฉันจะรวมรหัสทั้งสองหรือใช้รหัสหลังหรือไม่ หากรหัสผ่านของฉันคือ "dog" ฉันจะแทนที่ค่าใดค่าหนึ่งในรหัสหรือไม่ ฉันกำลังสมัครแผ่นงานเดียวเท่านั้น ("Sheet1"); ฉันจะใช้ที่ใดก็ได้? ขอบคุณมากล่วงหน้า!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โปรดช่วยฉัน ฉันต้องการยุบและขยายม้วนและคอลัมน์บางส่วนในสเปรดชีต excel ที่มีการป้องกัน ฉันจะใช้มาโครเพื่อทำสิ่งนี้ได้อย่างไร ฉันได้ลองสิ่งที่คุณแสดงแล้วแต่ใช้ไม่ได้กับสเปรดชีตของฉัน กรุณาช่วย.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี โปรดช่วยฉันขยายและยุบม้วนและคอลัมน์ในสเปรดชีต excel ที่มีการป้องกัน ฉันลองใช้สิ่งที่คุณแสดงด้านบนแล้ว แต่ไม่ได้ผล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีคนถาม/ตอบแล้ว? ในรหัสคุณสามารถระบุ / เปลี่ยนรหัสผ่านส่วนตัวได้ที่ไหน?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะเปลี่ยนรหัสผ่านเป็นค่าอื่นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันใช้คำสั่ง ฉันเห็นข้อความแสดงข้อผิดพลาดดังที่แสดงด้านล่าง:
สมุดงานย่อยส่วนตัว_Open()
Dim wsh เป็นตัวแปร
สำหรับแต่ละ wsh ในแผ่นงาน(Array("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = จริง
wsh.Protect รหัสผ่าน:="260615", DrawingObjects:=False, _
เนื้อหา:=จริง, _
สถานการณ์:=จริง, _
AllowFiltering:=จริง, _
AllowFormattingCells:=จริง, _
ส่วนต่อประสานผู้ใช้เท่านั้น:=True
ถัดไป wsh
ย่อยสิ้นสุด
ข้อผิดพลาดรันไทม์ '9':
ตัวติดตามอยู่นอกช่วง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้สักครู่เมื่อคุณปิดและเปิดใหม่จะหยุด :(
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับฉัน มีวิธีอื่นอีกไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สมุดงานย่อย_Open()
'อัปเดต 20140603
Dim xWs เป็นเวิร์กชีต
ตั้งค่า xWs = Application.ActiveSheet
Dim xPws เป็นสตริง
xPws = "rfc" ''Application.InputBox("รหัสผ่าน:", xTitleId, "", ประเภท:=2)
xWs.Protect รหัสผ่าน:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับรหัสนี้เพื่อใช้งานได้ แต่เมื่อฉันปิดและเปิดใหม่ ฉันต้องไปที่แท็บนักพัฒนา เลือกปุ่มมาโคร เลือกเรียกใช้ และป้อนรหัสผ่าน

มีวิธีลบรหัสผ่านออกจากรหัสหรือรหัสเรียกใช้อัตโนมัติที่จะเรียกใช้ Marco นี้โดยอัตโนมัติและป้อนรหัสผ่านหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในการแก้ไขปัญหานี้ไม่ทำงานในไฟล์ของคุณหลังจากที่คุณปิดและเปิดมันอีกครั้ง คุณต้องวางโค้ด VBA ใน "ThisWorkbook" ใต้ Microsoft Excel Objects แทนที่จะเป็นโมดูลใหม่ จากนั้นจะเรียกใช้แมโครโดยอัตโนมัติทุกครั้งที่เปิดไฟล์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณมีภาพจริงสำหรับรหัส VBA ที่กล่าวถึงเมื่อ 6 วันก่อนเพื่อ Peachyclean เกี่ยวกับ ThisWorkbook ภายใต้ Microsoft Objects แทนที่จะเป็นโมดูลใหม่หรือไม่ ฟังก์ชั่นหายไปเมื่อฉันกลับเข้าไปในสมุดงานของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บางคนอาจต้องการสิ่งนี้ ฉันคิดว่าฉันรู้วิธีที่จะทำให้สิ่งนี้สำเร็จ

ขั้นแรก รหัสของคุณต้องเขียนใน "ThisWorkbook" ภายใต้ Microsoft Excel Objects ตามที่ @peachyclean แนะนำ
ประการที่สอง นำโค้ดที่ @Sravanthi เขียนไปวางในตำแหน่งที่กล่าวถึงข้างต้น

สมุดงานย่อย_Open()
'อัปเดต 20140603
Dim xWs เป็นเวิร์กชีต
ตั้งค่า xWs = Application.ActiveSheet
Dim xPws เป็นสตริง
xPws = "rfc" ''Application.InputBox("รหัสผ่าน:", xTitleId, "", ประเภท:=2)
xWs.Protect รหัสผ่าน:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = จริง
ย่อยสิ้นสุด

สิ่งสำคัญคือคุณต้องอยู่บนแผ่นงานที่คุณต้องการป้องกัน แต่อนุญาตให้ใช้การจัดกลุ่ม และบันทึกเวิร์กบุ๊กและปิดโดยไม่ต้องป้องกัน ตอนนี้ ถ้าคุณเปิดแมโครจะเริ่มทำงานโดยอัตโนมัติ จะทำให้ชีตได้รับการป้องกันด้วยรหัสผ่าน "rfc" ตอนนี้คุณสามารถใช้การจัดกลุ่มได้ แผ่นงานได้รับการปกป้อง

สำหรับวิธีแก้ปัญหาของฉัน ฉันได้แก้ไขรหัสผ่านที่ใช้ ดังนั้นคุณสามารถเขียนรหัสผ่านใหม่ได้ที่นี่:
xPws = "WRITEANYPASSWORDHERE" ''Application.InputBox("รหัสผ่าน:", xTitleId, "", ประเภท:=2)

นอกจากนี้ ฉันไม่ต้องการให้ชีตที่ได้รับการป้องกันทำงานเมื่อเปิดไฟล์ ดังนั้นฉันจึงแก้ไขส่วนนี้:
ตั้งค่า xWs = Application.ActiveSheet ->
ตั้งค่า xWs = Application.Worksheets("WRITEANYSHEET'SNAMEHERE")

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


ฉันหวังว่ามันจะช่วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hii .. สิ่งนี้ได้ผลอย่างมหัศจรรย์ ที่เดียวที่ฉันติดอยู่ตอนนี้คือฉันต้องทำเช่นนี้หลายแผ่นในสมุดงาน คุณช่วยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สตริงนี้ดูเหมือนจะเป็นสิ่งที่ฉันต้องการอย่างแท้จริง เนื่องจากฉันไม่รู้อะไรเกี่ยวกับ VBA ฉันสามารถทำให้สิ่งนี้ใช้งานได้ในตอนแรก แต่ดังที่ได้กล่าวไว้ เมื่อคุณปิดสเปรดชีตและเปิดใหม่อีกครั้ง มันใช้งานไม่ได้อีกต่อไป ฉันพยายามเขียนโค้ดใน "ThisWorkbook" ตามที่ระบุไว้ แต่ไม่รู้ว่าต้องทำอย่างไร ฉันมองเห็น "ThisWorkbook" ได้ แต่ฉันไม่รู้ว่าจะเขียนอย่างไร ทุกวิธีที่ฉันเห็นในการสร้างโมดูล จะสร้างโมดูลใหม่ในโฟลเดอร์ "โมดูล" ที่แยกจากกัน นอกโฟลเดอร์ "Microsoft Excel Objects" ข้อเสนอแนะใด ๆ เกี่ยวกับวิธีการใส่รหัสนี้ใน "ThisWorkbook"?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
น่ากลัว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีจัดกลุ่มและเลิกจัดกลุ่มแถวและคอลัมน์ในแผ่นงานที่มีการป้องกัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
f*ck สิ่งนี้ขโมย excel ของฉันในภายหลังและเปลี่ยนรหัสผ่านแบบส่วนตัว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีทำให้สิ่งนี้ทำงานบนเวิร์กบุ๊กที่แชร์ได้หรือไม่ - ฉันต้องการเปลี่ยนแทร็ก ขอบคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ