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

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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 編輯

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

Sub Ex()
Dim Sh As Worksheet, Excel4MacroSheet$
With ActiveWorkbook
.Unprotect "11686106"
For Each Sh In .Sheets
If Sh.Type = xlExcel4MacroSheet Then
Excel4MacroSheet = Sh.name
Sh.Visible = True
End If
Next
With .Sheets.Add(Type:=xlExcel4MacroSheet)
ActiveWorkbook.Sheets(Excel4MacroSheet).Cells.Copy .[a1]
.Columns.Hidden = False
.Rows.Hidden = False
End With
End With
End Sub

複製代碼

TOP

HUNGCHILIN

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

版主 Rank: 7 Rank: 7 Rank: 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

中學生 Rank: 2

帖子: 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: 7 Rank: 7 Rank: 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

中學生 Rank: 2

帖子: 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: 7 Rank: 7 Rank: 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

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

複製代碼

TOP

lin

中學生 Rank: 2

帖子: 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