Deactivate Or "grey-out" Commandbutton
Sep 8, 2009I was wondering if there is any way to "grey-out" a commandbutton? I made it using the forms toolbar.
View 3 RepliesI was wondering if there is any way to "grey-out" a commandbutton? I made it using the forms toolbar.
View 3 RepliesI have a workbook with 3 sheets.
The underlying VBA is password protected and I have the password.
My problem is there is one sheet that I can see in the VBA side of things but cant see on the excel side
Format/sheet/unhide - suggest there is no sheets hidden
If I right click on the sheets (vba side) View object can be seen
except for the one sheet which remains greyed out
Any ideas why this is?
If I try and goto(F5) a range in this sheet nothing happens
If I use a dropdown validation cell, which looks at this sheet it works, except there appears to be a line missing.
I have placed the following code in my spreadsheet but it's not working!
the code after option explicit (now at the bottom) works, (thanks to Andy on here!) but all the disabling the right click and cut/copy/paste etc doesn't.
I have a workbook with the following:
Code:
Private Sub Workbook_Activate()
Application.CommandBars("Ply").Enabled = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",FALSE)"
End Sub
Code:
Private Sub Workbook_Deactivate()
Application.CommandBars("Ply").Enabled = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",TRUE)"
End Sub
All of a sudden my right-click isn't enabling when I reopen Excel. I can run the macro
Code:
Application.CommandBars("Ply").Enabled = True
once opened, but once I close it out again, the right-click is disabled.
is it possible to deactivate an activecell?
the following code works well i have a range of cells(e1:o17) i click on one of those cells to enter a score into (a2) the next cell i click enters a score into (b2) ok so far but if i need to enter the same score consecutively as needs to be done from time to time i cant do it because the cell is still active.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1") = Range("d1") + 1
If Range("D1") = 2 Then Range("a2") = ActiveCell.Value: Range("c2") = 501 - Range("a2")
If Range("D1") = 3 Then Range("a3") = ActiveCell.Value: Range("c3") = Range("c2") - Range("a3")
If Range("D1") = 4 Then Range("a4") = ActiveCell.Value: Range("c4") = Range("c3") - Range("a4")
If Range("D1") = 5 Then Range("a5") = ActiveCell.Value: Range("c5") = Range("c4") - Range("a5")
We are trying to print grey scale text. It will only print grey scale when we print in colour and not in black and white?
The images and line fills we are using are printing in grey, just not the text.
We are using excel 2003. Both word and publisher print grey scale?
I have an excel sheet with date as the first column and all other data being numeric. I put in a code to increment by 1 everytime the user clicks on a cell, the contents within it. the code is below.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:H100")) Is Nothing Then
Cancel = True
Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1
End If
End Sub
This does its job for the time being, but I want to allow changes only to the row which has the current date and deactivate all other rows for any editing. So that if I click anywhere else but the row with the current date nothing happens.
I have some code in the BeforeClose event of the workbook - it worked the first time I tried to shut down the wb, but never since. I opened a new wb and copied in the code and again, it worked first time, but not since. The code is just calling a function, nothing heavy. I've tried the Deactivate event as well. I'm more of an Access VBA kind of gal, so don't know if I'm missing something big here.
View 5 Replies View RelatedI need to find a way to do conditional formatting and disabling of a cell based on a value from another cell. For instance if A1=X,Y, or Z, then B1 will get grayed out and cell entry will be disabled. This is so that when skimming over the sheet, you can tell what cells in row B you need to put info in still, and if it's grayed you'll know you don't have to put anything there (and it won't let you).
View 14 Replies View RelatedI need to perform an action (unhide all columns) whenever I switch to a different worksheet.
Detail: I have a file with 2 tabs (worksheets). Tab 1 contains daily data, and when people are done with the current week they group and hide the columns for that week. This allows them to only view the new week and do an easy copy/paste into other applications. Tab 2 totals up the daily data from Tab 1 and shows monthly totals. The problem is that when they hide Tab 1 columns for past days, the formulas in Tab 2 don't "find" that hidden data. I would like to write a basic code that unhides all Tab 1 columns when I switch to Tab 2 so the formulas on Tab 2 reflect accurate totals. My thought is that it would be Worksheet code on Tab 1 using "Deactivate". I've tried to piece together different bits of code but can't get anything to work properly. I don't want them to have to run a macro or click a button, I'd like it to be automated when they switch tabs.
The following code does a sort on a worksheet whenever you click another sheet but it also returns you to the original sheet (where the sort takes place i.e. the sheet with Range "Sort1"). How do I get the code to do the sort but not keep returning to the sheet?
Private Sub Worksheet_Deactivate()
Application.Goto Reference:="Sort1"
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending,
End Sub
For an excel application I need the disable most of the ribbon content i.e. disable insert, formulas tab etc.
The only thing that should function is a hand build menu add-in, which is created with custum UI editor.
I searched via google, this forum and many other places, but i didnt find a clear answer yet.
I have an Offset of a range I am testing the value of with an If statement.
For some reason, even though the value fed in is 1 and it should bypass the If statement, it doesn't. However, if I assign the offset value to a variable first, the If statement works...
This does not work...
Is there a macro that will format unused rows or with no value in a given range. I have a sheet that I am using that some of the date is either added or deleted and would like to have a macro to do grey out unused rows. I am using this with a form control.
View 3 Replies View RelatedI have a spreadsheet with rows of cells which are either blank or have text in them.
Is there an easy way to write a formula which will make the cells which have text in them bold and make the cell colour grey. But if the cell is blank keep the cell white.
Essentially, I'm creating a spreadsheet which contains a list of staff in rows, and the months of the year as columns. It is to record certain company checks which must be done (e.g. driving licence check). When a check is complete, the date it was done is entered under the corresponding month. Certain checks (e.g. driving license) only need to be done every 6 months. What I'm trying to do is find a formula/vba to look at each row, determine where (which month) the date was entered in, and grey out the 5 months in front, meaning the next check is required in 6 months time.
Ideally, the frequency of this check is dynamic, and can reference a cell (e.g. might change to every 3 months etc).
VBA code to disable(grey out) condition formatting command in ribbon. Because I generated a template and do not want user to change the condition formatting.
I have tried below, but it did not work...
Application.CommandBars(1).Controls("Format").Controls("Conditional Formatting...").Enabled = False
I have a number of buttons on a daashboard that run different macros.
Is it possible to have the most of the buttons deactivated until a cell on a different sheet has a value in the there (Text or number) turning them active?
The following code for a custom menu is used in a workbook which has two sheets with
embedded charts, two chart sheets and several sheets for calculations
and information
In This Workbook
Private Sub Workbook_Activate() 'Changed Activate to Open
Run "AddMenus"
End Sub
and
Private Sub Workbook_Deactivate() 'Changed Deactivate to Close
Run "DeleteMenu"
End Sub
and
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "DeleteMenu"
End Sub
I am running into a seemingly random event upon executing a rather long program in Excel VBA: a square area turns gray in the left of the screen in Excel, making invisible everything under it, and affecting every sheet and workbook open. The only way to get rid of it, so far, has been to restart Excel. I thought it pertained to a faulty Office installation (XP/2002), but then it also happened on another machine (with Excel 2003) where I installed the application.
View 4 Replies View RelatedI have information in A1. I want A1 to look at B2:B5 and D2:D5 (Under conditional formatting) and if there is one or more "X" in those cells to color A1 Grey (Fill). I keep trying to put a formula under conditional formatting, but it is only working for the first cell (B2) and not the rest.
View 2 Replies View RelatedI'm trying to do something quite simple but I can't seem to see the forest thru the trees.
All I want to do is when I deactivate a worksheet (sheet2) I want it to sort a predfined range. I keep getting a "Select Method of Range Class Failed" error message on the line of code with ******
The code is as follows: ...
I have a survey template with several options buttons (made from Form toolbar and grouped by Group Box).I would like to have a check box that would activate these option buttons for specific question if unchecked and vice versa.
I have copy & paste below formula in VB, but is shows 'Run time error 424' & when I Debug it shows 2nd line highlighted by yellow colour.
VB:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then [code]....
I am looking for a way to highlight groups of identical number cells in alternating grey and white. My goal is to make it clear when there is a repeating set of numbers. Below is an example of what a completed state of this would look like that I created manually. The real form I will be using this code on will have long number which is why I am looking for this added clarification. I am using excel 2010.
1
1
2
3
4
[code].....
I am using Excel 2002 and have had a couple of files that seem to have become corrupted recently. When I try to open the files there is nothing there, no cells just a grey space where the cells should be. When I try to close Excel it asks me if I want to save changes when no changes have been made.
I had not made any changes to the sheets prior to this happening so am struggling to work out what is going on.
One of my commandbuttons will every now and then be covered by the FormulaBar, is it possible to assign a short key/ hot key for its function (CTRL+q)?
CommandButton's code:
Private Sub CommandButton3_Click()
Select Case ActiveCell.Interior.ColorIndex
Case xlNone: ActiveCell.Interior.ColorIndex = 3
Case 3: ActiveCell.Interior.ColorIndex = 6
Case 6: ActiveCell.Interior.ColorIndex = 10
Case 10: ActiveCell.Interior.ColorIndex = xlNone
End Select
End Sub
I have a large number of commandbuttons on a userform that I wish to apply captions to via a for loop. Each button is numbered appropriately for this purpose. e.g.
Button_1, Button_2 etc etc
I want the loop to compile a string that represents the button name e.g.
String = "Button_" & Loop_Count
and then use my defined commandbutton:
Dim My_Button as commandbutton
to name the buttons. So the loop would be something like:
for Loop_Count = 1 to 100
String = "Userform_Name.Button_" & Loop_Count
set My_Button = String
My_Button.caption = "Test_" & Loop_Count
next Loop_Count
Unfortunately trying to set 'My_Button' using a string like this doesn't work.
I have a commandbutton (CommandButton1) on a worksheet ("SCHEDULE"). I was wondering if there's a way to freeze the commandbutton on the bottom, on the right... I would like that, when you scroll down or to the right, the commandbutton doesn't move....
My code is:
Private Sub CommandButton1_Click()
Dim ScrollRw As Long 'Botón De comando parte inferior izquierda
Dim ScrollCol As Integer 'de la hoja "PROGRAMACION"
ScrollRw = ActiveWindow.ScrollRow
ScrollCol = ActiveWindow.ScrollColumn
Modulo1.BorrarTabla 'Código que borra la tabla
When I click a commandbutton to cut and paste columns I get the following error:
Select Method of Range class Failed
This is the following code I have
[Code] .....
Why this is happening?
Is it possible to have a round commandbutton in userform?
View 3 Replies View Related