2018年7月23日 星期一

excel 巨集密碼破解

excel →巨集→錄製巨集   跳出要密碼。
破解方式如下:

1、開新excel
2、alt+f11 叫出vba
3、右鍵→插入→模組
4、貼上代碼
5、執行→選擇要破解excel →跳出破解提示。完成!

----------------------------------------------------------------------------

Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Sub
End If

Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub

------------------------------------------------------------------------------

2018年7月22日 星期日

outlook 2016 imap 沒有寄件備份

outlook 2016 沒有寄件備份,信件寄出了,寄件備份匣什麼都沒有...
webmail看寄件備份...什麼也沒有!見鬼了...

 解決方法:設規則


win10筆電內建office365及再安裝office2010。優先開啓順序問題。

新購筆電win10且內建office365,因平常習慣使用office2010。

不管改什麼設定,只要IE上有excel的連結,開啟皆跑到office365開啟。Orz

以下步驟為失敗修改方式。各位別再嘗試了。最終解決方法再最下面紅字。


嘗試(失敗)方式如下:

1、於控制台→預設程式。去修改開啟預設office2010開啟。

2、改regedit
以 Office 2010 作為預設開啟程式

適用於 Windows 7 / 64bit 指令
"C:\Program Files (x86)\Microsoft Office\Office14\excel.exe" /regserver
"C:\Program Files (x86)\Microsoft Office\Office14\powerpoint.exe" /regserver
"C:\Program Files (x86)\Microsoft Office\Office14\winword.exe" /regserver

3、移除所有的office,去微軟下載 O15CTRRemove.diagcab
單安裝office2010,不管怎麼移除office365跟鬼纏身一樣,都移除不了。
(因為在控制台→解除安裝程式內找不到office365啊!!)

 Office 官方卸載工具   下載

4、不想嚐試了............

最終解決方式。

於win10點左下開始,找到excel動態磚,滑鼠右鍵,解除安裝。解決!!






win10家庭版升級專業版


新購筆電內建Win10家庭版,拿專業版啟動序號變更版本,但是在啟用頁面輸入序號時,卻無法升級,系統僅會提示序號版本與目前安裝版本不符。


Microsoft 論壇提供

請先確定系統版本為 1511 以上,前往設定>更新與安全性>啟用>變更產品金鑰,之後輸入下列特定序號:

VK7JG-NPHTM-C97JM-9MPGT-3V66T

升級....卻失敗了!瞎~


解決方式:把網路中斷連線,再key一次序號!更新成功!

重新開機後再變更專業版產品金鑰即可。