Excel Forum

Posted: **Thu Jun 22, 2023 8:49 pm**

จากโค๊ดนี้

Sub UnprotectBook()
    ActiveWorkbook.Unprotect Password:="1234"
    Sheets("Main").Select
    Sheets("School").Visible = True
End Sub

ต้องปรับแก้อย่างไร ให้ผู้ใช้ใส่รหัสปลดล็อคก่อน จึงจะปลดล็อกการป้องกัน Workbook ได้

Posted: **Thu Jun 22, 2023 9:58 pm**

สามารถใช้ InputBox เข้ามาช่วยได้ครับ เช่น

ActiveWorkbook.Unprotect Password:=inputbox("Your password")

Posted: **Sun Jun 25, 2023 4:17 pm**

ขอบคุณครับ

การป้องกันและปลดล็อคการป้องกัน Workbook ด้วย VB