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

• #18583 Mutt senior tag Attas #18582

  Új Válasz 2013-07-22 21:10:02 #18583

  Ú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

  

  Mutt

  senior tag

  válasz Attas #18582 üzenetére

  Hello,

  ...a másolás védelem csak a munkafüzet egy lapjára vonatkozzon....

  A lapnak ezt a kódot add meg:

  Private Sub Worksheet_Activate()
  With Application
  .CutCopyMode = False
  .CellDragAndDrop = False
  End With
  End Sub
  
  Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  MsgBox "Right click menu deactivated." & vbCrLf & _
  "Cannot copy or ''drag & drop''.", 16, "For this file:"
  End Sub
  
  Private Sub Worksheet_Deactivate()
  With Application
  .CellDragAndDrop = True
  .OnKey "^c"
  .CutCopyMode = False
  End With
  End Sub
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.CutCopyMode = False
  End Sub

  üdv

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