人妻丰满熟妇无码区乱com|久久婷婷午夜精品二区|一道本国产不卡视频|国产孕妇故爱A级高清片免费看

<tbody id="geoqw"></tbody>
  • <center id="geoqw"></center>
  • <menu id="geoqw"></menu>
  • <center id="geoqw"></center>
    
    <menu id="geoqw"></menu>
  • 限制Excel使用所有的粘貼方法

    時(shí)間:2022-10-05 14:02:00 網(wǎng)絡(luò)知識(shí) 我要投稿
    • 相關(guān)推薦

    限制Excel使用所有的粘貼方法

      在Excel中限制使用粘貼功能,可以有效防止用戶將外部的數(shù)據(jù)復(fù)制粘貼到本工作薄。

      以下是實(shí)現(xiàn)在Excel中使用粘貼功能的方法。

      一、實(shí)現(xiàn)原理

      使用VBA代碼來(lái)實(shí)現(xiàn),實(shí)現(xiàn)的理論指導(dǎo)是:

      禁用編輯菜單中的粘貼功能

      禁用編輯菜單中的選擇性粘貼功能

      限制使用右鍵菜單中的粘貼功能

      限制使用鍵盤上的快捷鍵Ctrl+V鍵

      二、實(shí)現(xiàn)方法

     、俳谜迟N功能的代碼

      Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

      Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("粘貼(P)").Enabled = False

      Application.CommandBars("cell").Controls(3).Enabled = False

      Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("選擇性粘貼(S)...").Enabled = False

      Application.OnKey "^v", ""

      End Sub

      ②解除粘貼功能的限制

      Private Sub Workbook_BeforeClose(Cancel As Boolean)

      Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("粘貼(P)").Enabled = True

      Application.CommandBars("cell").Controls(3).Enabled = True

      Application.CommandBars("Worksheet Menu Bar").Controls("編輯(E)").Controls("選擇性粘貼(S)...").Enabled = True

      Application.OnKey "^v"

      End Sub

    【限制Excel使用所有的粘貼方法】相關(guān)文章:

    珍惜所擁有的11-11

    珍惜所擁有的作文12-24

    珍惜所擁有的幸福10-18

    珍惜所擁有的青春10-18

    珍惜所擁有的青春02-13

    珍惜所擁有的幸福02-18

    珍惜所擁有的母愛(ài)作文08-21

    關(guān)于珍惜所擁有的作文08-21

    珍惜你所擁有的作文12-24

    珍惜所擁有的的失敗作文10-26