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

• #46378 Delila_1 veterán Intel q8200 #46377

  Új Válasz 2021-04-05 18:12:56 #46378

  Ú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 Intel q8200 #46377 üzenetére

  Egyúttal más funkciók letiltását és engedélyezését is leírom. Mindegyiket a laphoz kell rendelni, és a lap aktiválásakor lépnek életbe.

  Private Sub Worksheet_Activate()
    Dim oCtrl As Office.CommandBarControl
    'CTRL+C letiltása
    Application.OnKey "^c", ""
    'CTRL+X letiltása
    Application.OnKey "^x", ""
    'CTRL+V letiltása
    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
Private Sub Worksheet_Deactivate()
    Dim oCtrl As Office.CommandBarControl
    'CTRL+C engedélyezése
    Application.OnKey "^c"
    
    'CTRL+X engedélyezése
    Application.OnKey "^x"
    
    'CTRL+V engedélyezése
    Application.OnKey "^v"
    
    'Cut menü engedélyezése
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
        oCtrl.Enabled = True
    Next oCtrl
        
    'Copy menü engedélyezése
    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
        oCtrl.Enabled = True
    Next oCtrl
           
    'Vonszolás engedélyezése
    Application.CellDragAndDrop = True
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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