日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

Excel VBA 5.31 禁止添加新的工作表 禁止修改工作表名稱

 Excel和VBA 2021-04-24

禁止添加新的工作表 禁止修改工作表名稱


點擊上方“Excel和VBA”,選擇“置頂公眾號”

致力于原創(chuàng)分享Excel的相關(guān)知識,源碼,源文件打包提供

一起學(xué)習(xí),一起進(jìn)步~~


關(guān)于工作簿的保護,小伙伴們?nèi)粘5男枨筮€是很大的,最近也是有一些小伙伴們提供了一些日常工作中的場景

說到底,還是針對自己的工作薄模板的保護,因為很多時候,我們都是將自己的數(shù)據(jù)寫好,套用公式,然后形成各種數(shù)據(jù)表的樣式,但是當(dāng)你將這些數(shù)據(jù)分發(fā)給其他同事,尤其是分發(fā)給其他同事填寫數(shù)據(jù)的時候,往往會出現(xiàn)很多讓你生氣的事情

比方說隨意的篡改單元格數(shù)據(jù)

隨意的新增工作表,或者更改工作表的名稱,讓你原來的公式和數(shù)據(jù)全部亂套了,欲哭無淚

那么今天呢

我們就針對這兩個問題來說下如何限制的

場景說明

這是我們今天的工作簿,現(xiàn)在工作簿中有且僅有一個工作表,并且已經(jīng)設(shè)置了工作表的名稱,我們來實現(xiàn)上面兩個效果

1.禁止新增工作表

2.禁止更改當(dāng)前工作表名稱

代碼區(qū)

Private Sub Workbook_NewSheet(ByVal Sh As Object)Application.DisplayAlerts=FalseActiveSheet.Delete Application.DisplayAlerts=trueEnd Sub

直接來看看效果

效果非常的直接,不管你嘗試努力去創(chuàng)建新工作表多少次,最終的結(jié)果都是。。。沒有任何效果。為什么呢?

ActiveSheet.Delete

你一創(chuàng)建,就被刪除了,根本沒有看見的機會

好,繼續(xù)下一個效果,禁止修改工作表的

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Me.Name <> "我就是我,不許改名字" Then    Me.Name = "我就是我,不許改名字"End IfEnd Sub

代碼分析

代碼都實現(xiàn)了我們的效果,其實這兩個代碼,大家都應(yīng)該猜到了,是屬于工作表的事件功能

所以他們的代碼應(yīng)該寫在哪里,就非常的重要了。

禁止新增工作表,應(yīng)該是工作簿的事件功能,那么自然而然應(yīng)該寫在

而第二個,明顯就是工作表的事件,這里大家可能并不好理解,為什么是選擇出現(xiàn)了變化呢?

因為excel的工作表事件中,并沒有修改名稱的 ,所以這里我們要取一個巧

當(dāng)工作表的選擇發(fā)生變化的時候,我們?nèi)ヅ袛?,這個工作表的名稱是否是我們預(yù)設(shè)的,如果不是,則直接強制改回來

因為你更改了工作表名稱之后,你肯定要操作的,所以就是這樣一個逆向的思維

所以代碼要寫在對應(yīng)的工作表里面。

好了,明晚21:00,準(zhǔn)時再見!


因為公眾號沒有留言功能(開的比較晚),所以建立一個線下微信群,主要為大家提供一個交流的平臺,同時大家也可以提一些對公眾號的意見和看法,大家一起學(xué)習(xí),一起進(jìn)步。

    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多