vba代碼加密單元格

① 給Excel2007 VBA代碼加密的方法

方法/步驟
1、打開Excel2007啟用宏的Excel文件
2、同時按下ALT+F11鍵，打開VBA編輯器窗口。
3、查看對應的代碼窗口，左側VBA工程
PROJECT屬性框中對應相應的SHEET表或者模塊。
4、點擊對應的SHEET表或者模塊名稱，滑鼠右鍵放在其上，選擇VBAPROJECT屬性。
5、在彈出的VBAPROJECT工程屬性窗口中-保護選項卡-選中查看時鎖定工程，“查看工程屬性的密碼”內輸入自己要設定的密碼。
6、點擊確認，然後點擊文件工具欄內的保存按鈕。
7、下次打開Excel文件時再同時按下ALT+F11進入VBA代碼編輯器，滑鼠左鍵雙擊左側VBA工程中的VBAPROJECT文件名稱，彈出VBAPROJECT密碼輸入窗口，輸入密碼才可進入，否則無法查看工程密碼，呵呵。

② excel單元格值由vba代碼得出的結果，如何密碼保護

可以再打開工作簿的事件裡面設置可編輯區域，讓紅色了一塊設置為不可編輯。

PrivateSubWorkbook_Open()
Worksheets(1).ScrollArea="a4:f10"'設置滾動區域的大小，效果就是只有在滾動區域的單元格才可以被編輯，
'比如這個例子就是只有第一張工作表的a4：f10可以編輯。
EndSub

③ excel中用vba實現按條件鎖定單元格

也許是因為這里有個錯誤（倒數第二句鎖定表的代碼DrawingObjects:=ture,
），代碼根本就沒運行。
要不要來個簡單的，從另外的思路來滿足你的需求：當達到條件時，你選取不了要鎖定的單元格，變相鎖定了這個單元格，不改變對整個表的其他操作，方便多了。只有一句代碼。試試吧！
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
If
Target.Column
=
3
And
Target(1).Offset(0,
-1)
=
"按合同總額付款"
Then
Target.Offset(0,
1).Select
End
Sub

④ excel2010vba加密的方法

在 Excel 中除了可以利用設置外還可以利用VBA編程進行加密，利用VBA編程可以令加密更加嚴謹，下面是由我分享的excel2010 vba加密的 方法 ，希望對你有用。

利用VBA加密步驟1：對想發布自己的Excel VBA的開發者來說，Excel VBA本身不提供VBA代碼的加密，封裝。目前比較最可靠的Excel VBA代碼加密的方法，就是把VBA代碼編譯成DLL(動態鏈接庫文件)，在VBA中調用，從而實現VBA代碼的加密，封裝，方便和Excel文件整合發布出去。DLL文件基本沒法被破解，除此之外其他的VBA加密方法，都可以被輕易破解。用戶只需要你的Excel文件，和這個dll文件就夠了，不必安裝其他任何程序。

利用VBA加密步驟2：編譯成DLL文件其實很簡單。機子上安裝Visual Basic 6.0就可以編譯成dll文件了，Visual Basic .Net反倒有點麻煩。Visual Basic通過OLE(對象鏈接引擎)技術調用Excel以及其中的對象。

利用VBA加密步驟3：總的來說，VBA代碼只要做一些簡單修改就可以了。主要是對Excel對象的引用，不然VB不能識別vba代碼中的對象。比如如下的VBA代碼

windows(workbook1).activate

range("L50")=1

直接放進VB中編譯成Dll就會有問題，因為VB不能直接識別range對象。

需要添加幾行簡單的代碼來告訴vb怎麼引用excel中的這些對象：

dim xlapp as excel.applicatiion

dim xlbook as excel.workbook

dim xlsheet as excel.worksheet

set xlapp=getobject(,"excel.application)

set xlbook=getobject(xxx)

set xlsheet=xlbook.worksheets(1)

利用VBA加密步驟4：然後就照搬你原有的vba代碼,但是前面加上對象引用：

xlsheet.range("L50")=1

利用VBA加密步驟5：對VBA代碼做這樣修改，在VB中調試通過，就可以成功的把多個sub子程序全部編譯封裝在一個單獨的DLL文件了。以後直接在VBA中引用這個DLL文件中的各個sub子程序。原來大段的VBA代碼全部被封裝在DLL文件中，對用戶不可見。

利用VBA加密步驟6：開發者還可以在程序運行前顯示軟體的版權信息，設置密碼。因為這些也封裝在DLL文件中，所以用戶沒法破解。

1、用數據有效性定義數據長度。

用滑鼠選定你要輸入的數據范圍，點"數據"->"有效性"->"設置"，"有效性條件"設成"允許""文本長度""等於""5"(具體條件可根據你的需要改變)。

還可以定義一些提示信息、出錯警告信息和是否打開中文輸入法等，定義好後點"確定"。

2、用條件格式避免重復。

選定A列，點"格式"->"條件格式"，將條件設成“公式=COUNTIF($A:$A,$A1)>1”，點"格式"->"字體"->"顏色"，選定紅色後點兩次"確定"。

這樣設定好後你輸入數據如果長度不對會有提示，如果數據重復字體將會變成紅色。

⑤ 如何在excel工作表中的單元格隱藏編輯公式並加密

Excel在工作表中隱藏公式和VBA代碼保護
Excel在工作表中隱藏公式
在Excel中辛辛苦苦編制的計算公式，通常不希望使用者查看和修改。怎麼辦呢？利用Excel鎖定、隱藏和保護工作表的功能，把公式隱藏和鎖定起來。
1、選中整個工作表數據區域，執行「格式→單元格」命令，打開「單元格格式」對話框。
2、切換到「保護」標簽，清除「鎖定」選項前面復選框中的「∨」 號，確定返回。
3、執行「編輯定位」命令，打開「定位」對話框，單擊其中的「定位條件」按鈕，打開「定位條件」對話框。
4、選中其中的「公式」選項，確定返回，一次性選定工作表中所有包含公式的單元格。……選中你要隱藏公式的單元格(如果不在連續范圍內,可以按Ctrl鍵選中它們)。
5、再次打開「單元格格式」對話框，切換到「保護」標簽下，在「鎖定」和「隱藏」選項前面復選框中加上「∨」 號，確定返回。
6、執行「工具→保護→保護工作表」命令，打開「保護工作表」對話框，輸入密碼，確定，再確認輸入一次密碼，確定返回即可。
注意：如果自己需要查看或修改公式，請先執行「工具→保護→撤銷工作表保護」命令，解除對工作表的保護。
選中整張表-設置單元格格式-保護-去掉隱藏（鎖定）的勾-確定-編輯-定位-定位條件-選公式-確定-右鍵一格式單元格-設置單元格格式-勾選隱藏（鎖定）-確定-工具-保護-工作表-確定即可。

Excel VBA代碼加密保護：工具-VBAProject屬性-保護：勾選查看時鎖定工程，密碼，確定；保存

⑥ EXCE如何用VBA代碼加入啟動時對所有工作表加密,並設指定密碼

通過代碼對excel代碼進行加密即可：

1、打開您需要破解保護密碼的Excel文件；

2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；

3、停止錄制(這樣得到一個空宏)；

4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；

5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

Sub添加密碼()
DimxAsInteger
Forx=1ToSheets.Count
Sheets(x).Protect"123"
Nextx
hisWorkbook.Protect"123"

⑦ 怎麼用VBA寫一段寫文件在某到某一列完成自動加密代碼如需要更改需要解密，或怎麼用vba代碼在沒有鎖

你看這樣行不行（保護工作表狀態下解鎖B列輸入數據）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pass
If Target.Columns.Count > 2 Then '判斷選取的是否為B列，如果不是則維持原來的選取動作，即ActiveCell.Select
ActiveCell.Select
Else
If Target.Column = 2 And Columns("B:B").Locked = True Then '判斷如果是B列並且單元格已鎖定，執行下面的語句。這里判斷Columns("B:B").Locked = True的目的是防止選取B列單元格時不停的彈出輸入密碼提示框
pass = InputBox("歡迎訪問，請輸入第B列保護密碼", "錄入提示") '把InputBox對話框中輸入的密碼賦予變數pass
If pass = 123 Then '如果輸入的解除保護密碼正確，則運行解除工作表保護(ActiveSheet.Unprotect Password:=123456)和取消B列鎖定（Columns("B:B").Locked = False）的語句，最後再保護工作表（Sheets("第1節").Protect Password:=123456
ActiveSheet.Unprotect Password:=123456
Columns("B:B").Locked = False
Sheet8.Protect Password:=123456
MsgBox "密碼正確，請輸入數據"
Else
MsgBox "密碼錯誤！"
End If
End If
End If
End Sub

⑧ 在excel里利用vba怎麼對指定單元格，或區域單元格保護

在excel的工具功能中進入vba編輯器執行宏保護公式的功能，即可對指定單元格，或區域單元格進行保護。

具體操作步驟如下：

1、打開EXCEL2003，輸入並編輯好相關的數據。

注意事項：

為了避免別人進入VBA編輯模式查看解鎖密碼或者亂修改代碼，最後一定要記得將宏設置密碼。

⑨ 如何加密VBA

在VBE界面中
工具—VBAproject屬性—保護

然後設好密碼即可。

⑩ vba保護單元格

方法如下：
1、在打開工作簿事件中編寫代碼達到如下功能：取消工作表保護、使A10:K10的鎖定功能為假、保護該工作表。（這部分代碼可省略，在窗口中操作一次即可）
2、在代碼中要對保護的單元格輸入數據時，先取消工作表保護，輸入數據後再進行保護（Protect
方法），至於不允許插入刪除行列，是Protect 方法的參數設定問題（取默認值 即可，也就是省略參數）。
有問題可追問