View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Vacuum Sealed[_2_] Vacuum Sealed[_2_] is offline
external usenet poster
 
Posts: 87
Default 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