Hello,

I have some excel files with userforms. I have procedures to show these
forms, that are linked to toolbar buttons (1 for each form). If the file name
is changed or is moved to a different folder, the button wont work anymore
(unless the file name is changed with "save as" of course).

My workaroud:

1. in Workbook_Open(), I run a procedure that links all forms to the toolbar
buttons.

2. Once "installed" the toolbar, it stores the workbook's current path in a
hidden sheet and saves the file.

3. The next time we open the file, in Workbook_Open() will check the current
path with tha saved one, if its different, it will install the toolbar again.
Looks like this:

Private Sub Workbook_Open()
If HData.Range(HDATA_CELL_INSTALL) < ThisWorkbook.Path Then
If MsgBox("Instalar la barra de herramientas?", vbYesNo) = vbYes Then
instalar
ThisWorkbook.Save
End If
End If

End Sub


I am trying to find a way to check if the workbook is linked to the toolbar,
or if the toolbar has a valid path and file, or something like it.

Appreciate your help!

Hi Fernando,

You could create a new set of menus each time you load your file and delete
on close.

If you have several similar files open at the same time with similar code in
each, you could create and delete menus in workbook activate / deactivate
events.

Regards,
Peter T

"Fernando" wrote in message
...
Hello,

I have some excel files with userforms. I have procedures to show these
forms, that are linked to toolbar buttons (1 for each form). If the file
name
is changed or is moved to a different folder, the button wont work anymore
(unless the file name is changed with "save as" of course).

My workaroud:

1. in Workbook_Open(), I run a procedure that links all forms to the
toolbar
buttons.

2. Once "installed" the toolbar, it stores the workbook's current path in
a
hidden sheet and saves the file.

3. The next time we open the file, in Workbook_Open() will check the
current
path with tha saved one, if its different, it will install the toolbar
again.
Looks like this:

Private Sub Workbook_Open()
If HData.Range(HDATA_CELL_INSTALL) < ThisWorkbook.Path Then
If MsgBox("Instalar la barra de herramientas?", vbYesNo) = vbYes
Then
instalar
ThisWorkbook.Save
End If
End If

End Sub


I am trying to find a way to check if the workbook is linked to the
toolbar,
or if the toolbar has a valid path and file, or something like it.

Appreciate your help!