YES! Thank you so much.

It was the double .Protect that was messing things up.

"Dave Peterson" wrote:

If you don't get prompted for a password when you do it manually, then you don't
have a password.

But I'm not sure why you're using two .protect's he

With ActiveSheet
.protect Password:="eli"
.EnableSelection = xlUnlockedCells
.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
End With

did you mean .Unprotect in the first instance?

or maybe...

With ActiveSheet
.unprotect password:="eli"
.EnableSelection = xlUnlockedCells
.protect password:="eli", _
DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
End With

Damian wrote:

I do have merge cells. Thank you.
DIM Protect - worked for the uppercase. Thank you again.

BUT unfortunately that did not solve my problem. the password is "eli" when
i ran my micro it unprotects it and protects it again very nicely, BUT i can
also go to tools and unprotect and it will not prompt me for the password.
How come?

Thanks for all the help

"Dave Peterson" wrote:

#1. Do you have merged cells in that range (column A to C) that include column
B???

If you do, try:
Range("C:C,A:A").ColumnWidth = 4.57

It worked ok in xl2003, but each version of excel seems to treat merged cells
better than the last.

=======

The upper/lower case in .protect won't break your code. It may be irritating,
but it's not a problem.

You can fix the uppercase irritation by typing this line anywhere in your code:
Dim Protect
Then hit enter
Then delete that line.

I'm not sure what your problem is. It could be as simple as that password not
being correct (uppercase ELI???).

Or it could be what caused the .protect to become lower case.

Do you have a subroutine called Protect or a function called Protect or anything
else in your code called Protect?

If it's a subroutine, try naming it:

Sub myProtect(...)

or something that doesn't fight with the stuff built into VBA.


Damian wrote:

I have this code:

Range("C:C,A:A").Select
Selection.ColumnWidth = 4.57
EnableSelection = Excel.XlEnableSelection.xlNoSelection

BUT it changes the with of columns A, B and C. I want B to be left alone.
What am I doing wrong. Also will the last line of code work if I dont want
anything to be selected?

Another question that I posted already but its on 2 page now and I dont
think it will get answared.

In this code:

With ActiveSheet
.protect Password:="eli"
.EnableSelection = xlUnlockedCells
.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
End With

I cant get the "p" in .protect to be capital "P". Everythine I change it it
changes right back and the code dont work.

Thank you

--

Dave Peterson


--

Dave Peterson