PTT數位生活區 / Office

[問題] 關於VBA ACTIVE控制鈕 如何設定

看板Office作者 (安東尼's life)時間8年前 (2018/03/11 23:54), 8年前編輯推噓0(0推 0噓 30→)
留言30則, 2人參與, 8年前最新討論串1/1
軟體: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://www.ptt.cc/bbs/Office/M.1520783690.A.319.html
→
03/11 23:56, 8年前 , 1F
03/11 23:56, 1F
→
03/11 23:56, 8年前 , 2F
補一張黃色區塊的圖片
03/11 23:56, 2F
→
03/12 00:11, 8年前 , 3F
保護工作表而出現執行階段錯誤'1004'的話
03/12 00:11, 3F
→
03/12 00:12, 8年前 , 4F
可於上方先worksheet.unprotect再於取得外部資料後再以
03/12 00:12, 4F
→
03/12 00:13, 8年前 , 5F
worksheet.protect保護
03/12 00:13, 5F
→
03/12 00:22, 8年前 , 6F
允許鍵入資料的話，儲存格格式，保護，鎖定(取消勾選)
03/12 00:22, 6F
→
03/12 00:22, 8年前 , 7F
請教取得外部資料該如何設定這個程式碼？ 謝謝
03/12 00:22, 7F
→
03/12 00:22, 8年前 , 8F
巨集的話range.locked設定為假false
03/12 00:22, 8F
→
03/12 00:24, 8年前 , 9F
不了解"取得外部資料如何設定這個程式碼"，連結內的with
03/12 00:24, 9F
→
03/12 00:25, 8年前 , 10F
worksheet.querytables...end with不就是取得外部資料了
03/12 00:25, 10F
→
03/12 00:29, 8年前 , 11F
重點是querytable.refresh前要unprotect執行後protect
03/12 00:29, 11F
→
03/12 00:33, 8年前 , 12F
如有有幾段取得外部資料的巨集，就程序執行開始unprotect
03/12 00:33, 12F
→
03/12 00:33, 8年前 , 13F
結束前protect
03/12 00:33, 13F
→
03/12 00:34, 8年前 , 14F
我再試試看！ 謝謝 soyoso大！
03/12 00:34, 14F
→
03/12 14:16, 8年前 , 15F
03/12 14:16, 15F
我將Sub UnprotectActiveSheet()...... If..........password End If End Sub 這個字串搬到最上面， 進行 控制鈕更新時， 出現了 Selection.ClearContents 想請教大家這裡哪裡出問題 謝謝 ※ 編輯: anthony34500 (42.77.116.116), 03/12/2018 14:20:11
→
03/12 14:22, 8年前 , 16F
03/12 14:22, 16F
→
03/12 14:22, 8年前 , 17F
我這樣設定鎖 結果如下圖
03/12 14:22, 17F
→
03/12 14:23, 8年前 , 18F
03/12 14:23, 18F
→
03/12 14:23, 8年前 , 19F
需要協助與慧根 QQ
03/12 14:23, 19F
→
03/12 15:39, 8年前 , 20F
將sub...end sub這個"字串"，這不是字串sub..end sub是程
03/12 15:39, 20F
→
03/12 15:39, 8年前 , 21F
序，且搬到最上面的目的是什麼？
03/12 15:39, 21F
→
03/12 15:40, 8年前 , 22F
出現了selection.clearcontents這是什麼意思？這行不就是
03/12 15:40, 22F
→
03/12 15:40, 8年前 , 23F
連結內寫的動作嗎？如要錯誤訊息產生要說明的是錯誤訊息的
03/12 15:40, 23F
→
03/12 15:40, 8年前 , 24F
內容或錯誤代碼之類的
03/12 15:40, 24F
→
03/12 15:51, 8年前 , 25F
如保護工作表下執行range.clearcontents產生錯誤就在程序
03/12 15:51, 25F
→
03/12 15:51, 8年前 , 26F
一開始先，worksheet.unprotect取消保護
03/12 15:51, 26F
→
03/12 15:52, 8年前 , 27F
執行完就保護工作表的話，就於end sub結束前
03/12 15:52, 27F
→
03/12 15:53, 8年前 , 28F
worksheet.protect
03/12 15:53, 28F
→
03/12 15:57, 8年前 , 29F
選取鎖定的儲存格，不勾選的話worksheet.enableselection
03/12 15:57, 29F
→
03/12 15:57, 8年前 , 30F
以xlunlockedcells
03/12 15:57, 30F
‣ 更多 anthony34500 的文章
文章代碼(AID): #1QfL5ACP (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 anthony34500 的文章
文章代碼(AID): #1QfL5ACP (Office)