Snasui Excel Forum

Posted: **Tue Sep 17, 2019 10:38 am**

Sub UnProtectAllSheets0()
   For Each sht In ThisWorkbook.Worksheets
       sht.Unprotect Password:="0000"
   Next
End Sub

โคดด้านบนใช้เป็นประจำตั้งแต่หัดเริ่มตอนใช้ VBA excel 2003, 2007
แต่ตอนนี้บางเครื่องที่ใช้ 2007 ส่วนใหญ่จะ error ตรง "sht"
มีโคดอะไรแทนกันได้ไหมครับ

Posted: **Tue Sep 17, 2019 11:24 am**

ปรับเป็น

Sub ProtectAllSheets0()
   For Each sht In Worksheets
       sht.Protect Password:="0000"
   Next
End Sub

สอบถามเกียวกับการ Protect ทุก Sheet