久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

分享

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

 Excel和VBA 2021-04-24

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


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

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

一起學習,一起進步~~


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

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

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

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

那么今天呢

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

場景說明

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

1.禁止新增工作表

2.禁止更改當前工作表名稱

代碼區(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)了我們的效果,,其實這兩個代碼,,大家都應該猜到了,,是屬于工作表的事件功能

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

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

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

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

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

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

所以代碼要寫在對應的工作表里面,。

好了,明晚21:00,準時再見!


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

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

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多