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
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" <digital2k@adelphia.net> wrote in message
news:N8mdnSAEOK4WVjbZnZ2dnUVZ_oGdnZ2d@adelphia.com...
> 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
>
>
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" <bob.NGs@somewhere.com> wrote in message
news:e619LEEoGHA.1332@TK2MSFTNGP05.phx.gbl...
> 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" <digital2k@adelphia.net> wrote in message
> news:N8mdnSAEOK4WVjbZnZ2dnUVZ_oGdnZ2d@adelphia.com...
>> 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
>>
>>
>
>
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" <digital2k@adelphia.net> wrote in message
news:geudnUZ2B5ErTjbZnZ2dnUVZ_vGdnZ2d@adelphia.com...
> 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" <bob.NGs@somewhere.com> wrote in message
> news:e619LEEoGHA.1332@TK2MSFTNGP05.phx.gbl...
> > 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" <digital2k@adelphia.net> wrote in message
> > news:N8mdnSAEOK4WVjbZnZ2dnUVZ_oGdnZ2d@adelphia.com...
> >> 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
> >>
> >>
> >
> >
>
>
Thank you Bob!
That worked
"Bob Phillips" <bob.NGs@somewhere.com> wrote in message
news:%23MHTEQEoGHA.3532@TK2MSFTNGP04.phx.gbl...
> 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" <digital2k@adelphia.net> wrote in message
> news:geudnUZ2B5ErTjbZnZ2dnUVZ_vGdnZ2d@adelphia.com...
>> 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" <bob.NGs@somewhere.com> wrote in message
>> news:e619LEEoGHA.1332@TK2MSFTNGP05.phx.gbl...
>> > 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" <digital2k@adelphia.net> wrote in message
>> > news:N8mdnSAEOK4WVjbZnZ2dnUVZ_oGdnZ2d@adelphia.com...
>> >> 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
>> >>
>> >>
>> >
>> >
>>
>>
>
>
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks