Announcement

Collapse

ยินดีต้อนรับสู่ Excel Expert Training Forum

กฏกติกาของฟอรัม: แจ้งชื่อและนามสกุลจริงในการสมัครสมาชิก - ตั้งชื่อกระทู้ให้ตรงกับปัญหาที่ถาม - เขียนอธิบายคำถามทั้งในตัวกระทู้และในแฟ้มแนบ - ห้ามใช้คำว่า อ่ะ คับ คำผวน - ตั้งชื่อแฟ้มเป็นภาษาอังกฤษให้สื่อถึงปัญหา - อย่าระบุชื่อให้คนใดเป็นผู้ตอบ - งดให้ความร่วมมือหรือช่วยกระทู้ที่ละเมิดกฏของฟอรัม
See more
See less

การ Enable Group / Ungroup sheet ที่ protected

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • การ Enable Group / Ungroup sheet ที่ protected

    สอบถามการทำให้ชี๊ตที่ทำการล๊อคสูตรแล้วใส่พาสเวิร์ดไว้ ให้สามารถทำ Group / Ungroup ได้ครับ ไฟล์ที่ผมแนบมาพาสเวิร์ด 111 ในการ Unprotected ครับ ขอบคุณล่วงหน้าครับ

  • #2
    ที่เคยเจอเค้าใช้ VBA ในการทำครับ
    ลองโค้ดนี้ดูครับ

    Private Sub Workbook_Open()
    With Worksheets("ชื่อชีต")
    .EnableOutlining = True
    .Protect UserInterfaceOnly:=True
    End With
    End Sub
    https://answers.microsoft.com/en-us/...b-ac208861950f

    ปล.ไฟล์ที่แนบมาผมเปิดไม่ได้เลย น่าจะมีลิงค์ที่ใช้งานไม่ได้ครับ

    Comment


    • #3
      ได้แล้วครับ ขอบคุณครับผมลองโค้ดนี้ดูครับ

      Option Explicit

      ' The following code goes in the ThisWorkbook module

      Private Sub Workbook_Open()

      With ActiveWorkbook.Sheets("ชื่อ sheet")

      .Protect Password:="Password ที่กรอกเพื่อ Protect sheet", UserInterfaceOnly:=True

      .EnableOutlining = True

      End With

      End Sub

      Comment

      Working...
      X