资源新版在线天堂-桌下含校园污肉高h-坠落女教师-椎名由奈在线播放-六月色婷婷-六月丁香婷婷天天在线

VIP標(biāo)識(shí) 上網(wǎng)做生意,首選VIP會(huì)員| 設(shè)為首頁(yè)| 加入桌面| | 手機(jī)版| RSS訂閱
食品伙伴網(wǎng)服務(wù)號(hào)
 
當(dāng)前位置: 首頁(yè) » 食品專題 » 辦公軟件-excel使用技巧 » 正文

第五課利用VBA設(shè)置工作表使用權(quán)限

放大字體  縮小字體 發(fā)布日期:2006-06-16

第五課 利用VBA設(shè)置工作表使用權(quán)限

Excel Home

一般保護(hù)工作表采取的方法是用EXCEL菜單中的“保護(hù)”命令,有時(shí)這尚嫌不足,比如一些機(jī)密文件根本要讓某些使用者無(wú)法看到,但又需要他來(lái)操作工作簿中的其他表,怎么辦?

可以打開(kāi)VBA編輯器,打開(kāi)“工程資源管理器”,雙擊該工作表,現(xiàn)在出現(xiàn)的是設(shè)置該表的屬性的編輯窗口,單擊窗口左上的下拉列表框,選擇worksheet ,這時(shí)再?gòu)脑摯翱谟疑戏降牧斜砜蛑羞x擇Active(“激活”),這時(shí)自動(dòng)顯示如下的語(yǔ)句塊:
Private Sub Worksheet_Activate()

End Sub
在其中加入代碼:(假設(shè)用"123"作為密碼,Sheet"機(jī)密文檔"為限制權(quán)限文
檔,sheet"普通文檔"為工作簿中你認(rèn)為任何適合的工作表)

If Application.InputBox("請(qǐng)輸入操作權(quán)限密碼:") = 123 Then
Range("A1").Select
Else
Msgbox "密碼錯(cuò)誤,即將退出!"
Sheets("普通文檔").Select
End if

程序如下:

Private Sub Worksheet_Activate()
If Application.InputBox("請(qǐng)輸入操作權(quán)限密碼:") = 123 Then
Range("A1").Select
Else
MsgBox "密碼錯(cuò)誤,即將退出!"
Sheets("普通文檔").Select
End If
End Sub

這樣做仍有一個(gè)問(wèn)題,就是越權(quán)使用者仍會(huì)看到一些文件的片段,即在提示密碼的那段時(shí)間。好,你可以這樣做,用上述方法選擇工作表的Deactivate事件,輸入以下代碼:

Sheets("機(jī)密文檔").Cells.Font.ColorIndex = 2

這段程序使得此工作表在不被激活時(shí),所有文字為白色。然后,在第一個(gè)程序中的Range("A1").Select后插入一行,寫(xiě)入以下代碼:
ActiveSheet.Cells.Font.ColorIndex = 56
這段程序,在你輸入正確密碼后,將該表所有文字轉(zhuǎn)變?yōu)樯罨疑?br />
完整的程序如下:

Private Sub Worksheet_Activate()
If Application.InputBox("請(qǐng)輸入操作權(quán)限密碼:") = 123 Then
Range("A1").Select
Sheets("機(jī)密文檔").Cells.Font.ColorIndex = 56
Else
MsgBox "密碼錯(cuò)誤,即將退出!"
Sheets("普通文檔").Select
End If

 
[ 網(wǎng)刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關(guān)閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點(diǎn)擊排行
 
 
Processed in 0.499 second(s), 787 queries, Memory 2.64 M
主站蜘蛛池模板: 特级淫片大乳女子高清视频| 黄色jjzz| 久久中文字幕亚洲精品最新| 无人区日本电影在线观看| 97人人超碰国产精品最新蜜芽| 国产麻豆AV伦| 啪啪漫画无遮挡全彩h同人 | 婷婷久久综合九色综合伊人色| 在线 | 果冻国产传媒61国产免费 在镜头里被CAO翻了H | 国产老肥熟xxxx| 男女肉大捧进出全过程免费| 伊人影院综合网| 国产中文字幕乱码一区| jk制服喷水| 末班车动漫无删减免费| 在线 亚洲 日韩 欧洲视频| 久久精品亚洲AV中文2区金莲| 无套暴躁白丝秘书| 国产国产乱老熟女视频网站97| 乳巨揉みま痴汉电车中文字幕动漫| WWW国产亚洲精品久久| 暖暖在线观看播放视频| a免费在线观看视频| 欧美亚洲国产手机在线有码| yy8090韩国理伦片在线| 三级黄在线| 好大好硬好湿再深一点网站| 一个人免费播放高清在线观看| 久久国内精品| JAVASCRIPTJAVA水多多| 午夜理论片日本中文在线| 国产做国产爱免费视频| 亚洲欧美一区二区三区九九九| 久久综合老色鬼网站| jlzzzjizzzjlzzz亚洲| 天天久久狠狠色综合| 久久99精品久久久久久园产越南| 88福利视频| 午夜理论片YY4399影院| 久章草一区二区| 91精品免费久久久久久久久|