snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub ProtectAllsheets()
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
sht.Protect PassWord:="abc123"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowUsingPivotTables:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next
Application.ScreenUpdating = True
End Sub
You do not have the required permissions to view the files attached to this post.
Sub ProtectAllsheets()
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
sht.Protect PassWord:="abc123"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowUsingPivotTables:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next
Application.ScreenUpdating = True
End Sub
Sub ProtectAllsheets()
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
sht.Protect Password:="abc123", Contents:=True, AllowUsingPivotTables:=True
Next
Application.ScreenUpdating = True
End Sub