Giai ma excel

Nhấp phải vào tên sheet trong excel lựa view code

copy đoạn dưới đây dán vào

Sub Macro1()
'
' Breaks worksheet and workbook structure passwords. Jason S

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

' Jason S http://jsbi.blogspot.com

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & "Adapted from Bob McCormick base code by" & "Jason S http://jsbi.blogspot.com"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.0 8 Sep 2008"

Const REPBACK As String = DBLSPACE & "Please report failure to jasonblr@gmail.com "

Const ALLCLEAR As String = DBLSPACE & "The workbook should be cleared"

Const MSGNOPWORDS1 As String = "There were no passwords on " & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & "workbook structure or windows." & DBLSPACE


Const MSGTAKETIME As String = "After pressing OK button this " & "will take some time." & DBLSPACE & "Amount of time " & "depends on how many different passwords, the "



Const MSGPWORDFOUND1 As String = "You had a Worksheet " & "Structure or Windows Password set." & DBLSPACE & "The password found was: " & DBLSPACE & "$$" & DBLSPACE & "Note it down for potential future use in other workbooks by " & "the same person who set this password." & DBLSPACE & "Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & "password set." & DBLSPACE & "The password found was: " & DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & "future use in other workbooks by same person who " & "set this password." & DBLSPACE & "Now to check and clear " & "other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & "protected with the password that was just found." & ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

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

With ActiveWorkbook

.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 .ProtectStructure = False And .ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, "$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

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

.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 Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, "$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
'
End Sub


-------------------
lựa Run / Run sub/user form (f5) đợi 

Cách xem truyện tranh 2 trang trên kindle ,read manga two page on one on kindle

Sử dụng chương trình  TileMage để chia cắt các file
sau đó dùng mokle để tạo file thích hợp với kindle

http://www.mediafire.com/?hme8llompipvh9s

Lưu ý nếu trang đọc từ phải qua trái ta đổi tên tile2_c2_r1.* thành tile0_c1_r1.* để thành trang đầu tiền
sử dụng total commander tìm tile2_C2_r2
feed to listbox
rename  tile0_c1_r1.* phải là .* nếu không sẽ báo lỗi không cho rename

use  tileMage to split pages
and mokle to convert images

http://www.mediafire.com/?hme8llompipvh9s
if your manga read right to left , changes file name tile2_c2_r1.* to Tile0_c1_r1.* become the first page of two:
use total commander find  tile2_c2_r1.*
feed to listbox
select all
rename Tile0_c1_r1.* . must type ".*" orthewise it has an error

Sửa lỗi Windows không hiển thumbnail, Fix windows do Not show Thumbnail

nguyên nhân : do file  shimgvw.dll nằm trong windows\system32 không  được đăng ký hoặc bị xóa mất

Copy shimgvw.dll vào lại windows\system32 vào run gõ: regsvr32 shimgvw.dll

cause : shimgvw.dll not found  in windows\system32 or not be registered

copy shimgvw.dll to windows\system32
goto run  type :   regsvr32 shimgvw.dll

Sửa lỗi acrobat reader tự động ẩn menu và controlbox ,fix acrobat reader autohide menu and controlbox

Xóa registry
Hkey_CURRENT_USER\Software\Adobe\Acrobat reader

logoff và logon

delete registry key
Hkey_CURRENT_USER\Software\Adobe\Acrobat reader
logoff and logon

Múa Lân Lion Dance

Hôm qua 2012/1/6 đi coi múa Lân ở hội quán Hải Nam trường Trần hữu Trang không khí náo nhiệt , và hưng phấn.
Đến tiết mục vũ sư trên mai hoa trang , từng bước chân phối hợp đều đặn trên những cây cột . nhưng đột nhiên người ở đầu bị tuôt chân làm đầu lân chúi xuống cả 3 lần . có phải là điềm hung cho năm nay ?? hay là do mạng mình quá nặng ,sáng sớm thì bể ly chén ở nhà, trưa thì làm đổ rau , tối lại thấy lân tuột chân ? Nhưng 1 khía cạnh khác , nghề múa lân thật là nguy hiểm tại sao đã bị tuột chân mà lại tiếp tục múa ? không thể đổi người khác . ?!

split merge PDF , pdf split merge

http://www.sciweavers.org/free-online-pdf-split