少妇av中文字幕社_无码无码av中国精品片_婷婷五月在线精品视频在线_性色福利刺激无码专区

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

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

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

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

Excel Home

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

可以打開VBA編輯器,打開“工程資源管理器”,雙擊該工作表,現(xiàn)在出現(xiàn)的是設(shè)置該表的屬性的編輯窗口,單擊窗口左上的下拉列表框,選擇worksheet ,這時(shí)再從該窗口右上方的列表框中選擇Active(“激活”),這時(shí)自動(dòng)顯示如下的語句塊:
Private Sub Worksheet_Activate()

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

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

程序如下:

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

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

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

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

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

 

 

 
推薦圖文
推薦食品專題
點(diǎn)擊排行
 
 
Processed in 0.499 second(s), 787 queries, Memory 2.64 M