EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Unlock_click()
Workbooks("shareworkbook.xlsx").Activate
ActiveWorkbook.ExclusiveAccess
ActiveSheet.Unprotect Password:="1234"
End Sub
Code: Select all
Sub Lock_Click()
Workbooks("shareworkbook.xlsx").Activate
ActiveSheet.Protect Password:="1234"
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.SaveAs Filename:="C:\Users\ACCOUNT\Documents\shareworkbook.xlsx", _
FileFormat:=xlOpenXMLWorkbook, AccessMode:=xlShared
With ActiveWorkbook
.AutoUpdateFrequency = 5
.AutoUpdateSaveChanges = True
End With
End Sub
Code: Select all
Sub Unlock_click()
Application.DisplayAlerts = False
Workbooks("shareworkbook.xlsx").Activate
ActiveWorkbook.ExclusiveAccess
ActiveSheet.Unprotect Password:="1234"
Application.DisplayAlerts = True
End Sub
Sub Lock_Click()
Application.DisplayAlerts = False
Workbooks("shareworkbook.xlsx").Activate
ActiveSheet.Protect Password:="1234"
ActiveWorkbook.KeepChangeHistory = True
ActiveWorkbook.SaveAs Filename:="C:\Users\ACCOUNT\Documents\shareworkbook.xlsx", _
FileFormat:=xlOpenXMLWorkbook, AccessMode:=xlShared
With ActiveWorkbook
.AutoUpdateFrequency = 5
.AutoUpdateSaveChanges = True
End With
Application.DisplayAlerts = True
End Sub