返回列表 上一主題 發帖

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

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

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

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

費用分攤.rar (63.35 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

本帖最後由 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
複製代碼

TOP

本帖最後由 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巨集表&巨集表函數 主程式

檔案非常有趣,請細感受
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

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

TOP

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

回復 4# lin

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

TOP

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

TOP

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

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


2.左下方有一文件圖形滑鼠點擊即可出現其他工作表  如何產生?
ANS:這個是EXCEL2007以上版本的功能
A.jpg
2012-12-12 20:59
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

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

TOP

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

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

TOP

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

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題