網路上有許多線上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)
熱門文章
-
切換到注音輸入法時,常會自動輸入法整合器出現,有時會造成畫面干擾,如下圖: 要如何關掉呢? 其實很簡單,在注音輸入法的[中][英]切換的地方按下滑鼠右鍵 即可輕鬆打開或關掉輸入法整合器了。但是別太高興,這只是暫時的,若要關掉的話,需要打開檔案總管 到目錄 C:\Windows\...
-
Can't use the Kodular companion Solution: 1. Install the old version of chrome. https://browserhow.com/how-to-downgrade-and-install-olde...
-
在試算表的儲存格中輸入以下公式: 道瓊指數(DJ) = GOOGLEFINANCE ( "INDEXDJX:.DJI" , "price" ) 那斯達克(NASDAQ) = GOOGLEFINANCE ( "IND...
-
參考了部落客大仁 淺談保險觀念 之後,觀念上受益良多,發現以前在設計 APP:ETF資產配置 時,似乎就有類似平衡資產的想法,只是以前是用股票、債券或定存來做再平衡。以下自問自答,也試著計算看看曝險比例。 Q1:何謂「曝險」? A:這裡指的是投資部位的風險,我們可以不考慮風險值,...
-
利用計時器可以做許多功能, 例如: 1. 鬧鐘功能 2. 倒數計時(計算與目標時間或日期的差距) 3. 碼表功能 4. 運動賽事計分功能
-
魔術方塊 (Rubik's Cube)-六十字解法SCAF(Six Cross And Finger shortcut) 此方法適合初學及喜歡用理解方式學習魔方的人。 Step 1:完成六面十字(Six-Cross) (1)完成第一層底面十字(D-Cross...
-
1. 使用氣象局網站上的氣溫及降水量資料。 2. 圖表類型[ 組合圖 ] 3. [圖表序列]左右軸分開呈現, 左軸是氣溫 ,選用 折線圖 ; 右軸是降水量 ,選用 長條圖 。溫度區間,最小值-10,最大值30。 4. 資料標籤可以打開,這樣可以看得更清楚。 延伸閱讀: 如何抓取交...
-
輸入格式:民國生日(可以自動判斷 6位或 7位數字) 輸出格式:西元生日、年齡、期間月數、期間日數 B2函數:=CONCATENATE(IF(LEN(A2)=6,LEFT(A2,2),LEFT(A2,3))+1911,"/",IF(LEN(A...
-
有時 Windows 10所安裝中的程式,會讓 Reboot Restore RX 無法正常運作,這時會造成 Windows10無法開機的情形,最好的方法就是移除。 出現Reboot Restore RX的開機畫面後,再按 [HOME] 就可以進入選單進行移除。