Link to home
Start Free TrialLog in
Avatar of rha_mtl
rha_mtl

asked on

Make excel macro available to all users

Hello,

How do you make excel macro available to all users?

Refer to link for macro.

Thanks

Excel insert Picture through macro
Avatar of Santosh Gupta
Santosh Gupta

Hi,
To excel macro available to all users. you need to make it as addins. Please go through the below article.

http://www.ozgrid.com/VBA/excel-add-in-create.htm
Avatar of Jacques Geday
Question:
By other users what do you mean ?

1) Users of same PC
2) Any User that uses this file on a server ?

gowflow
Avatar of rha_mtl

ASKER

All users with their own computer on a domain that will access the file via a server
then the file is on a shared drive lets say H and is named let's say Picture.xlsm so we have
H:\Picture.xlsm that is on the server

For users to have access to this file they need to have full control on it and then they can access it.

For sure all sharing that apply to Excel will apply here like if the file is opened by 1 user, then it will flag an other user trying to opening it telling him file will open on Readonly basis until user x has close it.

I do not think that this is what your looking for.

I guess you need to explain why you need to have this file that have a picture that can be shown or hidden with a CTRL be accessible to all users ? to do what ? You maybe need a Template here ! and this is different.

We can also make it addin but here again the way it is will not function as addin we need to modify it but first I need to have a clear understanding on what do you intent to do with the file and why you need users to have access to it ?

gowflow
Avatar of rha_mtl

ASKER

OK.

What the user would like is the following

We have multiple excel files some from clients and some from us. The user would like to be able to identify within the excel document that states that it is ours or the clients. So they would like to be able to insert our logo in cell A1. This way clearly identifying the document when it is opened will be clearly obvious.
Well the macro that was developed does not do this at all. What you are asking is totally different.

ok here is the code for that

Sub CopyPicture()
Dim WSThis As Worksheet
Dim WS As Worksheet
Dim Img As OLEObject
Dim WSImg As OLEObject

Set WS = ActiveSheet
Set WSThis = ThisWorkbook.Worksheets("Main")

On Error Resume Next
Set WSImg = WS.OLEObjects("Image1")
If Err = 0 Then
    
Else
    Set Img = WSThis.OLEObjects("Image1")
    Img.Copy
    WS.Range("A1").PasteSpecial
End If
On Error GoTo 0

End Sub

Open in new window


and here is how it works:

1) Save this file onto your pc
2) Open the file and choose saveas and from the types select Addin *.xlsam
3) close the file
4) Open blank Excel choose Options then Addins then Press on Go in the bottom of the windows it will open a list of Addins make a Tick on this file Addin-Logo press ok and close Excel
5) Open any workbook that you want to include the logo
6) on any sheet that you want press CTRL L and the logo will be affixed on A1 (now you will have the Stop sign)
7) Try again on the same sheet an other time CTRL L it should do nothing like if the logo is there it will not put it again.

Try any other file.

Let me know if it is ok and working then I can guide you to changing to your logo.
gowflow
Addin-Logo.xlsm
Any chance to have tried out the proposed solution ?
gowflow
Avatar of rha_mtl

ASKER

When I open the attached file, it opens with the image in the center sort of. Over cells,please see attached screenshot.

I also tried the ctl L and it didn't work.
screen-shot.jpg
NORMAL !!!!

Follow my instructions. This file means nothing it is only there to use it as an Addin.
Do exactly what I said follow the steps then you will see the final result.

On purpose I put it in the middle to make sure it is not picking up this file !!!! pgming technique. :)

gowflow
Avatar of rha_mtl

ASKER

Ah yes it works.
Once you finish testing it, I will tell you how to change this picture to show your logo.
gowflow
Avatar of rha_mtl

ASKER

OK it works well. I finished testing
ASKER CERTIFIED SOLUTION
Avatar of Jacques Geday
Jacques Geday
Flag of Canada image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Any chance to have tried it out ?
gowflow
Avatar of rha_mtl

ASKER

not yet i will today
Avatar of rha_mtl

ASKER

Excellent it works great.

Thanks for all your help
Your welcome glad I could help.
gowflow
Avatar of rha_mtl

ASKER

Hello,

I forgot to ask is there a way to undo this by typing ctl + L. Right now that function doesnt work.

Do i need to ask another question?

Thanks