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

• #46560 Delila_1 veterán Intel q8200 #46559

  Új Válasz 2021-05-01 09:06:33 #46560

  Ú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 #46559 üzenetére

  Tegyük át a két makrót az egyes lapok helyett a ThisWorkbook laphoz.
  A VB szerkesztőben bal oldalon kattints a ThisWorkbook-ra, majd jobb oldalra másold be a két makrót.
  A füzet megnyitásakor ez a makró indul:
  Private Sub Workbook_Open()
   Dim oCtrl As Office.CommandBarControl
    Application.OnKey "^c", ""
    Application.OnKey "^x", ""
    Application.OnKey "^v", ""
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
        oCtrl.Enabled = False
    Next oCtrl
    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
        oCtrl.Enabled = False
    Next oCtrl
    Application.CellDragAndDrop = False
End Sub

  Bezárás előtt automatikusan pedig ez:
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim oCtrl As Office.CommandBarControl
    Application.OnKey "^c"
    Application.OnKey "^x"
    Application.OnKey "^v"
    For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
        oCtrl.Enabled = True
    Next oCtrl
    For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
        oCtrl.Enabled = True
    Next oCtrl
    Application.CellDragAndDrop = True
End Sub

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