excel表自殺用VBA如何編寫?

時間 2025-02-22 09:20:27

1樓:匿名使用者

如何自殺還真是沒有想過,不過可以禁止複製,樓主可以試試!**)sub cc()

遮蔽常用工具欄剪下、複製、貼上。

commandbars(3).controls("剪下(&t)")enabled = false

commandbars(3).controls("複製(&c)")enabled = false

commandbars(3).controls("貼上(&p)")enabled = false

遮蔽單元格右鍵選單中的剪下、複製、貼上命令。

commandbars("cell").controls("剪下(&t)")enabled = false

commandbars("cell").controls("複製(&c)")enabled = false

commandbars("cell").controls("貼上(&p)")enabled = false

遮蔽選單中的剪下、複製、貼上命令。

剪下(&t)")enabled = false

複製(&c)")enabled = false

貼上(&p)")enabled = false

遮蔽鍵盤剪下、複製、貼上鍵。

onkey "^x",onkey "^c",onkey "^v",end with

end sub

2樓:網友

可以考慮sky的建議,但意義不大,別人一定要開啟你的檔案,將將巨集安全性設定為高,這樣檔案也不會自殺的。

3樓:匿名使用者

用**生成,並在裡面寫入刪除**,最後把bat自刪。

4樓:網友

可以將硬碟序列號存在某個單元,每次開啟都讀取序號對比一下,不同就自動刪除本檔案。

5樓:網友

這個比較難,禁用巨集的話,vba就沒作用了,可以考慮加密,效果也不是很好。

excel如何根據時間自殺如何編寫vba**

6樓:網友

這是為什麼呢?當外界的環境溫度變化的時啟襲候,為什麼人衡旁喚們對溫度的感咐凱知度或適應度是不一樣的?人們自身又是怎樣來調節體溫的呢?

vba檔案自殺問題

7樓:陽光上的橋

你的**沒有問題,在我的電腦上能成功自殺,建議你取消過程裡面的第一行:

on error resume next

看看執行過程中是否報錯,報錯的時候拷屏記錄錯誤原因,然後選擇「除錯」按鈕,看看停留在哪一行,結合錯誤說明和程式**思考,如果有困難請貼上兩者。

在excel中,需要乙個在某乙個日期就自殺的工作溥vba**

8樓:一千零八十度

你還真是個高陪數手!這樣自動消失、自動刪除的功能也能想得出來?這是巧沒不可能的。

不過讓其到時或一旦密碼輸錯就無法使用的功孝亂納能倒是可以的,我經常這麼做!哈哈!版權保護嘛!

怎麼讓excel的**開啟多少次時他就會自動自殺!

9樓:網友

設定開啟次數的方法如下:

1.限制excel檔案使用的次數,實現方法,如下圖:

2.上圖中,假設sheet1、sheet2、sheet3三個工作表為包含重要資料的工作表;這個時候,我們再多新建一工作表,假設取名為count,之後,在count工作表的a1單元格中輸入1;記住,count中的a1單元格,就是使用來儲存每次開啟excel檔案的次數的;在count工作表視窗中,執行如下圖的操作,將工作表隱藏起來。

3.按住鍵盤的組合鍵「alt f11」,這個時候,會開啟vba程式設計視窗,如下圖。

4.開啟的vba程式設計視窗,在左邊,能看到類似上圖的介面,擇「thisworkbook」並點選右鍵,同時執行「檢視**」,彈出如下圖的**編寫小視窗。

5.上圖中,務必選擇事件為open,就可以在視窗中輸入**了,**如下圖。

6.、輸入好**之後,在vba視窗中,執行「檔案」→「儲存(這裡顯示工作薄名稱)」,關閉vba視窗,返回excel視窗;就這樣,整個過程完成了。每次開啟這個excel檔案時,會在count工作表的a1單元格中自動將原值加1,如果超過使用的次數,那麼,會看到如下圖的提示。

7.點選確定按鈕,會自動退出excel視窗,以此,來達到限制使用次數的目的。

10樓:一支穿雲箭

用excel自殺**,限定條件為次數,就好了。

怎樣用vba語句編寫乙個按鈕單擊鏈結到excel工作表的**?

11樓:匿名使用者

sheet1為當前工作表,sheet2是目的工作表在sheet1中選單欄 「檢視」-「工具欄」-選擇「窗體」選擇 按鈕控制項,指定巨集介面-選擇「新建」 輸入sub 按鈕1_單擊()sheets("sheet2").select

end sub

修改的時候可以 右鍵-指定巨集-。

12樓:匿名使用者

在sheet1插入乙個activex按鈕控制項雙擊按鈕輸入以下**private sub commandbutton1_click()

sheets("sheet2").select

end sub

用vba怎麼實現記錄下修改excel工作表的內容

13樓:太極健

用單元格事件來處理即可,可以記錄原資料,修改後的資料,哪個單元格進行了修改。

excel vba 我寫了一段過程是死程式,我怎麼樣強制停止呢

14樓:仙禕

同時按ctrl+alt+pausebreak,然後在彈出的對話方塊中選「結束」就可以了。

excel表裡有幾十個**,怎麼按名稱找到想要的sheet工作表?用vba怎麼寫**?

15樓:香格里拉稻草人

sub 工作表名稱()

dim sh as worksheet

for each sh in worksheetswtname =

if wtname = "sheet3" thensheets(wtname).selectmsgbox wtname

end if

nextend sub

假設查詢的工作表名稱是 "sheet3"

16樓:源牧歌

用超連結就可以了,何必非要用vba。

17樓:月下小子

excel裡的裡有乙個尋找命令,你試試吧。

Excel如何用VBA實現表資料格式轉換

這個實現起來不難,主要是程式的控制,試試下面的 sub zz dim ar,a b n t a array 3,7,11 b array 6,10,15 ar sheets 1 a1 currentregion.value redim c 1 to ubound ar 1 ubound b 2 1 ...

excel 用vba如何刪除一列中的重複資料

1 開啟要進行資料處理的 2 按alt f11,進入vbe程式操作頁面,3 將滑鼠下移,右鍵彈出如圖,4 選擇插入 模組,5 滑鼠向右移動,將如下 寫入 sub test dim d as object dim r i dim arr set d createobject scripting.dic...

EXCEL用VBA提取字串

築夢 可以使用函式提取一個字串中的一段字元。mid 用來返回文字字串中從指定位置開始的特定數目的字元,該數目由使用者指定,函式 mid 始終將每個字元。應該用到三個字串函式 left right midleft函式用法 left 要提取字元所在單元格,從左側開始提取的個數 right函式用法 rig...