Macro that unlocks a sheet - then locks it when complete

Question

Within a macro I would like to unlock a password protected sheet, copy & paste updates from another sheet, and password protect the sheet again within the macro. I found some simple code that unlocks with a password as well as locks with a password, but I'm not able to include them in the macro? I know it's something simple but nothing seems to work. The locking is only because many associates may unlock it and ruin the operation.

hansvogelaar · Accepted Answer

RMills7676&nbsp;
It could look like this:
Sub UpdateData()
    Const PW = "secret" ' the password of the protected sheet
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet ' the protected sheet
    Application.ScreenUpdating = False
    ' Change the names as needed
    Set SourceSheet = Worksheets("Source")
    Set TargetSheet = Worksheets("Target")
    TargetSheet.Unprotect Password:=PW
    ' Your code here, for example
    SourceSheet.Range("A1").Copy Destination:=TargetSheet.Range("B1")
    TargetSheet.Protect Password:=PW
    Application.ScreenUpdating = True
End Sub

Forum Discussion

Macro that unlocks a sheet - then locks it when complete

Share

Resources