網路上有許多線上PDF轉WORD的網站,但要能編輯PDF而且又要能轉成WORD,除了adobe自家的軟體之外,其實免費軟體並不多,而其他商業軟體,大多是要License而且需付費。
2013年,adobe曾䆁出一個免費的正式版,安裝adobe8.0後,發現程式雖舊,但仍合用,若有需要的人不妨找找。
Adobe CS2 free download (建議勿做為商業使用)
(Acrobat 3D 1.0 for Windows, Acrobat Standard 7.0, Acrobat Pro 8.0, Audition 3.0, GoLive CS2, Illustrator CS2, InCopy CS2, InDesign CS2, Photoshop CS2, Photoshop Elements 4.0/5.0 與 Adobe Premiere Pro 2.0)
2015年6月4日 星期四
[EXCEL] Excel 利用巨集取消保護工作表
適用Excel 2003、Excel2007檔案
新增一個巨集程式
貼上以下程式碼
Sub Remove_Sheet_Protect()
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
再執行巨集就可以了。
參考來源:https://uknowit.uwgb.edu/page.php?id=28850
新增一個巨集程式
貼上以下程式碼
Sub Remove_Sheet_Protect()
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
再執行巨集就可以了。
參考來源:https://uknowit.uwgb.edu/page.php?id=28850
訂閱:
文章 (Atom)
熱門文章
-
無法使用google 試算表裡的 googlefinance來查詢大盤指數(台灣加權指數),一般來說使用以下importxml函數就可以查詢到加權指數 = GOOGLEFINANCE ( "tpe:taiex" , "price" )...
-
Can't use the Kodular companion Solution: 1. Install the old version of chrome. https://browserhow.com/how-to-downgrade-and-install-olde...
-
切換到注音輸入法時,常會自動輸入法整合器出現,有時會造成畫面干擾,如下圖: 要如何關掉呢? 其實很簡單,在注音輸入法的[中][英]切換的地方按下滑鼠右鍵 即可輕鬆打開或關掉輸入法整合器了。但是別太高興,這只是暫時的,若要關掉的話,需要打開檔案總管 到目錄 C:\Windows\...
-
輸入格式:民國生日(可以自動判斷 6位或 7位數字) 輸出格式:西元生日、年齡、期間月數、期間日數 B2函數:=CONCATENATE(IF(LEN(A2)=6,LEFT(A2,2),LEFT(A2,3))+1911,"/",IF(LEN(A...
-
在試算表的儲存格中輸入以下公式: 道瓊指數(DJ) = GOOGLEFINANCE ( "INDEXDJX:.DJI" , "price" ) 那斯達克(NASDAQ) = GOOGLEFINANCE ( "IND...
-
有時 Windows 10所安裝中的程式,會讓 Reboot Restore RX 無法正常運作,這時會造成 Windows10無法開機的情形,最好的方法就是移除。 出現Reboot Restore RX的開機畫面後,再按 [HOME] 就可以進入選單進行移除。
-
參考了部落客大仁 淺談保險觀念 之後,觀念上受益良多,發現以前在設計 APP:ETF資產配置 時,似乎就有類似平衡資產的想法,只是以前是用股票、債券或定存來做再平衡。以下自問自答,也試著計算看看曝險比例。 Q1:何謂「曝險」? A:這裡指的是投資部位的風險,我們可以不考慮風險值,...
-
最近因為線上防疫課程的關係,需要大量使用相機,但一用才發現 Lenovo 筆電相機的問題很多。 網路上有非常多的討論串,如下: https://answers.microsoft.com/en-us/windows/forum/windows_10-hardware/lenovo...
-
匯款準備:臺灣需有同名的收款帳戶。 網頁操作位置可能有時會更改,需電詢嘉信的服務人員。 (009 1 415-667-8400) 免付費電話(00801-13-6758) 台灣時間:21:00 ~ 13:00 (星期一到星期五) 英文客服24小時,星期一到星期五。 1. 服務 ...