不同用戶依權限查看不同工作表的VBA實現

1、不同用戶依權限查看不同工作表的VBA實現（登錄窗口 1）螭? x“登錄窗口.以刖”的密碼設置人：hd諳輸入密科以獲取罵權限，或以E讀方式打開。密碼（L） ； I只讀®確定 I 取消（登錄窗口 2）A | E | C _L DE121-:顯示窗體4516了本工作簿一共有四個工作表，這個是公開工作表。8|S 1用戶名布碼權限1 o管理員adnin所有11受限用戶內123查看機密112 1受限用尸S456查看機密2%譏苗31314.專業(yè)資料.（登錄窗口 3）獷MicroioH Basic to- App iraTions &SlC.« sm -:廢墳 1 出;兩：-3忘之

2、的褐市0 機至。插MD 格式Q 詢試。運行因 工艮口中司善® 說口也辭知時:圖底 ， -工先卜mj穿于號 B行1 .史1W7ni函kl無模式打fcVsarFumJ 5ho# I “d SubZJ£-VBAPojcctX|Fl*，廿si二T 情事窗口：工52- ,h55 Ki cr os<&£t Ixcal 對果畫報業(yè)用開者事青用理She出（機蜜。置l&eM（機數O Shi.tl （機主）4chi »£ 礎 *kmm，u盲體 國 V=eipFfri-nl 馬月候決 溫檄n（模塊1代碼窗口）內IVnumsil Bj5任 fcr

3、 App icjrticrs j 亶1那UjJ%e 8仃k%冉ei上.0口k (代招Ittir-te- fib 如fg。#3mtn口 fcyrb i4liflR ViiiR* - Td?*Ui »r ? irii I SLar L iBr-f-iir rClmr-EiJ 副*何金，以朽二隹3ApTWecIX| F n一I制t立才國口 】*«Winrr m fl-aml書總 直|3： I打開右媵岳期 回二腦4叱fftSi) 硝Mn網卸=3梟妙4 1閘幫)*J，、；期所卜*00上/、和方Q TrT'wnSW T中快 S+iB K£)便B(以 IfiAQ) 麗(

4、0) XQ SHffil Taffl M.U0向 fiDQJD1 阮也h-L*Hit Sih 席口El口olH.f口上£1 口 .(£«iul b. BmJ.hk)Qt叩窗就可M3溷丁JUpLd £*上口工1511PliMtilhJ Lt - l。"Vac En eU la VughwUII a-L. J JM 心 fwRh.LKUM :hu4t Viihlt = ?5 tfFwrTjhi A'prkscmk 5由下小工 ThrTkllxiM Pitb 也 R'& Th: sVrrkbcnk T-n*B , FsEixr

5、d =32石56二 TritertsFamior'l ='nerotl20j1 QvR'v-55>1-If Uhfilj-jJ-B e i.k i aa a xplsJ kt r i. Tfuj S-ntThis workbook 代碼窗 口代碼如下：Private Sub Workbook_Open()Application.Visible = FalseUserForml.Show 1End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume NextApplication

6、.DisplayAlerts = FalseFor Each sht In WorksheetsIf sht.Name <> Worksheets(1).Name Thensht.Visible = 2End IfNextThisWorkbook.SaveAs ThisWorkbook.Path & "" & ThisWorkbook.Name, , Password:="123456”, WriteresPassword:="excel2010"Me.Saved = TrueApplication.DisplayA

7、lerts = TrueEnd Sub名 MicrMflih Visual Udrsicfor pp ieades - BlStSChIg 宜1口仙2-Lserfenfli hiei+gEjHEMi鞋上?S3M看KED格式（Q）解短3書里 IH（D小宏是白胤定口業(yè)=幽H）一 C r 1 R。二住 I TH _-£3|1勤4胤司捫窗0山湍 ;巴 卜13I；升:,：”！口£3；”工3 '他!口；二：；二：；：一叼。：二；：，7打一!；口卻：； = ；：、,：!型，W：匚：；53； 3 緋二:;:廣上二I':;:-口:8 :一療匚":.;:1:-:-?:

8、-:;-:,:.:'-（登錄窗口繪制）忙 Microicfl isusl Baiic for Applicati ；思 STfttF)編輯i£j tee(v)公周里di，門可ns -.>lsm -憔CE 福式溝試u *討然與Efe - Use "Fa rm 1運行E) IR® 訃笠程序® 臍二圓£ W(HJf號亨一©tw工程 VBAPrsjtrtX國三二品U:s;ex"F «rm L Us er Form 技學團序1持升手寫日YDAFr- ojcc L t白弟畬口- *1 Mi crcsoit Ekc

9、«I里)必eMl (打開都糧君見)現£k“t2期通UO Sheets/噌 理盛由國而考3)上Th；T urlth*小 r-r窗體用 Uaerr rnrailas棋星-Uti的）JstrF>rm1laukCtlgr AHOCiOOCCOOAFfirdaTfCnl n? wnnncioi *for 由 1t5 t 小0 fnSotlyl«NviL4Capti e登旱窗口Cycle0 -qjQlFwm，TrwBtfFfr320001EiLbledTrueFctnir本體ForeCclor ftHBOOOOOiJ*V.ai gKt192KelpCcnEextll)0

10、K，.誕 sr fill! ateVielUa4 . fftSe* alIBirsEa tkLeft0Mon古白loonCUmai)Rous*fflLi&t«r0 " fhMots tFo i nt «>«14ultFi kk&r©:班 im ip)fictHT 串Ali眄 Mlt Fi 9tun£ ii JK& 作Z -眄mtGnttr0 - £nPi c t wq- i zdCl i pri ctur-rilingfalseEi atTcL*£t?dacSGrollBaFEQ 一

11、fnScr qLLB u-NaiieSotoLIHe i gjkt0ScrollLett0£or ollT op0ScioLJIWl dt£04.UW賀匚4bJ.iH IriiieSDecid.Ilfect0 - tnSCLdffEtctFlEt!Ei-u LljjP Ll ml斯吉省中心11£Tvp-0. 7CWkhTlii ”ii 卜i：eTslssfliatillLL sHJp?als«Vi Jth筋2SZq(i«iTOO（登錄窗口屬性設置）-fl hAcmodVtMal Bwic 修 amKuAom - 99HC4Vh (VwFmmhI

12、 枇聞海巨，d工圮. d&AFrajrrt 3丹 4 j_j 稔尊 & '-i t> 行“-刊 i.X rtirlulhriwi中多.h iriH-rFftiTiJ&Hfrjfl r1:* trwr 4 Ag Taffpr- 口r如 腦 Tfitegw) Awli。七 f. ki tYk1 W*rbk等訃力市Td ir:Ft: fE 5rB iT«m-mdB- rt -fl i - r( ?,不衽平與*FE 用*M>li Ina t九國“4/11,“2 W皿ra*r<«i»«i 1廿*百口 il 日鎧Ki

13、crq鈉ft £kZ 醮I®SWh LJKftfcei物Jl,«£i圃哥L，型二仙*口市1.雁下40：4f和春：-42 TL日叱kh )口 5褊%E ih-rki-S指廣 溫也彳:白小雄也.二HD相，© 此出P s® _LTi ，史上?出配兇莘二HPriaVl,1* 虧i %,1rME_AfTt'E *口Tk±B«x . Tbs £ wH tl叫皿酰F4a口小*嗎uw：三L . ； W ； 丁則不施蟻帆竹明組h曾融H9 后戶書丁仁川表t -5八 Egr燧用二k . 彈 用聲日】Q ； * 0 Td

14、 2CflKtrfll.fCir'kbE cq L 1 M e «ri fc (.!)Hut上E調三皿Fr.m, W C!«iviwdli.LtMiL_Cl l 0 冒7憐，L£ Ct J W IuiL -注理道 JUl tuuLfiqHl 】3L "Hidi/ ?buu tip J.*#L-J IhlL iJl1 4、U3.kL.uh. &TO月出匚LMtJlMBL l-EFt =勺M-i / ViUf = TtmUjwTimtL Hidetise'f不卜：玉原：r-Tt =室限書戶丁 a4 13口用1"七=r m&#

15、39;咻。*Mr匾hth(2) Visible = IneVwr'ifrftsCS) Vi sl t.If = 2U.0j h-iM. * Eh,心：q萼承曲人，ifeippLa. ra l rai Vl a lII « Fru.»TiISmL Twt ,iw-iFwTHL Hz Ji-口HBiZF E ViliizI：E4：l Tits t =左用戶蝮 imaJ. TdX h3axl . 7Bi= t U%"."kl LlVI V - T r !MVca-l* iJib* t lC-J I Vi ll e! b w Truii urkjJiti

16、m； J f. llIIk! - 2牌0 M.下卒財”AppLltAJLLijTL VlSiILL b « I ELTq'32- j1. h.dtELgHW通前>船港TfltBlXEl -End r t可"ih T"/"1與巾vwGll囑即門巾 打制 jt%述，！ Jhfe|ir> 血人耳不國工 It Kg4e = L3 TW ”-I-，工f fwh疝煙I Tflrt " .W迪式! laiT”t 二 7曲1 福蛆(Userforml 代碼窗 口)Mkrosgft Visual Ba2ic Applications -登口鬲

17、 15rli -:懸性-Command Button 11:尊文件但褊著出視圄插入格式Q港油Q運行兇 工具9僚程序® 告工程 7B A Projectd ITBAfroject （登錄窗口. xb. 日3Mi vr”o£t Exgel對象:i朝shsti （打開都能看見） h- 8 Sheets 頷密 1） p割SlieetS（機密的fflj Sheet4 C機密3） 就 Thiilorkbook 自邙窗體圉 UserF titml閂巴模塊淼£鎮(zhèn)快1CCqmmui必utt/n強于用摩按分類序|1 名輛CorwiandEuttonlAcceLsritorAutoSi

18、支史F al肯心BadtCiolcr ftHBOOOOOOF&Bqf 3t通等1 - fmB目43七以4加可口餐CuicttlFCaption登錄系虢Coa+rfllTipT*wtD e £aul iF alseEnablLWTrueFont宋體ForaColor歸團口?？诟?£命He i. ght24MelpCflnt&xtlDDLe £t1.2SLock 虱F alse11?？诙凸爾（病口上）值 Qu5.Point ar0 EtuM'Qus aF <P 1 IIt ar D « £&uJ. tPi

19、c+ur&（Hont）Pi ctur ePciiS i tion? = £mPi c tilir&Posi i 1 orJlLFeCeriteTT alblmleiw5TaljStapTrueTafTsieFocusOnCliclTrueTop1.33/i sibleTruedth?6增。工4依安F Q行號（登錄系統按鈕屬性設置）由 Mkrosft Visual七r Applkation -.xlsm -:富也-CommdndButt口n2g政文告E狷境視圖箋播人格式調試運行®工具方幅程序®工程-膽Mt打皿 J14蚊卷秀吞X CQnnandfutt

20、vikZ Comm uvd£uttonEl YBATroject (£D.xlsa日H Mi. m5。ft Ecel 對象題Sheet 1O SlieetE 迪SheetS 圖 5Jieet4舀Thi就睢kbonk 里日蓄體'11F3 UserF orml 自口模塊溜模樹（打開道賄后看見）伽密1）（機數）（機密3）生稱）Coram andBu.tton2icceleratorAutoSi reF alsgBackColor口研SU口加期他Backstyle1 - fmE ac kS tyl eOp a queCm? elF心eCap ti g退出系統C oiitr

21、*1T iplxtDe £aultF ：alseEnable dTriieFont關體Fer«Cc-lor m0000012aHeightZ4HelpCcmt&x tIE0Le £t22BLqekedF alse曲喉虹gnOlom)ointtrPi ctur e(Kne)P i c£tlf eP o s i 1tl. o n7 - £mPL c tlor eP oei 11 onALoVeC ent erT allnlex:gT/bS七叮TrueTafTflleFt' ousOnCli d(TrueTop130¥i s

22、ibleTrue陽dth78ordkrapFalse投字母摩|攜分類序|（退出系統按鈕屬性設置）其它控件屬性設備略Userforml (登錄窗口)代碼：Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)Application.QuitThisWorkbook.Close FalseEnd Sub關閉系統Private Sub CommandButton2_Click()UserForm1.HideApplication.QuitThisWorkbook.Close FalseEnd SubPrivat

23、e Sub UserForm_Activate()TextBoxl.Text =""If ComboBoxl.ListCount > 0 Then Exit Sub '復合框中的條目數大于0時不繼續(xù)執(zhí)行。如無此句，會導致出現重復用戶名下拉列表。t = Array(" 管理員","受限用戶A","受限用戶B")Fori = 0 To 2Controls("ComboBox1").AddItem t(i)Next iEnd SubPrivate Sub CommandButton1_C

24、lick()'登錄按鈕If ComboBox1.Text ="管理員"And TextBox1.Text = "admin" ThenDim i%For Each sht In Worksheetssht.Visible = TrueNextMsgBox "管理員登錄成功"'TextBox1.Text =""Application.Visible = TrueUserForm1.HideElseIf ComboBox1.Text ="受限用戶 A" And TextBox1.Te

25、xt = "123" ThenWorksheets(2).Visible = TrueWorksheets(3).Visible = 2Worksheets(4).Visible = 2MsgBox "登錄成功"Application.Visible = True'TextBoxl.Text =""UserForml.HideElseIf ComboBoxl.Text ="受限用戶 B" And TextBoxl.Text = "456" ThenWorksheets(3).Visibl

26、e = TrueWorksheets(4).Visible = TrueWorksheets(2).Visible = 2MsgBox "登錄成功"Application.Visible = True'TextBoxl.Text =""UserForml.HideElseMsgBox "輸入錯誤！”TextBoxl =""End IfEnd SubPrivate Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As In

27、teger) '輸入完畢回車If KeyCode = 13 ThenIf ComboBox1.Text ="管理員"And TextBox1.Text = "admin" ThenDim i%For Each sht In Worksheetssht.Visible = TrueNextMsgBox "管理員登錄成功"Application.Visible = TrueUserForm1.HideElseIf ComboBox1.Text ="受限用戶 A" And TextBox1.Text = &quo

28、t;123" ThenWorksheets(2).Visible = TrueWorksheets(3).Visible = 2Worksheets(4).Visible = 2MsgBox "登錄成功"Application.Visible = TrueUserForml.HideElseIf ComboBoxl.Text ="受限用戶 B" And TextBoxl.Text = "456" ThenWorksheets(3).Visible = TrueWorksheets(4).Visible = TrueWorks

29、heets(2).Visible = 2MsgBox "登錄成功"Application.Visible = TrueUserForml.HideElseMsgBox "輸入錯誤！”TextBoxl =""End IfEnd IfEnd Sub相關參考代碼(含注釋)：Private Sub CommandButton1_Click()' 確定Dim sht As WorksheetApplication.EnableEvents = False '禁用所有事件cname = ComboBox1.Value ' 獲得用戶名cno = WorksheetFunction.Match(cname, Sheets(設置").Range("a1:a" & r), 0)If cname = Sheets(& cno).Value ThenUnload passIf cno = 2 Then '設置").Range("a" & cno).Value And Password = Sheets( 密碼對是管理員用戶所在行設置").Range("B"F