Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim valeur as range
- For Each valeur In ThisWorkbook.Worksheets(1).Range("A1:A" & ThisWorkbook.Worksheets(1).Range("A1").End(xlDown).Row)
- ThisWorkbook.Worksheets(1).Protection.AllowEditRanges.Add("T" & valeur.row ,"B" & valeur.row & ":AA" & valeur.row, "Test")
- Next valeur
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement