Use VB to unlock & lock cell protection
 

Hi everyone

was wondering if anyone out there was able to fill in the blanks for me
please.

Using VB

Turn this:

ActiveSheet.Unprotect.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

into something like this:

Sub()

Application.ScreenUpdating = False

ActiveSheet.Unprotect.Password: = "myPassword"

------ActiveSheet.DoMyThing

ActiveSheet.Protect.Password: = "myPassword", ReConfirm_Password: =
"myPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True

------DoMyOtherThing

Application.ScreenUpdating = True

End Sub

So the idea here that the user clicks Macro button, it opensTargetWB,
activatesTargetWS, removes cell protections, pastes values, re-applies cell
protection, then closesWB, all within the blink of an eye never knowing that
the cell protection was touched.

Ideas & Suggestions welcomed

TIA
Mick

Use VB to unlock & lock cell protection
 

On Feb 14, 9:09*am, "Vacuum Sealed" wrote:
Hi everyone

was wondering if anyone out there was able to fill in the blanks for me
please.

Using VB

Turn this:

ActiveSheet.Unprotect.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

into something like this:

Sub()

Application.ScreenUpdating = False

ActiveSheet.Unprotect.Password: = "myPassword"

------ActiveSheet.DoMyThing

ActiveSheet.Protect.Password: = *"myPassword", ReConfirm_Password: =
"myPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True

------DoMyOtherThing

Application.ScreenUpdating = True

End Sub

So the idea here that the user clicks Macro button, it opensTargetWB,
activatesTargetWS, removes cell protections, pastes values, re-applies cell
protection, then closesWB, all within the blink of an eye never knowing that
the cell protection was touched.

Ideas & Suggestions welcomed

TIA
Mick

Sub()

Const PW as string="MyPassword"

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:= PW
------ActiveSheet.DoMyThing

ActiveSheet.Protect Password:= PW, DrawingObjects:=True,
Contents:=True, Scenarios:=True

------DoMyOtherThing

Application.ScreenUpdating = True

End Sub

You may need to take steps such that the password can't be simply
looked up, i.e. protect the code.

A.

Use VB to unlock & lock cell protection
 

Thx Alan

Appreciate the help

Cheers
Mick