Új hozzászólás Aktív témák

• #36900 Delila_1 veterán róland #36898

  Új Válasz 2018-01-03 17:00:59 #36900

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz róland #36898 üzenetére

  Private Sub Worksheet_Open()
Dim oCtrl As Office.CommandBarControl
'CTRL+C, CTRL+V és CTRL+X letiltása
Application.OnKey "^c", ""
Application.OnKey "^x", ""
Application.OnKey "^v", ""

'Cut menü letiltása
For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl

'Copy menü letiltása
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl

'Vonszolás letiltása
Application.CellDragAndDrop = False
End Sub

  A BeforeClose-ban vissza kell állítani!

Új hozzászólás Aktív témák