① 用宏代碼加密的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程序
可以設置查看密碼的，不過是弱加密，很容易被破解的。最好是封裝，要考慮版本的。