Board logo

標題: [原創] 用其他方法保護工作表 [打印本頁]
作者: HUNGCHILIN    時間: 2010-5-4 23:41     標題: 用其他方法保護工作表

本帖最後由 HUNGCHILIN 於 2010-5-5 22:25 編輯

你可以試看看開不開巨集的影響
此檔的功能為使用巨集表
製作密碼視窗
輸入密碼才能使用工作表
只讓人觀看內容但不能修改包括列印
修改密碼為:11686106
不開啟巨集不能使用
(2007版以後不開啟巨集時巨集表有失效狀況/開啟巨集時則正常)

[attach]57[/attach]
作者: GBKEE    時間: 2011-1-30 16:52

本帖最後由 GBKEE 於 2011-1-30 16:54 編輯

開啟檔案後 執行此程序 ,可明暸阿吉兄的作法.
  1. Sub Ex()
  2.      Dim Sh As Worksheet, Excel4MacroSheet$
  3.      With ActiveWorkbook
  4.         .Unprotect "11686106"
  5.         For Each Sh In .Sheets
  6.             If Sh.Type = xlExcel4MacroSheet Then
  7.                 Excel4MacroSheet = Sh.name
  8.                 Sh.Visible = True
  9.             End If
  10.         Next
  11.         With .Sheets.Add(Type:=xlExcel4MacroSheet)
  12.             ActiveWorkbook.Sheets(Excel4MacroSheet).Cells.Copy .[a1]
  13.             .Columns.Hidden = False
  14.             .Rows.Hidden = False
  15.          End With
  16.     End With
  17. End Sub
複製代碼
作者: HUNGCHILIN    時間: 2011-1-30 22:36

本帖最後由 HUNGCHILIN 於 2011-1-31 21:36 編輯

^^很高興
有人對這個話題有興趣，有人問我最開心了

這則使用到的技巧有
1.活頁簿保護 11686106，用來保護(2.工作表 非常隱藏)如EXCEL的visible 不能設定為xlsheetcisible
2.工作表 非常隱藏，用來保護保密(3.工作表保護)
3.工作表保護 11686106，用來保護(4.列與欄位標題隱藏)
4.列與欄位標題隱藏，用來保密(5.欄列隱藏)
5.欄列隱藏(進化型:兩次解除欄列隱藏，請參照欄列隱藏秘訣[原創] 隱藏欄列也是一門技巧　沒學會要訣別說會隱藏歐(通則))
，用來保密(7.EXCEL 4.0巨集表&巨集表函數)
6.自動啟用定義(請參照欄列隱藏秘訣定義名稱的迷思)，用來保護保密(7.EXCEL 4.0巨集表&巨集表函數)
7.EXCEL 4.0巨集表&巨集表函數 主程式

檔案非常有趣，請細感受
作者: lin    時間: 2012-11-29 11:29

拜讀  阿吉兄保護工作表、EXCEL 4.0及欄列隱藏單元等單元，真是佩服。其實依使用到的技巧，可以逐步開啟檔案，但是仍無法復原或至自己運用，我亦曾搜尋網路或書籍，還是不得其解，不知 阿吉兄可否指點，何種管道可以學習。
作者: HUNGCHILIN    時間: 2012-11-30 13:09

本帖最後由 HUNGCHILIN 於 2012-12-1 00:37 編輯

回復 4# lin

您好 很高興您對保護保密技巧有興趣
1. 市面上書籍、其他網站內沒有介紹是很正常的事...網路上永遠比書籍更深入.但錯誤也更多.要不然我就不用將心得彙整後放在網路上了
    此論壇網上的每一個範例都是阿吉親自試練過 有寫[原創]的是阿吉的作品與原創想法.有引用或學習其他人的想法時會寫上引用/轉帖
    且我會將來源註明清楚以尊重前輩
2.如何學習:建議不用看書了.書上肯定沒有.建議您可以根據興趣一個一個到在此論壇內發問學習，當然也可以在其他論壇發問.
    但不能保證.回答的答案會是正確的
作者: lin    時間: 2012-12-12 16:15

阿吉兄:
        由於還不能貼附件，繁請指導以下2個疑問，謝謝
       1.用滑鼠指標置於表格左下方右拉即可出現工作表-隱藏欄列時常用搭配小技巧  如何產生
       2.左下方有一文件圖形滑鼠點擊即可出現其他工作表  如何產生
作者: HUNGCHILIN    時間: 2012-12-12 21:00

本帖最後由 HUNGCHILIN 於 2012-12-12 21:06 編輯

1.用滑鼠指標置於表格左下方右拉即可出現工作表-隱藏欄列時常用搭配小技巧  如何產生?
你說的是這樣嗎?如附件[attach]13506[/attach]


2.左下方有一文件圖形滑鼠點擊即可出現其他工作表  如何產生?
ANS:這個是EXCEL2007以上版本的功能
[attach]13505[/attach]
作者: lin    時間: 2012-12-14 13:10

是的，如何產生工作表標籤隱藏呢?
另一問題是: 如何產生工作表標籤捲軸隱藏，謝謝。
作者: GBKEE    時間: 2012-12-14 14:16

回復 8# lin
  1. Option Explicit
  2. Sub Ex()
  3.     ActiveWindow.DisplayWorkbookTabs = False
  4.     'DisplayWorkbookTabs 屬性 如果顯示活頁簿索引標籤則為 True。讀/寫 Boolean。

  6.     '或是
  7.    
  8.     ActiveWindow.TabRatio = 0
  9.    
  10.     'TabRatio 屬性 傳回或設定視窗活頁簿索引標籤寬度與視窗水平捲軸寬度比例 (可為 0 (零) 和 1 之間的數字；預設值為 0.6)。讀/寫 Double。
  11.     '備註
  12.     '如果 DisplayWorkbookTabs 設定為 False，則該屬性沒有作用 (保留其值，但該值不影響螢幕顯示)。
  13. End Sub
複製代碼
作者: lin    時間: 2012-12-14 16:54

謝謝 阿吉兄指導，另一問題如何產生工作表標籤隱藏，請於有空時回復，謝謝。
作者: Hsieh    時間: 2012-12-14 19:39

回復 10# lin

[attach]13533[/attach]
如果要得到程式碼用錄製即可
作者: HUNGCHILIN    時間: 2012-12-14 23:10

本帖最後由 HUNGCHILIN 於 2012-12-14 23:36 編輯

富哥他要的技巧，是一個比較特別的，目前只有我在用的小方法
目前看來只被他發現

您可以看到阿吉前一樓所放的附件XLS檔案，裡面是有3個SHEET，但初始顯示只有一個 或指定的幾個工作表
不是隱藏工作表的方式，各位可以下載看一下就知道

這個技巧的功能:不透過工作表隱藏 來隱藏工作表
他有發現表示他很用心，我也很樂意教學這個技巧

先回答
工作表標籤隱藏(表格左下方右拉即可出現工作表-隱藏欄列時常用搭配小技巧)
首先這是個怪技巧...也是人們會忽略的部分
說破不值錢
作法請看下圖動畫:
做到最後點2下水平卷軸他會縮回去
作完存檔就好
[attach]13537[/attach]
作者: HUNGCHILIN    時間: 2012-12-14 23:32

本帖最後由 HUNGCHILIN 於 2012-12-14 23:56 編輯

回復 10# lin

這也是一個比較特別的，看了這麼多作品也是目前只有我在用的小方法
你有發現表示很用心，我也很樂意教學這個技巧

先回答
如何產生工作表標籤捲軸隱藏?
這個技巧的功能:使用水平捲軸來隱藏工作表標籤讓人就算開關工作表標籤選項，也看不到工作表標籤

首先這是個怪技巧...也是人們會忽略的部分
說破不值錢
作法請看下圖動畫:
作完存檔就好
[attach]13541[/attach]

你真的是來挖寶的歐
一來就已經挖了我2個沒講解過的技巧
這兩個小技巧放這麼久都沒人發現...只有你發現
請繼續加油
作者: GBKEE    時間: 2012-12-15 07:33

回復 12# HUNGCHILIN

回復  lin
GBKEE 發表於 2012/12/14 14:16    '或是        ActiveWindow.TabRatio = 0
作者: lin    時間: 2012-12-21 12:13

阿吉兄:
不好意思，又要麻煩，有關使用費用分攤.xls範例中，產生疑問有三：
1.如何隱藏Macro1活頁簿。
2.除首頁工作表索碼。
3.我看excel4.0語言與lotus 123頗為神似，不知用目前excel 2007或excel2010是否可以撰寫。
作者: HUNGCHILIN    時間: 2012-12-23 01:07

本帖最後由 HUNGCHILIN 於 2012-12-23 02:33 編輯

回復 15# lin


1.如何隱藏Macro1 SHEET?
ANS:這只是一般的工作表非常隱藏，只是較特別的部分是 EXCEL4.0工作表，作隱藏後 在VBE編輯器內是看不到的
工作表非常隱藏語法通常為ActiveWorkbook.Sheets("Macro1").Visible = 2
解除工作表非常隱藏語法通常為ActiveWorkbook.Sheets("Macro1").Visible = -1

2.除首頁工作表索碼?
ANS:這個檔案的這個部分是使用 4.0巨集表與巨集定義來製作，是舊技術，不過要了解要花費一點時間
你可以先參考這一貼http://www.officefans.net/cdb/viewthread.php?tid=59862&extra=&page=1

3.我看excel4.0語言與lotus 123頗為神似，不知用目前excel 2007或excel2010是否可以撰寫?
ANS:2007/2010可以使用excel4.0巨集表，也可以撰寫
作者: n1318    時間: 2012-12-25 17:26

感謝指導，試試看。
作者: avel    時間: 2015-2-7 09:38

这个还需要用到宏表的么？
作者: HUNGCHILIN    時間: 2015-6-17 23:07

回復 18# avel
EH論壇的版主好.這個不需要宏表.手工按一按就好
作者: shaokui123    時間: 2021-3-24 21:54

研究了半天没有宏，奇怪呢？
后来看了二楼原来是4.0宏啊
作者: shaokui123    時間: 2021-3-25 21:29

这个可以建议为
vba设置只显示一个主页，其余工作表深度隐藏，必须通过vba才能显示，这



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)