Forum Discussion

rbalza's avatar
rbalza
Brass Contributor
Jul 29, 2021

Lock cells with VBA script

Hi everyone, could someone help me out on this one please. So I have locked specific cells (highlighted on the pic). However, there were an existing script beside it (with red formatted column) which...
excel
Formulas and Functions
Macros and VBA
rbalza's avatar
rbalza
Brass Contributor
Aug 01, 2021
Hi, doesn't seem to work. Would you mind sharing how it works, please? Thanks!
  • rbalza's avatar
    rbalza
    Brass Contributor
    Aug 01, 2021

    Subodh_Tiwari_sktneer 

    Appreciated the time that you are taking on this. How can I lock an un-contiguous range? ie. C14:C20, C22:C23, C25:C26, and any other ranges per se? Thanks much!

    • Subodh_Tiwari_sktneer's avatar
      Subodh_Tiwari_sktneer
      Silver Contributor
      Aug 01, 2021

      rbalza 

      You may try something like this...

       

      Dim rng As Range
Set rng = Range("C14:C20, C22:C23, C25:C26")
ActiveSheet.Unprotect 'Unprotect the sheet before you change the lock property along with the password if any
rng.Locked = True
ActiveSheet.Protect   'Protect the sheet again in the end
      • rbalza's avatar
        rbalza
        Brass Contributor
        Aug 01, 2021

        Hi Subodh_Tiwari_sktneer,

         

        Not sure what I have missed but there's an error to it. Error says "unable to set the Locked property of the Range class". Thanks!