首先,全選單元格,取消鎖定,然后保護工作表并設置密碼,復制粘貼下面的代碼PrivateSubWorksheet_Change(ByValTargetAsRange)Constpwd="abc"'將abc改成你設定的保護密碼Me.UnprotectpwdTarget.Locked=True...
1、首先打開需要設置加密碼的表格,進入到EXCEL表格里面之后,打開VBE編輯器。2、然后在表格上面的功能區(qū)域里面點擊工具,選擇下面的VBAProject屬性。3、打開了之后點擊保護這個選項,切換到保護的設置界面。4、在保護界面里勾選...
1.右鍵點擊任何工作表,選擇VBAProject屬性;2.在新對話框總,選擇“保護”選項卡:3.勾選查看時鎖定,輸入密碼即可。
建議你使用窗體控件中的文本框TextBox。比如:你在VBA代碼運行之前設置好文本框的屬性。其中PasswordChr的值默認為空,你只要設置成"*"即可。然后在VBA代碼中通過改變文本框的Visible屬性來調(diào)用它就行了。
PrivateSubWorksheet_Activate()DimstrPasswordAsString'保存密碼DimiAsInteger'輸入密碼的次數(shù)Sheets("Sheet2").SelectDostrPassword=InputBox("請輸入密碼")'輸入密碼IfstrPassword="...
IfPassword="123456"Then'設置密碼MsgBox("歡迎")ExitForElseIfi<3ThenMsgBox"請輸入正確密碼,"&"你還有"&3-i&"次輸入機會。"Else:MsgBox("密碼錯誤,即將關閉")Application.Qu
PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column=2ThenMe.Unprotect"meimima123"Target.Locked=TrueMe.Protect"meimima123"EndIfEndSub
設置工作表密碼ActiveSheet.ProtectPassword:=1112'保護工作表并設置密碼ActiveSheet.UnprotectPassword:=1112'撤消工作表保護并取消密碼
vba與公式保存要分兩步進行:第一,保護VBA,打開VBA窗口,里面有一個“工具-VBAProject屬性”,打開它,選“保護”選項卡,勾選其中的“查看時鎖定工程”,并在下面設置密碼,確定即可。第二,保護公式,在EXCEL表格中,...
excelVBA中的打開命令中有密碼的字段,例如:workbooks.openfilename:="myworkbook.xls",password:="abcd"把密碼輸在“abcd"的位置就行了。