Activating Chart Object In Protected Worksheet
Mar 5, 2013
I have a worksheet which is used to display analysis data to the user. The sheet will be further protected with only some cells available to the user. I've used the attached code to retrieve some data from the sheet, clear a bunch of cells to reset the sheet and reset a graph (the graph itself is plotted as a log-log with the 1 to 100 on the Y-axis, hence the resetting of data to 0.5 to push it below the axis and make it invisible ready for later data dumping).
The code worked fine until I protected the worksheet. I have set the charts to unlocked using the format option in the chart area prior to locking. When I run the code though, it stops on the line indicated with the error "Application-defined or object-defined error". I've double checked and Chart 7 is the correct chart, and it is unlocked according to its format properties.
VB:
'get date of survey and equipment number for retrieving the data from the archive
dateSurvey = Worksheets("Calculation Page").Range("B2").Value
equipNum = Worksheets("Calculation Page").Range("F2").Value
'stop screen updating
Application.ScreenUpdating = False
[Code]....
EDIT: Oops, I've just noticed that even if I unprotect the sheet, I get an error on the .select within the seriescollection stating "Method 'Select' of Object 'Series' Failed", and the code worked perfectly before. I'm completely lost now...
View 9 Replies
ADVERTISEMENT
Aug 1, 2014
For some reason I'm consistently getting an error in the following line:
Code:
Public wkbk1 As Workbook
Public shtInput As Worksheet
Public i As Integer, iPass as Integer
[Code]....
View 6 Replies
View Related
Jun 27, 2007
I have this password protected Excel template (v.2002), it includes one particular drop-down box, which is not a data validation choice selection, but a 'object' drop-down box which offers choices linked to a hidden value, via the INDEX function. The issue arises when I password protect the template and attempt to select from the available choices, I get a dialog box telling me the "the cell or chart...is password protected and...read-only"..."To modify...remove protection". I imagined checking the "Edit Objects" selection, upon protecting the worksheet would have avoided any problems, but that doesn't do the job.
View 9 Replies
View Related
Jul 19, 2012
My question is regarding changing properties in a chart without activating it. My current example is with adding data labels, but there are many other instances I could use this information in. Here is my current code:
VB: ActiveChart.SeriesCollection(2).ApplyDataLabels
However, I was hoping to replace it with something like this:
VB: Sheets("Dashboard").ChartObjects("Chart 1").SeriesCollection(2).ApplyDataLabels
I get the "Object doesn't support this property/method" error. Is there a way to do this? It just seems inefficient to have to activate the chart in order to make changes.
View 2 Replies
View Related
Mar 21, 2007
1) i have office 2003 on a laptop. within powerpoint, i can create a 'microsoft excel chart 11' object. to create a link to the excel data source, do i have to go through the odbc sql setup? it works, but i don't want my powerpoint to be dependent on some excel file somewhere. what are the other options to insert/make a functional pivot chart in powerpoint with the data also within powerpoint? the data as sheet option does not result in the chart being a pivot, it's just a plain chart. it has to be a proper object, not an image paste or a chart that updates links with the excel file open.
2) i have office 2007 on my other laptop. i can not find any suitable object to choose from to make a pivot chart in powerpoint. what's the best way to go about in 2007 version?
3) am i going about this the wrong way with the objects? should i be after vba code?
View 4 Replies
View Related
Apr 29, 2013
I care about is the line starting wks4.Cells(Di, 2) = I am trying to sum data from a variable length column in worksheet 3 and place the result in column 4 However, when I hit enter after entering the formula into =SUM() I get
Compile Error:
Expected: list separator or )
[code]
Sub Macro1()
Dim wks3 As Worksheet Dim wks4 As Worksheet
Set wks3 = Worksheets("Sheet3")
[Code].....
View 4 Replies
View Related
Mar 23, 2007
All code is called from another workbook
This fails on the second line with a type 9 error, ie worksheet not found
Workbooks("RENT_EXPLANATION.xls").Activate
Worksheets("Rent change details").Activate
This works:
Workbooks("RENT_EXPLANATION.xls").Activate
Workbooks("RENT_EXPLANATION.xls").Worksheets("Rent change details").Activate
Surely both should work since the default qualifier for the worksheets object is the activeworkbook? This only fails in Excel 2003, in the same app. in Excel 2000 it works.
View 4 Replies
View Related
Feb 23, 2008
I have a macro that copies selected data from various cells in WS1 to WS2's next open row, using offset to step to each new open cell in that row.
View 14 Replies
View Related
Jan 22, 2008
I'm trying to add a message box that will appear when you activate a worksheet in a workbook. This is what I have, but it's not working.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh. Name = "P2 Forecast" Then
MsgBox "Ensure you have locked your forecast on the Sales Forecast Tab prior to working your P2s"
Else
End If
End Sub
View 9 Replies
View Related
Aug 31, 2006
I'm looking for the excel model object chart and class diagram. I find the model object's description in the microsoft page, however i'm liked to have the object model and the class diagram in chart or picture.
View 5 Replies
View Related
Sep 26, 2006
What command should I use if I want to activate sheet1 by clicking a coomandbutton1 on sheet2?
View 5 Replies
View Related
Sep 19, 2013
I have been using this code and just noticed that it resets all of my options buttons to false when I exit and then re-enter (activate) the sheet with the option buttons.
I see where this is going on, but don't know how to correct it. I only want the option buttons changed to false if
The Sol named range is something other than "Primary Vendor". It seems to call the macro ClearOB whenener the sheet is activated.
Private Sub Worksheet_Activate()
If Range("Sol").Value = "Primary Vendor" Then
For Each OB In ActiveSheet.OptionButtons
OB.Enabled = True
Next OB
ClearOB
ActiveSheet.ScrollArea = "A1:K58"
[Code] .......
View 1 Replies
View Related
Aug 23, 2006
One of my work colleagues need to add a worksheet to an existing Excel Spreadsheet which has VBA behind it, but the worksheet is password protected. The developer who wrote the application has now left, so we have no idea what the password is. Is there anyway of getting round it, like cracking into the spreadsheet to find out the password, or another way?
View 2 Replies
View Related
Oct 4, 2013
I'm using Excel 2010 and I've got a chart on a worksheet and the worksheet needs to be protected. I'm able to manipulate the chart in any fashion EXCEPT the position of the Data Labels. Is this a bug in Excel 2010?
View 3 Replies
View Related
Sep 20, 2012
I want to set the color of the line.
VB:
With Sheets("Graph").ChartObjects("Chart 3")
.Activate
.Chart.SeriesCollection(1).XValues = Sheets("Data").Range("D2:D" & Sheets("Data").Cells(Rows.Count, "D").End(xlUp).Row)
.Chart.SeriesCollection(1).Values = Sheets("Data").Range("E2:E" & Sheets("Data").Cells(Rows.Count, "E").End(xlUp).Row)
.Chart.SeriesCollection(1).(What Do I put here To Set the color of the line)
End With
View 1 Replies
View Related
Aug 8, 2006
I have a MS Office Chart Component (11) on a userform. I am trying to programatically change the item in the filter (page) area (only one field) using VBA. The source is an OLAP cube ( SQL AS 05) but don't think that's particularly relavent because I can't do it even if the source is a range.
The object comes as a ChartSpace on the userform. I have found a reference (using the watch window) to the current filter selection in ChartSpacex.InternatPivotTable.ActiveView.Fieldsets(0).Fields(0)....
View 2 Replies
View Related
Nov 11, 2008
I wrote a macro that selects 3 charts existing in a sheet and sets the axes to auto scale option. The charts are labeled Chart 2, Chart 6 and Chart 7 by default, the macro selects each of then and then sets the auto scale option.
Is it possible to use 'If then' statement to check if the chart object exists ? In case they do exist then macro works on them but if not then it goes to the next statement.
Or is there any other way to check if objects exists or not, because sometimes the macro is used for old files (template) and the chart objects there have different numbers and not 2, 6 and 7. So to use macro for both templates( new and old) its better to check first. This way the macro becomes more flexible.
View 2 Replies
View Related
Nov 10, 2008
Is there a way to find the embedded chart object name?
View 9 Replies
View Related
Dec 24, 2011
I want to use VBA to insert an Organisation Chart in Excel 2007 (ie if I did this manually it would be Insert, SmartArt, Hierarchy), but I cannot find anything on line that shows how to do this in Excel 2007. I know the code for Excel 2003, but that does not work in 2007.
View 4 Replies
View Related
Dec 12, 2011
I'm trying to remove lines in my line charts. I searched the internet and find the following code:
Code:
Sub RemoveLines()
Dim ser As Series
For Each ser In ActiveChart.SeriesCollection
ser.Format.Line.Visible = False
Next ser
End Sub
However, when I run the code, I got "Object doesn't support this property or method". I did select the chart. I have excel 2003 with vba 6.5.
View 1 Replies
View Related
Nov 15, 2012
I have a text box within a chart tab which is populated with text values from a worksheet within the workbook. That part works fine however i want to be able to achieve the following example:
Current Text: Component Name - Notes
if there are notes against the component name i want the name to remain in black and the notes to change to blue
Aim: Component Name - Notes
If there arn't any notes then for the component name and the "-" to change to a light shade of grey
Aim: Component Name -
There are 26 components, each on their own lines in the textbox so im thinking either a loop where the cell reference is variable eg. ("CY" & i) or using the .find with a variable.
My code so far is:
Code:
Sub Chart_Notes_NTCA()
Dim i As Long, j As Long, Counted As Long, Total As Long
Dim Ans As String, Notes As String
Dim Cht As Chart
[Code].....
View 9 Replies
View Related
Oct 11, 2006
I have been trying to create a macro in excel to chart a selection of data and to output the chart on the active sheet where the data was taken (as opposed to a named sheet). So basically, I have about 300 worksheets with data, and I would like to have a button on each page that automatically charts that data when clicked, and outputs the chart to the page where the macro was clicked. However, I have not been able to figure out a relative reference that will allow me to make the LocationasObject reference simply the ActiveSheet as opposed to a specifically named sheet. See my code below, which references an output to a worksheet called "Charts". Right now, all of my charts are outputting to the sheet called "Charts", as opposed to the active sheet.
Sub ConsDiscChart()
ActiveCell.Offset(29, 11).Range("A1").Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveCell.Offset(0, -1).Range("A1:C24").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
View 5 Replies
View Related
Jan 5, 2013
I have this workbook to keep track of current and new work for the team - each individual inputs information on their own tab.
In turn, the current information is displayed on a summary page so we can all see who's doing what.
I want to protect that summary page and its formulas from accidental amendment.
However, while the summary page (when unprotected) updates as soon as someone enters new information on their own tab, the summary page won't update when I have it protected.
Is there any way of doing this - preferably without VBA as it's a work situation and the employer doesn't like VBA code running?
View 5 Replies
View Related
Mar 25, 2014
I want to run a macro in a worksheet which is proteced.
It's a simple macro which erases the content in (some) cells, nothing more. Even those celles are formatted as unlocked the macro fails.
View 4 Replies
View Related
May 20, 2012
I have the following code which works fine when Sheet1 is unprotected (The code is placed in Sheet3)
however if I protect sheet1 then the code does not work
I have tried it with
Code:
ActiveSheet.Unprotect
Code:
ActiveSheet.Protect
it still will not work on Sheet1
here is the code
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo Handler
With Sheet1.Range("B6:B10045")
[Code] ....
View 2 Replies
View Related
Dec 12, 2007
I have a protected worksheet where I allow all users of the worksheet to filter yet when I filter, Excel gives a run time error 1004 - you cannot use this command in a protected worksheet. Could someone let me know what am I doing wrong?
View 9 Replies
View Related
Nov 16, 2006
I've built a workbook using Excel 2000 that uses several combo boxes. When I try to protect the workbook the combo boxes become locked, even when I have done FORMAT CONTROL / PROTECTION and unticked the LOCKED box. Is this normal?. I also have data validation cells and they work fine if I unlock them and Protect the workbook. As a result, I am thinking of converting the combo boxes to data validation cells, but should I even need to do this
View 3 Replies
View Related
Aug 16, 2007
I have the following macro and when it "reprotects" my worksheet I need it to also turn on these Protect Sheet properties:
Format cells
Format columns
Format rows
Insert hyperlinks
and I need it to leave on the defaults of Select locked cells and select unlocked cells
Sub Spell_Check()
ActiveSheet.Unprotect Password:="pmo"
Cells.CheckSpelling "SRdictionary.dic", SpellLang:=1033
ActiveSheet.Protect Password:="pmo", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End Sub
View 4 Replies
View Related
Dec 15, 2008
I have a data list which needs to be updated by others on a shared drive. I want to protect the worksheet as there is other info on it (advancefilter from the main list). The problem is that the >>Data>>Form tool will open, but all the boxes necessary to update the list are greyed out (New, Delete etc.)
My other option is to create a macro to advance filter out the other data to another worksheet.
View 3 Replies
View Related
Sep 13, 2013
What if you forgot the password in a protected sheet? is there a way to unlock it?
View 1 Replies
View Related
