protecting selected range across multiple sheets

[monoj chakraborty]

Hey good people,

I am trying to protect non-adjacent ranges across multiple worksheets and here's the snipped of the code I have written :

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "topsheet" Then

        Set Rng = Application.Union(Range("m:n"), Range("ad:at"))
        
        ws.Cells.Locked = False
        
        Rng.Locked = True
               
        ActiveSheet.Protect Password:="biscuits", DrawingObjects:=False, Contents:=True, Scenarios:=False
    
    End If
    
Next

but the code is breaking at the line Rng.Locked with the error :

The workbook is also attached for ready reference here.

Kindly help me with in case I am missing anything in the code...

appreciate the help.

 

[Marc L]

Hello, do not forget to obviously unprotect the worksheet before any modification !​

​

 

[monoj chakraborty]

That fixed it @Marc L - you are a life saver!

 

[vletm]

monoj chakraborty
If You would use parameter userinterfaceonly:=True
then You could avoid those protect/unprotect lines.