vba如何判斷是否加密

1. 用excel vba 怎樣實現對本文件的加密與保護

你這個變數用某個單元格的值好了，或者設定某個單元格根據這個變數更新，你寫公式的時候引用這個單元格，然後把這個單元格隱藏，保護起來，應該可以了

應該不行吧，變數只在它定義的范圍里有效

你導出沒有？導出後是.bas，.frm等，然後上硬碟上Search這些文件，要是沒有，就沒辦法了。
還有就是找盤上所有的.xls，然後看看有沒有意外收獲。

你xls時候就沒有的東西，.txt時也別指望。如果有問題的話，Excel自行都修復不了的話……

你用UltraEdit試試吧。如果不是明碼就沒辦法了，你這又不是加密，是種錯誤，應該沒有針對這樣具體錯誤設計的恢復器。

也許能，你丟的是你寫的還是載入宏？安裝只覆蓋載入宏，你寫的東西當然沒什麼可以說的。你試試吧。

2. EXCEL VBAproject 加密問題！

你沒有勾選「查看時鎖定工程」，勾選上就OK了。

3. 請問用vb怎樣判斷excel的vba是否被加密保護

看VBA的工程屬性是否設置了個密碼！

4. 怎麼給VBA加密呢

VBA是什麼？
如果是普通的文件或者文件夾，你可以試試文件夾加密超級大師。
加密方法就和加密普通文件夾一樣，先下載，然後在需要加密的文件上點擊滑鼠右鍵，輸入密碼，然後點擊確定就OK了。

5. vba 怎樣檢測文件有密碼保護 excel

Workbook.ProtectStructure 結構保護
Workbook.ProtectWindows 窗體保護
Worksheet.Protectcontents 內容保護
只想看保護狀態的話新建一個xls，新建宏
Sub Showstates()
dim strFileName as String
dim WB as Workbook
dim SHT as Worksheet
dim sheetFLG as boolean
strFileName=Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "選定文件")
Set WB = Workbooks.Open(strFileName, UpdateLinks:=0)
sheetFLG=false
for each SHT In WB.Worksheets
sheetFLG=sheetFLG or SHT.Protectcontents
next SHT
msgbox WB.ProtectStructure &「 」& WB.ProtectWindows &「 」& sheetFLG
End sub

以上未進行strFileName有效性判斷、目標文件打開許可權密碼異常處理，打開正常的xls貌似能過。「打開許可權密碼」不需vba，打開文件就看見提示了 - -#

6. excel vba 判斷給定文件夾中工作簿的宏是否被加密

很久以前寫的一個刪除自身代碼的過程，excel2003版的
Public Sub remove_mole()
On Error Resume Next
If ThisWorkbook.VBProject.Protection = 1 Then 』1表示有密碼保護
Application.VBE.CommandBars.FindControl(ID:=2578).Execute
Application.SendKeys "password" & "{Enter 2}", True
MsgBox "創建對象失敗!", , "Warning!" 『錯誤的假象，呵呵
End If
Application.DisplayAlerts = False
With ThisWorkbook.VBProject
.VBComponents.Remove .VBComponents("模塊名稱")
End With
Application.VBE.CommandBars.FindControl(ID:=3).Execute
Application.SendKeys "{Enter 2}", True
ThisWorkbook.Save
End Sub

7. 怎麼用vba給excel 加密

操作步驟：

1、打開Excel2007啟用宏的Excel文件。

注意事項：

ALT+F11鍵必須同時按下。

選擇對象必須明確是模塊設置密碼還是SHEET表文件整個設置密碼，看代碼輸入是在哪個對象內。

8. 如何加密VBA

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

然後設好密碼即可。

9. 關於EXCEL-VBA語言加密問題

你應該查一下那台電腦的Excel載入項。懷疑有代碼企圖在新打開的文檔中加入VBProject的模塊和代碼（類似宏病毒傳播機制）這樣就需要打開VBProject，從而導致輸入密碼窗口的出現

10. 怎麼用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