Hi. I am trying to clear the contents of all unprotected cells only on a
protected worksheet. Any ideas how to do it without giving the absolute cell
reference for each of the unprotected cells I want to clear?
Hi. I am trying to clear the contents of all unprotected cells only on a
protected worksheet. Any ideas how to do it without giving the absolute cell
reference for each of the unprotected cells I want to clear?
Something like:
Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next
End Sub
--
Vasant
"Ed" <[email protected]> wrote in message
news:[email protected]...
> Hi. I am trying to clear the contents of all unprotected cells only on a
> protected worksheet. Any ideas how to do it without giving the absolute
cell
> reference for each of the unprotected cells I want to clear?
for each cell in activesheet.UsedRange
if cell.locked = false then
cell.Clearcontents
end if
Next
--
Regards,
Tom Ogilvy
"Ed" <[email protected]> wrote in message
news:[email protected]...
> Hi. I am trying to clear the contents of all unprotected cells only on a
> protected worksheet. Any ideas how to do it without giving the absolute
cell
> reference for each of the unprotected cells I want to clear?
Thanks, it worked!
"Vasant Nanavati" wrote:
> Something like:
>
> Sub Test()
> Dim c As Range
> For Each c In ActiveSheet.UsedRange.Cells
> If Not c.Locked Then c.ClearContents
> Next
> End Sub
>
> --
>
> Vasant
>
> "Ed" <[email protected]> wrote in message
> news:[email protected]...
> > Hi. I am trying to clear the contents of all unprotected cells only on a
> > protected worksheet. Any ideas how to do it without giving the absolute
> cell
> > reference for each of the unprotected cells I want to clear?
>
>
>
Thanks, that did it!
"Tom Ogilvy" wrote:
> for each cell in activesheet.UsedRange
> if cell.locked = false then
> cell.Clearcontents
> end if
> Next
>
> --
> Regards,
> Tom Ogilvy
>
> "Ed" <[email protected]> wrote in message
> news:[email protected]...
> > Hi. I am trying to clear the contents of all unprotected cells only on a
> > protected worksheet. Any ideas how to do it without giving the absolute
> cell
> > reference for each of the unprotected cells I want to clear?
>
>
>
Tom,
I've implemented the code you supplied for Ed, however, some of the cells
involved are merged and Error 1004 appears and says "Cannot change part of a
merged cell". Any ideas?
Thanks in advance!
"Tom Ogilvy" wrote:
> for each cell in activesheet.UsedRange
> if cell.locked = false then
> cell.Clearcontents
> end if
> Next
>
> --
> Regards,
> Tom Ogilvy
>
> "Ed" <[email protected]> wrote in message
> news:[email protected]...
> > Hi. I am trying to clear the contents of all unprotected cells only on a
> > protected worksheet. Any ideas how to do it without giving the absolute
> cell
> > reference for each of the unprotected cells I want to clear?
>
>
>
change:
cell.Clearcontents
to
cell.value = ""
RemySS wrote:
>
> Tom,
>
> I've implemented the code you supplied for Ed, however, some of the cells
> involved are merged and Error 1004 appears and says "Cannot change part of a
> merged cell". Any ideas?
>
> Thanks in advance!
>
> "Tom Ogilvy" wrote:
>
> > for each cell in activesheet.UsedRange
> > if cell.locked = false then
> > cell.Clearcontents
> > end if
> > Next
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "Ed" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hi. I am trying to clear the contents of all unprotected cells only on a
> > > protected worksheet. Any ideas how to do it without giving the absolute
> > cell
> > > reference for each of the unprotected cells I want to clear?
> >
> >
> >
--
Dave Peterson
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks