[原創] 用其他方法保護工作表

HUNGCHILIN

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

費用分攤.rar (63.35 KB)

下載次數: 122

2010-5-5 22:17

GBKEE

開啟檔案後 執行此程序 ,可明暸阿吉兄的作法.

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

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

這則使用到的技巧有
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

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

HUNGCHILIN

回復 4# lin

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

lin

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

HUNGCHILIN

1.用滑鼠指標置於表格左下方右拉即可出現工作表-隱藏欄列時常用搭配小技巧  如何產生?
你說的是這樣嗎?如附件 活頁簿1.rar (5.72 KB)

下載次數: 14

2012-12-12 21:06

2.左下方有一文件圖形滑鼠點擊即可出現其他工作表  如何產生?
ANS:這個是EXCEL2007以上版本的功能

下載 (23.62 KB)

2012-12-12 20:59

lin

是的，如何產生工作表標籤隱藏呢?
另一問題是: 如何產生工作表標籤捲軸隱藏，謝謝。

GBKEE

回復 8# lin

1. Option Explicit
   
2. Sub Ex()
   
3.     ActiveWindow.DisplayWorkbookTabs = False
   
4.     'DisplayWorkbookTabs 屬性 如果顯示活頁簿索引標籤則為 True。讀/寫 Boolean。
   
5. 
   
6.     '或是
   
7.    
   
8.     ActiveWindow.TabRatio = 0
   
9.    
   
10.     'TabRatio 屬性 傳回或設定視窗活頁簿索引標籤寬度與視窗水平捲軸寬度比例 (可為 0 (零) 和 1 之間的數字；預設值為 0.6)。讀/寫 Double。
    
11.     '備註
    
12.     '如果 DisplayWorkbookTabs 設定為 False，則該屬性沒有作用 (保留其值，但該值不影響螢幕顯示)。
    
13. End Sub

複製代碼

lin

謝謝 阿吉兄指導，另一問題如何產生工作表標籤隱藏，請於有空時回復，謝謝。