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