123
返回列表 上一主題 發帖

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

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-5-4 23:41 | 只看該作者

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

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

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

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
3#
發表於 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巨集表&巨集表函數 主程式

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

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
4#
發表於 2012-11-29 11:29 | 只看該作者
拜讀  阿吉兄保護工作表、EXCEL 4.0及欄列隱藏單元等單元，真是佩服。其實依使用到的技巧，可以逐步開啟檔案，但是仍無法復原或至自己運用，我亦曾搜尋網路或書籍，還是不得其解，不知 阿吉兄可否指點，何種管道可以學習。
Lin

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
5#
發表於 2012-11-30 13:09 | 只看該作者
本帖最後由 HUNGCHILIN 於 2012-12-1 00:37 編輯

回復 4# lin

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

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
6#
發表於 2012-12-12 16:15 | 只看該作者
阿吉兄:
        由於還不能貼附件，繁請指導以下2個疑問，謝謝
       1.用滑鼠指標置於表格左下方右拉即可出現工作表-隱藏欄列時常用搭配小技巧  如何產生
       2.左下方有一文件圖形滑鼠點擊即可出現其他工作表  如何產生
Lin

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1037 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
7#
發表於 2012-12-12 21:00 | 只看該作者
本帖最後由 HUNGCHILIN 於 2012-12-12 21:06 編輯

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


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

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
8#
發表於 2012-12-14 13:10 | 只看該作者
是的，如何產生工作表標籤隱藏呢?
另一問題是: 如何產生工作表標籤捲軸隱藏，謝謝。
Lin

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 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
複製代碼

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
10#
發表於 2012-12-14 16:54 | 只看該作者
謝謝 阿吉兄指導，另一問題如何產生工作表標籤隱藏，請於有空時回復，謝謝。
Lin

TOP

        靜思自在 : 多做多得。少做多失。
123
返回列表 上一主題