① 用宏代码加密的excel文档，而且vb工程也有加密，问有办法破解吗
应该有的，方法有两种，可以试试，但是为人要厚道，不能随便侵占别人的东东呀
② vb如何对excel文件加密码
读取文件数据流，写入一段你自己定的东西，乱七八糟的，等到要读时再去了这些东西就正常了，如果要密码就按算法加密密码保存入去，同样的道理
③ VB怎样锁住excel文件，不让用户手动打开，待程序执行完后再将锁去掉
Open
"c:\1.xls"
For
Binary
Lock
Read
Write
As
#1
就这一行代码就行了..
补充:
你动动脑筋就行了呀..
甚至可以直接先改此文件的名字为以1.sss
,
然后在程序中进行操作,
form
unload时,将文件改回为1.xls
④ 如何用VB打开设有密码的EXCEL文件
'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Set xlsApp = Excel.Application
xlsApp.Visible = True
Set xlsBook = xlsApp.Workbooks.Open(App.Path & "\sjk.xls")
xlsApp.Sheets(1).Cells(1, 2) = "=a1"
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功！"
End Sub
⑤ 请问用vb写的程序，用到了excel怎么给excel文件的内容加密，使用的时候解密。要求只有我的程
vba，宏命令，在excel中嵌入vbscript脚本代码，加密你的内容即可
⑥ 用VB代码在Excel中写代码，要求从数据库中读取出来的数据在Excel中显示出来并且加密某一列。
操作系统层面的VB？
还是Excel层面的VBA？
如果是在Excel中：
OptionExplicit
PublicoldCellAsString
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
IfTarget.Count>1OrTarget.Column<>3Then
IfoldCell<>""ThenRange(oldCell).NumberFormatLocal="""***"""
oldCell=""
Else
Target.NumberFormat=""
IfoldCell<>""ThenRange(oldCell).NumberFormatLocal="""***"""
oldCell=Target.Address
EndIf
EndSub
附件可下载参考
⑦ 如何通过vb程序对excel文件加密，解密功能
网上能找到一些专门破解Office密码的软件，一般都是使用字典和暴力两种方式，如果密码不长可以试出来，可以破解打开文件的密码和打开VBA的密码，不过一定要小心，这种软件不是正式软件，有很多都有毒或是木马，小心小心。
⑧ excel vba如何给另一工作薄的工程加密
试试这段代码吧。
'移除VBA编码保护
PrivateFunctionMoveProtect()
DimFileNameAsString
FileName=Application.GetOpenFilename("Excel文件(*.xls),*.xls,Excel文件(*.xla),*.xla",,"VBA破解")
IfFileName=FalseThen
ExitFunction
Else
VBAPasswordFileName,False
EndIf
EndFunction
'设置VBA编码保护
PrivateFunctionSetProtect()
DimFileNameAsString
FileName=Application.GetOpenFilename("Excel文件(*.xls),*.xls,Excel文件(*.xla),*.xla",,"VBA破解")
IfFileName=FalseThen
ExitFunction
Else
VBAPasswordFileName,True
EndIf
EndFunction
PrivateFunctionVBAPassword(FileNameAsString,OptionalProtectAsBoolean=False)
IfDir(FileName)=""Then
ExitFunction
Else
FileCopyFileName,FileName&".bak"
EndIf
DimGetDataAsString*5
OpenFileNameForBinaryAs#1
DimCMGsAsLong
DimDPBoAsLong
Fori=1ToLOF(1)
Get#1,i,GetData
IfGetData="CMG="""ThenCMGs=i
IfGetData="[Host"ThenDPBo=i-2:ExitFor
Next
IfCMGs=0Then
MsgBox"请先对VBA编码设置一个保护密码...",32,"提示"
GoToclo
EndIf
IfProtect=FalseThen
DimStAsString*2
Dims20AsString*1
'取得一个0D0A十六进制字串
Get#1,CMGs-2,St
'取得一个20十六制字串
Get#1,DPBo+16,s20
'替换加密部份机码
Fori=CMGsToDPBoStep2
Put#1,i,St
Next
'加入不配对符号
If(DPBo-CMGs)Mod2<>0Then
Put#1,DPBo+1,s20
EndIf
MsgBox"文件解密成功......",32,"提示"
Else
DimMMsAsString*5
MMs="DPB="""
Put#1,CMGs,MMs
MsgBox"对文件特殊加密成功......",32,"提示"
EndIf
clo:
Close
EndFunction
⑨ 如何加密excel中的vb程序
可以设置查看密码的，不过是弱加密，很容易被破解的。最好是封装，要考虑版本的。