请问怎么用VBA把EXCEL的表取消隐藏功能禁用 每次打开excel时 让所有的sheet中的隐藏的行全部取消...
\u6c42\u6559\u9ad8\u624b\uff1avba\u5982\u4f55\u5b9e\u73b0excel2007\u9009\u9879\u5361\u4e2d\u53d6\u6d88\u9690\u85cf\u529f\u80fd\u5173\u95ed?\u662f\u201c\u5355\u5143\u683c\u683c\u5f0f\u201d-\u201c\u4fdd\u62a4\u201d-\u201c\u9690\u85cf\u201d\u9009\u9879\u4e48\uff1f
Selection.FormulaHidden = False
Private Sub Workbook_Open()For I = 1 To Sheets.Count Sheets(I).ShowAllDataNextEnd Sub
你想禁用“取消隐藏”功能,大概是不想让别人看到某些表格。其实有另外的思路实现:
1、把表格设置为深度隐藏(如图) 如果用VBA语句隐藏,例如: Sheets(3).Visible=2
2、把VBA工程加密码 (防止别人直接修改表格属性而取消隐藏)
深度隐藏的表格,即使点取消隐藏也看不到。
假设要隐藏第2个工作表
Sub hide_worksheet()
Sheets(2).Visible = False
End Sub
取消隐藏就把false改为true
绛旓細1銆佸彲浠ュ厛鍒╃敤瀹忓綍鍒舵潵鑷姩鐢熸垚浠g爜锛岀劧鍚庡啀杩涜淇敼銆傛搷浣滄柟娉曞涓嬶細绗竴姝ワ紝鎵撳紑涓涓猠xcel搴旂敤锛屾柊寤轰竴涓櫧绌鸿〃鏍硷紝骞跺綍鍏ユ暟鎹2銆佺浜屾锛岀偣鍑籩xcel搴旂敤绋嬪簭绐楀彛鐘舵佹爮涓乏渚х殑鈥滃畯褰曞埗鈥濇寜閽3銆佺涓夋锛岀劧鍚庡湪琛1涓紝閫変腑宸︿笂瑙掔涓涓湁鏁版嵁鐨勫崟鍏冩牸銆4銆佺鍥涙锛屾帴鐫鎸変笅CTRL+SHIFT閿紝鍐...
绛旓細鏂规硶涓锛氬湪excel閲岀紪鍐欎竴涓▼搴忔锛屾墦寮鏈暟鎹〃锛屽惊鐜紑濮嬶細姝ラ1锛屾墦寮鎴栨柊寤轰竴涓獁ord鏂囨。锛屾妸浣犺鐨勬寚瀹氫綅缃壘鍒帮紝姝ラ2锛屾妸姝や綅缃唴瀹规敼鍐欎负excel鍐呮兂搴旂殑鏁版嵁锛屾楠3锛屼繚瀛榳ord鏂囨。閫鍑;鐒跺悗閲嶅涓嬩竴涓暟鎹紝鎸変笂杩版楠ゅ惊鐜嚦缁撴潫銆備篃鍙互鏂规硶浜岋細鍦╳ord閲岀紪鍐欑▼搴忥紝鎵撳紑excel杩欎釜鏁版嵁琛紝寰幆寮濮嬶細...
绛旓細1銆佹墦寮鐢佃剳涓婄殑Excel鏂拌繘涓涓┖鐧藉伐浣滆挷銆2銆佸彸閿偣鍑讳笅鏂硅彍鍗曟爮涓殑sheet1锛岄夋嫨鏌ョ湅浠g爜銆3銆佸湪杩欓噷灏卞彲浠ユ墦寮VBA鐨勭紪杈戠晫闈紝鍗冲彲缂栬緫浣跨敤銆4銆佹牴鎹互涓婃楠ゅ氨鍙互鐢╒BA浜嗐
绛旓細1.涓句釜渚嬪瓙锛岄鍏堟濊矾鍒嗘瀽锛氱洰鍓嶅湪Excel涓鏈変袱寮犺〃锛屼竴寮犺〃鏄師鏉ョ殑瀛﹀勾鎶ヨ〃(鍗斥滃師琛ㄢ濓紝鍚鐢熺殑鍚勭淇℃伅锛屽鍥1鎵绀)锛屼竴寮犺〃鏄幇鍦ㄧ殑瀛︾敓鑺卞悕鍐(鍗斥滄柊琛ㄢ濓紝鍙湁瀛︾敓鐨勫鍚嶅拰鎬у埆淇℃伅锛屽鍥2鎵绀)銆傚彧瑕佽兘灏鈥滃師琛ㄢ濅腑鐨勪俊鎭牴鎹滄柊琛ㄢ濅腑鐨勫鐢熷鍚嶅叧鑱斿埌鈥滄柊琛ㄢ濅腑锛屽氨鍙互瀹屾垚浠诲姟浜嗐...
绛旓細鍦excel涓鏁板瓧涓庢枃瀛楀叡瀛樼殑鎯呭喌涓嬶紝濡傛灉鏈夎寰嬶紝鍙互浣跨敤鍏紡鏉ュ垎绂诲瓧姣嶃佹眽瀛椼佹暟瀛楋紱濡傛灉娌℃湁瑙勫緥锛屾瘮杈冪悊鎯崇殑杩樻槸鏄鐢╒BA鏉ヨВ鍐炽備笅闈㈡槸鍏蜂綋鐨別xcel鍒犻櫎鏁板瓧鎿嶄綔姝ラ锛氭寜ALT+F11锛屾墦寮VBE缂栬緫鍣紝鍗曞嚮鎻掑叆鈥斺旀ā鍧楋紝澶嶅埗涓嬮潰鐨勪唬鐮侊紝鐒跺悗鎸塅5閿繍琛岋紝excel浼氳嚜鍔ㄥ皢A鍒楁墍鏈夌殑鍐呭鍒犻櫎鏁板瓧涔嬪悗鐨勭粨鏋滄彁鍙栨斁鍦...
绛旓細Range(閲戝竵20).Copy Windows("宸ュ叿.xlsx").Activate Sheets("Sheet1").Select 閲戝竵20鍒版墜 = InputBox("浜茬埍鐨勮佹澘~锛屽綋鍓嶆槸'宸ュ叿'琛紝瑕佹斁鍒板摢涓崟鍏冩牸鍛锛", "骞叉椿鐨勬惉杩愬伐")Range(閲戝竵20鍒版墜).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, ...
绛旓細鍦Excel涓锛鍒╃敤VBA鍙互杞绘澗瀹炵幇璺ㄥ伐浣滅翱鐨勬暟鎹皟鐢ㄣ傞鍏堬紝浣犻渶瑕佸湪宸ヤ綔绨跨殑瀹忓綍鍒跺姛鑳戒腑寮濮嬫搷浣溿傜偣鍑诲乏涓嬭鐨勫綍鍒跺畯鎸夐挳锛屼负鍗冲皢鎵ц鐨勬搷浣滃垱寤轰竴涓畯銆傚湪瀹忓悕澶勶紝杈撳叆涓涓槗鐞嗚В鐨勫悕绉帮紝渚嬪"DataTransfer"锛屽苟閫夋嫨瀛樺偍鍦"涓汉瀹忓伐浣滅翱"涓紝鐒跺悗鐐瑰嚮"纭畾"銆傚綍鍒跺畬鎴愬悗锛岄氳繃鐐瑰嚮鍋滄褰曞埗瀹忔寜閽殏鍋...
绛旓細1銆佹闈笂绗竴绔犱腑鐨勬瘡涓伐浣滅翱鍚嶇О鏀剧疆鍒板伐浣滆〃涓2銆佹柊寤轰竴涓伐浣滅翱锛灏鍏跺懡鍚嶄负鈥滅涓绔犵洰褰曗濓紝鎸塧lt+f11缁勫悎閿紝鎵撳紑瀹忕晫闈3銆佸湪VBA涓锛屽崟鍑绘彃鍏ユ寜閽紝鐐瑰嚮鎻掑叆鑿滃崟涓嬬殑妯″潡锛屽嵆鍙柊寤烘ā鍧楋紝绯荤粺榛樿涓烘ā鍧椼4銆浣跨敤do~~loop寰幆璇彞锛屽湪VBA涓緭鍏ャ5銆佽繑鍥炲悕涓衡滅涓绔犵洰褰曗濈殑宸ヤ綔绨夸腑...
绛旓細excel浠g爜VBA鐨勪娇鐢鏁欑▼锛1銆侀鍏堟墦寮鐢佃剳涓婄殑excel锛屽湪寤虹珛鐨勬柊宸ヤ綔琛ㄤ腑鐨凷heet1涓婄偣鍑汇愬彸閿戙2銆佷笅涓姝ワ紝鍦ㄥ脊鍑虹殑閫夋嫨鍒楄〃涓夋嫨銆愭煡鐪嬩唬鐮併戣繖涓椤广3銆佹帴鐫锛岀偣鍑诲彸渚х殑鍊掍笁瑙掞紝鍦ㄤ笅鎷夊垪琛ㄤ腑閫夋嫨銆怶orksheet銆戜竴椤广4銆佺劧鍚庯紝鐐瑰嚮鍙宠竟鍊掍笁瑙掞紝閫夋嫨銆愯Е鍙戙戞柟寮忥紝濡侭eforeDoubleClick琛ㄧず鍦ㄥ弻鍑婚紶鏍囧乏...
绛旓細Dim MyString as String MyArray = MyExcel.Sheets("宸ヤ綔琛ㄥ悕绉").Range("A2:E2").Value '闇瑕佷粠EXCEL涓瀵煎嚭鐨勫唴瀹规斁鍒版暟缁勪腑锛屽洜涓烘搷浣滄暟缁勬瘮鐩存帴璋冪敤RANGE瑕佸揩寰楀銆係et MyWord = CreateObject("Word.Application") '鐢熸垚WORD瀵硅薄 MyString = MyArray1(1, 1) '閫氳繃鎿嶄綔鏁扮粍缁欏彉閲忚祴鍊硷紝鍙互閫氳繃...