Ask Experts Questions for FREE Help !
Ask
    nikeshtnt's Avatar
    nikeshtnt Posts: 52, Reputation: 1
    Junior Member
     
    #1

    Aug 18, 2015, 02:53 AM
    Few shortcut key in Excel is not active
    Hi,

    I have downloaded a excel file from website which has macro.

    While opening it says that Ctr X, Ctr V, & Ctr C will be deactivated, but even after closing the file Ctr X & All insert option is deactivated.

    Now I am not able to use the cut & insert option.

    Please help

    Thanks in advance.
    Curlyben's Avatar
    Curlyben Posts: 18,514, Reputation: 1860
    BossMan
     
    #2

    Aug 18, 2015, 03:24 AM
    Do the RIGHT click options work ?
    JBeaucaire's Avatar
    JBeaucaire Posts: 5,426, Reputation: 997
    Software Expert
     
    #3

    Aug 20, 2015, 06:01 PM
    If you upload the workbook here I'll take a look at what the file did to the environment and see about undoing it.
    nikeshtnt's Avatar
    nikeshtnt Posts: 52, Reputation: 1
    Junior Member
     
    #4

    Aug 20, 2015, 10:17 PM
    Quote Originally Posted by JBeaucaire View Post
    If you upload the workbook here I'll take a look at what the file did to the environment and see about undoing it.
    Thanks for reply. PFA the downloaded file.

    Quote Originally Posted by Curlyben View Post
    Do the RIGHT click options work ?
    Thanks for answer.. Right click option is not working
    Attached Files
  1. File Type: zip ITR1_2015.zip (1.49 MB, 25 views)
  2. JBeaucaire's Avatar
    JBeaucaire Posts: 5,426, Reputation: 997
    Software Expert
     
    #5

    Aug 22, 2015, 12:21 AM
    What a horrid sheet, this utility is design to make MASSIVE changes to your environment when you open the workbook, but there is no code in that workbook to undo those changes when you close the workbook. HORRIBLE.

    I unlocked the project and extracted the "initialize" macro that is in there. Here is a macro you can run that is basically just the reverse of the commands that were in there, turning everything back on. This in no way attempts to know what you previous settings might have been, this simply applies the reverse of the changes the original macro made.

    Code:
    Sub ResetSystem()
        
        With Application
            .caption = ""
            
            'Cut
            .CommandBars("Worksheet Menu Bar").Controls("Cut").Controls("Rows").Enabled = True
            .CommandBars("Row").Controls("Cut").Enabled = True
            
            .CommandBars("Column").Controls("Cut").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Cut").Controls("Columns").Enabled = True
            
            .CommandBars("Standard").Controls.Item("Cut").Enabled = True
            .CommandBars("Edit").Controls.Item("Cut").Enabled = True
            .CommandBars("Cell").Controls.Item("Cut").Enabled = True
            'Insert
            .CommandBars("Row").Controls("Insert").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Rows").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Insert...").Controls("Rows").Enabled = True
            
            .CommandBars("Column").Controls("Insert").Enabled = False
            .CommandBars("Worksheet Menu Bar").Controls("Insert...").Controls("Columns").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Insert").Controls("Columns").Enabled = True
            .CommandBars("Cell").Controls.Item("Insert...").Enabled = True
            
            'Delete
            .CommandBars("Row").Controls("Delete").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Delete").Controls("Rows").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Delete...").Controls("Rows").Enabled = False
            .CommandBars("Column").Controls("Delete").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Delete").Controls("Columns").Enabled = True
            .CommandBars("Worksheet Menu Bar").Controls("Delete...").Controls("Columns").Enabled = True
            .CommandBars("Cell").Controls.Item("Delete...").Enabled = True
             
            'Other Properties Set
            .OnKey "^x"
            .WindowState = xlMaximized
            .DisplayFormulaBar = True
            .Calculation = xlAutomatic
            .CellDragAndDrop = False
            .EnableEvents = True
            .MaxChange = 0.001
        End With
    End Sub

Not your question? Ask your question View similar questions

 

Question Tools Search this Question
Search this Question:

Advanced Search

Add your answer here.


Check out some similar questions!

Excel 2007 shortcut key swaped & Up/Down key not working in edit mode [ 1 Answers ]

Hi, Recently I started using excel 2007. From last week I am faceing following problem Problem No. 1 Home and Ctr+Home have been swapped e.g. If I am in Cell D6 then by pressing Home I should go to A6 but now it takes me to A1 and if I press Ctr+Home then it should take me to A1 but...

Lookup key active activation context [ 4 Answers ]

Have used used disc to repair windows... now my "favourites" list will not work... comes up with" lookup key was not foundin any active activation context"

Lookup key active activation context [ 1 Answers ]

The request llokup ket was not found in activation context

Shortcut for entering data in Excel [ 2 Answers ]

I often work with data in scientific notation. Is there a shortcut for entering numbers using only the number section of the keyboard? (i.e. entering 1.7E+09 without using the ‘e’ character)


View more questions Search