作者anthony34500 (安東尼's life)
看板Office
標題[問題] 關於VBA ACTIVE控制鈕 如何設定
時間Sun Mar 11 23:54:48 2018
軟體:EXCEL
版本:2010
想請教各位大大門們，關於語言碼
https://i.imgur.com/nq54hPi.jpg
按保護時
https://i.imgur.com/J7Duhz5.jpg
結果出現錯誤
https://i.imgur.com/rP9SFnB.jpg
我想設計的是 active 可以按更新，但是不能看到內碼與編輯
https://i.imgur.com/gGbBBv2.jpg
以及輸入數字的黃色區塊 可以開放填入
這樣的語言碼該如何下呢？謝謝
非常感謝soyoso大解決了上一篇文章及許多問題！
好人有好報^^
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.93.69
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1520783690.A.319.html
2F：→ anthony34500: 補一張黃色區塊的圖片03/11 23:56
3F：→ soyoso: 保護工作表而出現執行階段錯誤'1004'的話03/12 00:11
4F：→ soyoso: 可於上方先worksheet.unprotect再於取得外部資料後再以03/12 00:12
5F：→ soyoso: worksheet.protect保護03/12 00:13
6F：→ soyoso: 允許鍵入資料的話，儲存格格式，保護，鎖定(取消勾選)03/12 00:22
7F：→ anthony34500: 請教取得外部資料該如何設定這個程式碼？ 謝謝03/12 00:22
8F：→ soyoso: 巨集的話range.locked設定為假false03/12 00:22
9F：→ soyoso: 不了解"取得外部資料如何設定這個程式碼"，連結內的with03/12 00:24
10F：→ soyoso: worksheet.querytables...end with不就是取得外部資料了03/12 00:25
11F：→ soyoso: 重點是querytable.refresh前要unprotect執行後protect03/12 00:29
12F：→ soyoso: 如有有幾段取得外部資料的巨集，就程序執行開始unprotect03/12 00:33
13F：→ soyoso: 結束前protect03/12 00:33
14F：→ anthony34500: 我再試試看！ 謝謝 soyoso大！03/12 00:34
我將Sub UnprotectActiveSheet()......
If..........password
End If
End Sub
這個字串搬到最上面，
進行 控制鈕更新時，
出現了 Selection.ClearContents
想請教大家這裡哪裡出問題 謝謝
※ 編輯: anthony34500 (42.77.116.116), 03/12/2018 14:20:11
17F：→ anthony34500: 我這樣設定鎖 結果如下圖 03/12 14:22
19F：→ anthony34500: 需要協助與慧根 QQ 03/12 14:23
20F：→ soyoso: 將sub...end sub這個"字串"，這不是字串sub..end sub是程 03/12 15:39
21F：→ soyoso: 序，且搬到最上面的目的是什麼？ 03/12 15:39
22F：→ soyoso: 出現了selection.clearcontents這是什麼意思？這行不就是 03/12 15:40
23F：→ soyoso: 連結內寫的動作嗎？如要錯誤訊息產生要說明的是錯誤訊息的 03/12 15:40
24F：→ soyoso: 內容或錯誤代碼之類的 03/12 15:40
25F：→ soyoso: 如保護工作表下執行range.clearcontents產生錯誤就在程序 03/12 15:51
26F：→ soyoso: 一開始先，worksheet.unprotect取消保護 03/12 15:51
27F：→ soyoso: 執行完就保護工作表的話，就於end sub結束前 03/12 15:52
28F：→ soyoso: worksheet.protect 03/12 15:53
29F：→ soyoso: 選取鎖定的儲存格，不勾選的話worksheet.enableselection 03/12 15:57
30F：→ soyoso: 以xlunlockedcells 03/12 15:57