Embedded Object

[Abhishek1988]

Hello everyone,

I am working on a UserForm where on click on button embedded objects will be open. I am using below codw for this which is working fine. However i want objects (workbook) should open as read only so no one can edit the same. Pls help

Private Submit_click ()

If cmbox.value = "Animal" then
Sheets ("Sheet2").OLEobjects("object 55"). Activate

End if

End sub

 

[Jaafar Tribak]

Hello everyone,

I am working on a UserForm where on click on button embedded objects will be open. I am using below codw for this which is working fine. However i want objects (workbook) should open as read only so no one can edit the same. Pls help

Private Submit_click ()

If cmbox.value = "Animal" then
Sheets ("Sheet2").OLEobjects("object 55"). Activate

End if

End sub

Are you opening workbook files ?

If you know the files path, can't you just use the Workbooks.Open ReadOnly=TRUE method ?

 

[Abhishek1988]

Yes we are opening.. but it's based on objects bcoz there are lot's of objects. If it would be workbook open. Then what would be code then?

 

[Jaafar Tribak]

Yes we are opening.. but it's based on objects bcoz there are lot's of objects. If it would be workbook open. Then what would be code then?

Something like this ;

 Workbooks.Open Filename:="[B]EnterYourFilePathNameHere[/B]", ReadOnly:=True

The path and file names you can find out about them by selecting the object and looking at the formula bar

I am assuming you are linking the workbooks not embeeding them .

 

[Abhishek1988]

It's coming like "embedded " " for all objects..

 

[Jaafar Tribak]

It's coming like "embedded " " for all objects..

Try this little code in the module of the worksheet where you have the embdded objects

MsgBox Me.OLEObjects(1).OLEType

Do you get 0 or 1 ?

 

[Abhishek1988]

It's not working. can't i edit this code?

If cmbox.value = "Animal" then
Sheets ("Sheet2").OLEobjects("object 55"). Activate

and some read only code?

 

[Jaafar Tribak]

It's not working. can't i edit this code?

If cmbox.value = "Animal" then
Sheets ("Sheet2").OLEobjects("object 55"). Activate

and some read only code?

Try this :

[COLOR=#333333]MsgBox  [/COLOR][COLOR=#333333]Sheets("Sheet2").OLEobjects("object 55").[/COLOR][COLOR=#333333]OLEType[/COLOR]

 

[Abhishek1988]

on place of

Sheets ("Sheet2").OLEobjects("object 55"). Activate

i mentioned MsgBox Sheets("Sheet2").OLEobjects("object 55").OLETyp, and it;s not working.

 

[Jaafar Tribak]

on place of

Sheets ("Sheet2").OLEobjects("object 55"). Activate

i mentioned MsgBox Sheets("Sheet2").OLEobjects("object 55").OLETyp, and it;s not working.

The reason I am asking is to establish whether the Oleobject is embedeed or linked .

If it is linked then you have a file path so you can easily use the Workbooks.Open ReadOnly method I suggested eralier on.

If you have an embedeed object on Sheet2 named object 55 then the following should work .. It should return 0 or 1.

MsgBox Sheets("Sheet2").OLEObjects("object 55").OLEType

Make sure you are passing the correct worksheet and object names .