Confused, again! Object variable not set?

[davegb]

This code is on the worksheet module. It hides the commandbar that is
unique to this sheet when the sheet is deactivated and erases the
commandbar name from the worksheet so that XL doesn't try to hide the
toolbar when the workbook is closed.

Private Sub Worksheet_deActivate()
Application.CommandBars("Abuse").Visible = False

With wksMacRec
.Unprotect Password:=PWORD<----ERROR
.Range("E2").Value = ""
.Protect Password:=PWORD
End With
'ActiveWorkbook.Worksheets("Macro Records").Range("E2").Value = ""
End Sub

I'm getting an "object variable or with block variable not set" error.
The password in set as a public constant in another module in this same
workbook. So whatzzup?
Thanks as always.

[Jim Thomlinson]

Where is wksMacRec set. Is the sheet named that or is it set somewhere else???

set wksMacRec = sheets("Sheet1") '???

--
HTH...

Jim Thomlinson


"davegb" wrote:

> This code is on the worksheet module. It hides the commandbar that is
> unique to this sheet when the sheet is deactivated and erases the
> commandbar name from the worksheet so that XL doesn't try to hide the
> toolbar when the workbook is closed.
>
> Private Sub Worksheet_deActivate()
> Application.CommandBars("Abuse").Visible = False
>
> With wksMacRec
> .Unprotect Password:=PWORD<----ERROR
> .Range("E2").Value = ""
> .Protect Password:=PWORD
> End With
> 'ActiveWorkbook.Worksheets("Macro Records").Range("E2").Value = ""
> End Sub
>
> I'm getting an "object variable or with block variable not set" error.
> The password in set as a public constant in another module in this same
> workbook. So whatzzup?
> Thanks as always.
>
>

[JakeyC]

I think it may be because PWORD needs to either be "PWORD" or before
using it, state PWORD = "mYPassWOrD"

[Chip Pearson]

As far as I can see in your code, you've never set the wksMacRec
variable. You need some code like

Dim wksMacRec As Worksheet
Set wksMacRec = Worksheets("Sheet1")


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"davegb" <[email protected]> wrote in message
news:[email protected]...
> This code is on the worksheet module. It hides the commandbar
> that is
> unique to this sheet when the sheet is deactivated and erases
> the
> commandbar name from the worksheet so that XL doesn't try to
> hide the
> toolbar when the workbook is closed.
>
> Private Sub Worksheet_deActivate()
> Application.CommandBars("Abuse").Visible = False
>
> With wksMacRec
> .Unprotect Password:=PWORD<----ERROR
> .Range("E2").Value = ""
> .Protect Password:=PWORD
> End With
> 'ActiveWorkbook.Worksheets("Macro Records").Range("E2").Value =
> ""
> End Sub
>
> I'm getting an "object variable or with block variable not set"
> error.
> The password in set as a public constant in another module in
> this same
> workbook. So whatzzup?
> Thanks as always.
>

[GB]

Testing methodoligy would suggest try commenting out the first affected line.
If the next line gives the same error, then it would suggest the cause that
others here have indicated. If it is a different error (as obviously to
perform the requested function the protection must be turned off to do the
next step) then there is definetly a problem with the line indicated and it
is other than that suggested by others here.


"davegb" wrote:

> This code is on the worksheet module. It hides the commandbar that is
> unique to this sheet when the sheet is deactivated and erases the
> commandbar name from the worksheet so that XL doesn't try to hide the
> toolbar when the workbook is closed.
>
> Private Sub Worksheet_deActivate()
> Application.CommandBars("Abuse").Visible = False
>
> With wksMacRec
> .Unprotect Password:=PWORD<----ERROR
> .Range("E2").Value = ""
> .Protect Password:=PWORD
> End With
> 'ActiveWorkbook.Worksheets("Macro Records").Range("E2").Value = ""
> End Sub
>
> I'm getting an "object variable or with block variable not set" error.
> The password in set as a public constant in another module in this same
> workbook. So whatzzup?
> Thanks as always.
>
>

[davegb]

Thanks for all your help. The problem was that wksMacRec was not set in
this macro. I forgot that a "set" has to be done in each separate macro
and can't be done publicly like setting a constant.