invoke Worksheet_Change when the sheet is protected...

Re: invoke Worksheet_Change when the sheet is protected...

Something like this perhaps?

Private Sub Worksheet_Change(ByVal Target As Range) 


Sheet1.Unprotect Password:="PASSWORD-HERE" 'Assign Sheet Names and Passwords as needed.


    Application.EnableEvents = False 
    Application.ScreenUpdating = False 
    Application.DisplayAlerts = False 
     
    Dim rng As Excel.Range 
    Const conCOL_I = 9 'Column I
     
    Set rng = Range(Target.Address) 
     
    If rng.Column = conCOL_I And Val(rng.Value) > 0 Then 


'ect...


Sheet1.Protect Password:="PASSWORD-HERE"

Re: invoke Worksheet_Change when the sheet is protected...

Yegarboy

Your code switches screen updating off, but does not switch it back on.

mjschukas

You can also use Protect with UserInterfaceOnly

Re: invoke Worksheet_Change when the sheet is protected...

Hey Roy,

Not my code lol..I only added a snip to unprotect and protect his code. I used his code as a reference

Re: invoke Worksheet_Change when the sheet is protected...

Sorry I didn't notice that.