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.

Do the RIGHT click options work ?

If you upload the workbook here I'll take a look at what the file did to the environment and see about undoing it.

Quote:

---

Originally Posted by JBeaucaire

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

Do the RIGHT click options work ?

---

Thanks for answer.. Right click option is not working

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

---