Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

About Rectangles and Macros 2

Status
Not open for further replies.

feipezi

IS-IT--Management
Aug 10, 2006
316
US
Hi,

Not sure how to put it so the subject sounds lousy.

I got a workbook from one of my associates. The macros in the workbook are quite simple. There are a few rectangles on a tab, named "Main Tab". As you click one of the shapes (rectangles), you will be taken to a specific sheet. It looks like there a macro behind each shape. Usually, as you right-click a shape, you will be able to see a dropdown, of which there is something like "Assign Macro...".

The funny thing is as I right-click the shapes, there is no dropdown at all. It feels like there is no response. I guess the guy who created this thing disabled the dropdown after macros assigned. But how?

Thanks in advance.



 
hi,

Did you check to see if these are controls that appear to be rectangles, like an image control? Look in the VB Editor on the code sheet for the worksheet.

Or could there be a Class Module that contains event code for these objects?



Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Hi Skip,

No. There is no macros behind that worksheet. All the macros are in Module1. They look like this:


Sub Readme()
Sheets("0. Read Me").Select
End Sub
Sub back_to_navigation()
Sheets("Main Menu").Select
End Sub
Sub Monthly_SRFs()
Sheets("1. Monthly SRFs").Select
End Sub
Sub Comparing_conversion()
Sheets("2. Monthly Conversions").Select
End Sub
Sub Monthly_details()
Sheets("3. Monthly Details").Select
End Sub
Sub Payment_type()
Sheets("4. Payment type").Select
End Sub
Sub Productivity()
Sheets("5. Patients productivity").Select
End Sub
Sub Top_insurers()
Sheets("6. Top insurance providers").Select
End Sub
Sub Prescriber()
Sheets("7. Prescriber view").Select
End Sub
....


There is no class module either. I still believe it's just Form controls, not ActiveX.

Thanks again
 
an ActiveX control in edit mode will not react to a left-click popup.

I have no other ideas at this time.

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
>disabled the dropdown after macros assigned

Check your sheet's Protection setting, as I imagine it is set to On
 
Not sure what you meant: disabled the dropdown... I cannot disable them because I lost access to them: I mean I cannot right-click them.

"Protection setting"? Did you mean Trust center setting? like Macro settings; protected view and so on. I did not see anything suspicious. Not sure what's the right way of removing protection.

Please advise.

Thanks in advance.
 
PHV was quoting you about the disabled dropdown feature on right click, related to sheet protection. Check to see if the sheet is protected.

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
PHV? Tut! ;-)

If using Office 2007 or 2010, select THE Home tab, and click Format in the Cells section. Down the bottom of the resulting menu you'll see "Unprotect Sheet" (assuming that I'm right that it is sheet protection that is causing your issue; if I'm not it'll say 'Protect Sheet' and we'll have to think again)
 
A thousand pardons! Where was my head???

Skip,

[glasses]Just traded in my old subtlety...
for a NUANCE![tongue]
 
Thanks strongm! You're right. That particular tab was pass-protected so there is no way of right-clicking and/or seeing dropdown or assigning macros. I took Review on the ribbon, and then Unprotect Sheet but I was asked for a pass that I don't have. So problems are solved. No idea of why it's pass-protected. There is nothing sophisticated in it.

Thank you all again, folks! You guys are the best.

Take care.

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top