Info

/ pastespecial

'// Shortcut Keys With Application

.OnKey "~c" ' , "" .OnKey "~v" ', "" .OnKey "+{DEL}" ', .OnKey "+{INSERT}" .CellDragAndDrop = .OnDoubleClick = "" End With

'// ToolBar Change CommandBars("ToolBar List

True

End Sub

Sub DisAbleAllCLear() '// Insert EnableControl 295 EnableControl 296 EnableControl 297 '// &Delete... EnableControl 478 EnableControl 292 EnableControl 293 EnableControl 294 EnableControl 847 '// Clear EnableControl 21, EnableControl 19, EnableControl 22, EnableControl 755, '// CutCopyPaste EnableControl 3125 EnableControl 1964 EnableControl 872, EnableControl 873, EnableControl 874, '// Short cut keys With Application .OnKey "~c .OnKey "~v .OnKey "+{DEL}

False False False

False False False False False

False False False False

False False False False False

Dummy" Dummy"

Dummy"

..cells

Column

RightClick Tab cut copy paste pastespecial

Clear Contents All

Formats

Contents

Comments

.OnKey "+{INSERT>", "Dummy" .CellDragAndDrop = False .OnDoubleClick = "Dummy" End With

CommandBars("ToolBar List").Enabled = False End Sub

Sub EnableControl(iId As Integer, blnState As Boolean)

Dim ComBar As CommandBar

Dim ComBarCtrl As CommandBarControl

On Error Resume Next

For Each ComBar In Application.CommandBars

Set ComBarCtrl = ComBar.FindControl(Id:=iId, recursive:=True) If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState

Next

End Sub

MsgBox "Sorry command not Available!" End Sub

0 0

Post a comment