Excel Forum

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