{¤À¨É]¸Ñ°£EXCLE«OÅ@Àx¦s®æªº¥¨¶°µ{¦¡

bowaycho

¦¹¤Dºô¸ô¤W¦³¬Ý¨ì~¦b³o»P¤j®a¤À¨ÉÂP!!

Excel 2007±K½X«OÅ@ªº¸Ñ°£¤èªk

VBA¥¨¶°µ{¦¡¯}¸Ñªk¡G

²Ä¤@¨B¡G¥´¶}¸Ó¤å¥ó¡A¤Á´«¨ì¡§À˵ø¡¨¿ï¶µ¡AÂIÀ»¡§¥¨¶°¡¨¡÷¡§¿ý»s¥¨¶°¡¨¡A¥X²{¡§¿ý»s¥¨¶°¡¨µ¡¤f¡A¦b¡§¥¨¶°¦WºÙ¡¨¥´¤W¡GPasswordBreaker¡AÂIÀ»¡§½T©w¡¨°h¥X¡F

²Ä¤G¨B¡G¦AÂIÀ»¡§¥¨¶°¡¨¡÷¡§À˵ø¥¨¶°¡¨¡A¿ï¾Ü¡§¥¨¶°¦WºÙ¡¨¤Uªº¡§PasswordBreaker¡¨¨ÃÂIÀ»¥kÃ䪺¡§½s¿è¡¨¡A·|¦Û°Ê¥´¶}¡§Microsoft Visual Basic¡¨½s¿è¾¹¡A¥Î¥H¤Uªº¤º®e§¹¥þ´À´«¥k°¼µ¡¤f¤¤ªº©Ò¦³½s½X¡G


Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub


²Ä¤T¨B¡G¦AÂIÀ»¡§¥¨¶°¡¨¡÷¡§À˵ø¥¨¶°¡¨¡A¿ï¾Ü¡§¥¨¶°¦WºÙ¡¨¤Uªº¡§PasswordBreaker¡¨¨ÃÂIÀ»¡§°õ¦æ¡¨¡A±K½X´N²{§Î¤F¡C


²Ä¥|¨B¡G¤Á´«¡§®Õ¾\¡¨¿ï¶µ¡AÂIÀ»¡§«OÅ@¤u§@ªí¡¨¡AµM«á¿é¤J±K½X§Y¥i¸Ñ°£Âê©w¡C

¥»¤èªk¾A¥Î©ó¬¡­¶Ã¯¥i¥H¶}±Ò¡A¥i¬O¤u§@ªí¬O±K½XÂê¦íªºª¬ºA¤U¡A­Y­n¯}¸Ñ¾ã­Ó¬¡­¶Ã¯¡A½Ð¨Ï¥Î¥t¤@½g Excel ±K½X¯}¸Ñ¤u¨ã ©Ò¤¶²Ðªº³nÅé¯}¸Ñ¡C

LITTLEFAT7048

³o­Ó¥i¥H¥Î­ò¡]´ú¸Õ¥Îªºª©¥»¬OEXCEL2010¡^¡AÁÂÁ±zªº¤À¨É¡I

kenlin

¬°¦ó¥u­n11½XªºA©ÎB
¦A¥[¤@½XªºÅܤƴN¥i¥H¸Ñ½X¤F
¸Ñ±Kªº­ì²z§¹¥þ¤£¯à²z¸Ñ @@"

Scott090

¦^´_ 4# OFFICE±M®a


    ´ú¸Õ 2010 x64 «OÅ@ªº¤u§@ªí¡A¦³®Äªºµ{«×­n¬Ý­ì¨Ó"¤¹³\¦¹¤u§@ªíªº¨Ï¥ÎªÌ¯à(O)" ªº¿ï¶µ¦Ó©w¡C
¾Ç²ß¤F¡C

OFFICE±M®a

¦^´_ 3# OFFICE±M®a

¤j®a¥i§_À°´ú¤@¤U ¤W­zµ{§Ç ¦bEXCEL2007»P2010 ¬O§_¥i¥Î

OFFICE±M®a

¦^´_ 2# oobird

±ø¥ó»Ý>EXCEL 2000 ª© ¤~¯à¨Ï¥Î
Sub Macro1()
ActiveSheet.Protect  AllowFiltering:=True 'EXCEL2002¥\¯à...ÀH«K¤@ºØ³£¥i¥H
ActiveSheet.Unprotect
End Sub

oobird

2007¨S¸Õ¹L
¦b2003¡A­n²¾°£«OÅ@¡A¥u­n¦A±j¨î°µ¤@¦¸¬Û¦Pªº«OÅ@¡A­ì¨Óªº¤u§@ªí«OÅ@´N¨S¤F¡C
¦]¬°³]¤F«OÅ@¤u§@ªí«á¡A¦b¤u¨ã~«OÅ@¤W¥u³Ñ¤U"¨ú®ø«OÅ@¤u§@ªí"¥i¿ï
©Ò¥HÁÙ¬O­nVBA¡C¤£À´«ç»ò¼gªºªB¤Í¥i¦b§Oªº¤u§@ªí¿ý»s¤@¹M«OÅ@¤u§@ªíªº¥N½X¡C
¦p¿ý¤U¨Óªº±o¨ìªº¬O¡G

1. Sub Macro1()
   
2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
3.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
   
4.         AllowInsertingHyperlinks:=True, AllowFiltering:=True
   
5. End Sub

½Æ»s¥N½X

§A¥u­n¦b©³¤U¥[¤@¦æActiveSheet.Unprotect
Åܦ¨

1. Sub Macro1()
   
2.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
3.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
   
4.         AllowInsertingHyperlinks:=True, AllowFiltering:=True
   
5. ActiveSheet.Unprotect
   
6. End Sub

½Æ»s¥N½X

¹B¦æ¤@¤U¤u§@ªí«OÅ@´N¨ú®ø¤F¡C