作者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/cn.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