Apologies, because I think the error lies in the original
"protection" routine. I had been trying to avoid selecting
each worksheet before applying the "protection" code.
Looks as though avoiding 'select' results in the code
failing to protect the sheet.

Regards.

"Tom Ogilvy" wrote in message
...
if you unprotect the worksheet it should work.

--
Regards,
Tom Ogilvy

"Stuart" wrote in message
...
I wish to check that a complicated (for me) protection routine is
coded and operating correctly.

Addin code allows a User to select their workbook(s) and then
continues to open their selection. As it does so, code ends with
.Protect
.EnableSelection = xlUnlockedCells

Can I say something like:

Sub Test_Protection()
Dim ws As Worksheet, c As Range
For Each ws In ActiveWorkbook.Worksheets
With ws
For Each c In .UsedRange.Columns("A:G")
If Not c.Locked = True Then
'User is permitted to edit this cell, so color it:
c.Interior.ColorIndex = 34
End If
Next
End With
Next
End Sub

This doesn't work for me.

Regards.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.692 / Virus Database: 453 - Release Date: 28/05/2004