欄的隱藏及保護問題。

各位師兄大家好，小弟剛學EXCEL不久，想問一些少少問題。

最迎公司要作一個表給其他部門看，這個表我首先有兩個VBA ，
第一個VAB就是把欄B及C隱藏，只顯示欄A,D,E;
第二個VBA就是把欄B,C,D,E隱藏，只顯示欄A;
至於欄F 對於一些敏感數據,所以不能給其他部門看，所以長期隱藏。
但如果我單單把欄F隱藏之後把EXCEL給其他部門看，他們可以把欄F取消隱藏去，結果隱藏就沒有意思。

最後我想做到的效果就是他們不得修改任何儲存格內容，但又可以用到這兩個按鈕，又可以CTRL+F搜尋(因為數據都算多)，又禁止他們看到欄F任何數據。

請問這個效果能做到嗎?先感激萬分。

A    B    C    D    E    F  ←長期隱藏          VBA1 ←按鈕
1    1    1    1    1    1
2    2    2    2    2    2                                  VBA2←按鈕
3    3    3    3    3    3

樓主熱帖

學到老死

中學生 Rank: 2

帖子: 44
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: Window 8
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-8-15
最後登錄: 2017-4-18

2^#

發表於 2016-3-12 15:12 | 只看該作者

樓主好，提出一個方式供樓主參考，就是除了原檔案外，再複製兩個同檔案，仍用兩個VBA，一個為刪除B,C,F欄,跟一個刪除B,C,D,E,F欄，在個別提供給他部門。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

3^#

發表於 2016-3-12 19:12 | 只看該作者

１．工作表全部儲存格都設為〔鎖定〕．再將Ｈ１的鎖定取消
　
２．在工作表程式區，放入以下程式：
　　Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　　If .Address <> "$H$1" Then Exit Sub
　　　　　If .Value <> "12345" Then Exit Sub
　　　　　ActiveSheet.Unprotect "1111"
　　　　　[A:F].EntireColumn.Hidden = False
　　　　　[A1].Select
　　　　　[H1] = ""
　　End With
　　End Sub
　　＿＿目的：在Ｈ１輸入"12345”（此密碼可自行決定），解除工作表保護及顯示全部欄位，以利檔案管理者進行編輯工作
　
３．模組區放以下程式，並指定給按鈕：
　　Sub 顯示1()
　　With ActiveSheet
　　　　　.Unprotect "1111"
　　　　　.[A:F].EntireColumn.Hidden = True
　　　　　.[A1,D1,E1].EntireColumn.Hidden = False
　　　　　.Protect "1111"
　　　　　.[A1].Select
　　End With
　End Sub
　
　Sub 顯示2()
　With ActiveSheet
　　　　.Unprotect "1111"
　　　　.[A:F].EntireColumn.Hidden = True
　　　　.[A1].EntireColumn.Hidden = False
　　　　.Protect "1111"
　　　　.[A1].Select
　End With
　End Sub
　＿＿目的：解除工作表保護（密碼可自行設定），調整欄位隱藏後，恢復保護，即可防止更改，但可執行搜尋
　
４．程式碼必須設定〔專案保護〕否則使用者還是可以看到程式區的密碼，
　　但是這專案保護密碼要自己記得住，免得解不開而無法進行程式的更改！
　　（註：這保護密碼並非絕對安全，有心人還是有辦法破解的，只能防君子）

有疑問，可網上關鍵字找一下，有很多文章可看，就不另作說明！！

TOP

tc1701

小學生 Rank: 1

帖子: 12
主題: 6
精華: 0
積分: 19
點名: 0
作業系統: window 7
軟體版本: Excel 2013
閱讀權限: 10
註冊時間: 2015-7-15
最後登錄: 2022-2-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2016-3-13 20:34 | 只看該作者

感謝大大!!!真的可以用了~~又學會了一課~!十分感恩!!多謝你=]

TOP

tc1701

小學生 Rank: 1

帖子: 12
主題: 6
精華: 0
積分: 19
點名: 0
作業系統: window 7
軟體版本: Excel 2013
閱讀權限: 10
註冊時間: 2015-7-15
最後登錄: 2022-2-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2016-4-8 00:43 | 只看該作者

回復 3# 准提部林

版大你好，最近都沒時間上線，這個程式真是神。有說明非常好,,,
可惜我一句也不明白..不是我懶..而是真的太深奧..
版大方便有天可以詳細解釋一下嗎?
因為我想利用這個程式碼套用其他EXCEL用於工作上，而且我想了解了，而跟同事們解釋一下，不想他們只會按而不去學。

肯教的真的會十分感激!!!

TOP