Unlocking in 97

  • Thread starter Thread starter Wes
  • Start date Start date
W

Wes

I've written some code that makes changes to a protected
sheet. Therefore it had to be unprotected. I know that
in 97 the problem is that it is confused about what has
the focus so you need to activate the sheet and possibly
the active cell. The problem this time is that at that
point of the program 2 sheets are seleted. The only
soloution I came up with that seems to work is to have the
program select a different sheet then select the sheet I
want to unlock, unlock it make the changes, lock it,
select the 2 sheets again. This is not a great soloution
since the program repeats this a number of times, printing
the 2 sheets, making some changes then printing again.

Is there a way around this, like an unselect command for
one of the sheets or a way that I could unprotect a page
even when 2 sheets are selected.

Thanks in advance for any help.

Wes
 
Wes,

If your code is sheet specific, it shouldn't matter if multiple sheets are
selected.

This worked for me when sheets 1 & 2 were selected and only sheet 1
had the result.

Sheets("Sheet1").Range("A1") = "steve"

You should be able to unprotect and protect the same way.
 
Here is the code: (I don't have xp on this computer, but
I'm sure it does work on xp. The problem is when I run
this on 97)


Sub unlockit()
With Worksheets("sheet1")

.Unprotect
.Range("a1").Value = "unlocked"
.Protect
End With
End Sub

This works fine if you have a single sheet selected. It
does not work if you have both sheets 1 and 2 selected.

Is there an "ungroup" command?
 
Back
Top