ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Need Help with Run-time error (https://www.excelbanter.com/excel-programming/366290-need-help-run-time-error.html)

Digital2k

Need Help with Run-time error
 
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a macro to
play the file.
I want to Protect the sheet. When I play the file when the sheet is lock I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k



markwalling

Need Help with Run-time error
 
you cannot select locked objects. you either have to unprotect the
sheet during th macro, or unprotect the object
Digital2k wrote:
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a macro to
play the file.
I want to Protect the sheet. When I play the file when the sheet is lock I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k



Bob Phillips

Need Help with Run-time error
 
Just take protection off

Play Macro

Activesheet.Unprotect
ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
Activesheet.Protect
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a macro

to
play the file.
I want to Protect the sheet. When I play the file when the sheet is lock I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k





Digital2k

Need Help with Run-time error
 
I thought excel can do almost anything. I'm sure there must be a way to have
my spreadsheet locked and have the ability to play a file. I have a picture
as the object linked to the macro to play the file and it is unprotected.
This is the error: Method 'Select' of object 'Shape' failed.
Can anyone help?
Thanks,
Digital2k

"Bob Phillips" wrote in message
...
Just take protection off

Play Macro

Activesheet.Unprotect
ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
Activesheet.Protect
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a macro

to
play the file.
I want to Protect the sheet. When I play the file when the sheet is lock
I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k







Bob Phillips

Need Help with Run-time error
 
My suggestion was to temporarily remove it and then put it back, via code.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
I thought excel can do almost anything. I'm sure there must be a way to

have
my spreadsheet locked and have the ability to play a file. I have a

picture
as the object linked to the macro to play the file and it is unprotected.
This is the error: Method 'Select' of object 'Shape' failed.
Can anyone help?
Thanks,
Digital2k

"Bob Phillips" wrote in message
...
Just take protection off

Play Macro

Activesheet.Unprotect
ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
Activesheet.Protect
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a

macro
to
play the file.
I want to Protect the sheet. When I play the file when the sheet is

lock
I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k









Digital2k

Need Help with Run-time error
 
Thank you Bob!
That worked

"Bob Phillips" wrote in message
...
My suggestion was to temporarily remove it and then put it back, via code.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
I thought excel can do almost anything. I'm sure there must be a way to

have
my spreadsheet locked and have the ability to play a file. I have a

picture
as the object linked to the macro to play the file and it is unprotected.
This is the error: Method 'Select' of object 'Shape' failed.
Can anyone help?
Thanks,
Digital2k

"Bob Phillips" wrote in message
...
Just take protection off

Play Macro

Activesheet.Unprotect
ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
Activesheet.Protect
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Digital2k" wrote in message
...
Hello Group,

I have a excel spreadsheet (2003) that has a wave file. I created a

macro
to
play the file.
I want to Protect the sheet. When I play the file when the sheet is

lock
I
get a Run-time error.
This is the macro:

Play Macro

ActiveSheet.Shapes("Object 100").Select
Selection.Verb Verb:=xlPrimary
Range("B8").Select
End Sub

When I select debug this is the line that is highlighted:
ActiveSheet.Shapes("Object 100").Select

Any help on this matter is appreciated.
Digital2k












All times are GMT +1. The time now is 11:46 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com