[分享] Excel的安全性設定高時,活頁簿無法開啟 . 可保護活頁簿的隱密性.

GBKEE

作法: 活頁簿加入 Excel 4.0 巨集表

GBKEE

活頁簿 插入Excle 4.0巨集 工作表
巨集安全性 設定最高時 無法開啟 此活頁簿
自訂密碼以維護檔案的隱密

自定密碼.rar (23.45 KB)

下載次數: 38

2011-3-22 08:10

Private Sub UserForm_Initialize()
    Dim I As Integer, R As Range
  '  Application.Visible = False    '隱藏 Excel  ->正常使用時請解除前面的注解 " ' "
    表單頭
    Check_time = 0
    Set R = Sheet1.Range("使用者").CurrentRegion.Offset(1)   '"使用者" 已在工作表中定義名稱
    Set R = R(1).Resize(R.Rows.Count - 1, R.Columns.Count)
    For I = 1 To 3
        Me.Controls("Label" & I).Caption = Sheet1.Range("使用者").Cells(1, I)
    Next
    Me.ComboBox1.ColumnCount = 1
    Me.ComboBox1.List = R.Value
End Sub

HUNGCHILIN

回復 2# GBKEE


這則是GB兄給我的靈感
作出來的檔案
讓人家不知道，表單按鈕是指定到那個巨集
看了就知道重點


說明:

表單按鈕指定巨集時，我們使用定義來取代指定的巨集
再把定義隱藏起來

下載 (17.34 KB)

2011-3-27 12:34

下載 (34.04 KB)

2011-3-27 12:36

讓人家不知道您的表單按紐是指定到那個巨集

自設密碼.rar (25.43 KB)

下載次數: 25

2011-3-26 22:48

GBKEE

回復 3# HUNGCHILIN
真是有創意
回復 4# chin15

版主的意思是巨集安全性設為高時仍有辦法執行巨集嗎

不是的
活頁簿 插入Excle 4.0巨集 工作表,當巨集安全性設為高時,就無法開啟此活頁簿.
可保護活頁簿的隱密性.

HUNGCHILIN

以下這則最重要的觀念在於

1.可以用定義取代物件的"指定巨集"

2.既然可以用定義就可以用公式函數作許多判斷，而不用寫在巨集中，可以多一種指定與判斷分流的寫法

簡單寫法如下:

使用定義當作物件的指定巨集A.rar (18.46 KB)

下載次數: 22

2011-4-1 21:54

呵呵臨時作的範例，造成錯務已更新檔案

GBKEE

回復 5# HUNGCHILIN
檔案中的名稱 使用者 的參照跑掉了 =Sheet1!#REF!
修正=Sheet1!$A$2 可正常看到範例
執行下列程序  可知 HUNGCHILIN 版主的巧思

1. Sub Ex()
   
2.     Dim a
   
3.     For Each a In ThisWorkbook.Names
   
4.         a.Visible = True
   
5.     Next
   
6. End Sub

複製代碼

chiata

回復 5# HUNGCHILIN

請問阿吉大所謂的"定義"是只指"插入"->"名稱"->"定義"嗎?
我試著操作，定義儲存格A1名稱為test，並在"指定巨集"那直接輸入名稱檔案名.xls!test，如圖...謝謝。

下載 (28.55 KB)

2013-1-21 16:59

PS.好不容易積分到了可以下載附件，開了幾個各位前輩的作品已經讓我學到很多，感謝。

HUNGCHILIN

對只是"插入"->"名稱"->"定義"
範例檔案內
我沒有用第3個巨集做判斷.但為什麼 在A2輸入1與輸入2時 按按鈕時會自動判斷使用不同的巨集?

答案:
檔案內有定義名稱 TEST=IF(Sheet1!$A$2=1,程式.AAAA,程式.bbbb)
再把TEST定義隱藏.欲觀看此定義.請利用#6的代碼顯示此TEST定義

可看到檔案內只有兩個巨集
Private Sub AAAA()
MsgBox "A"
End Sub
Private Sub bbbb()
MsgBox "b"
End Sub

這個範例是在說.使用公式也可以讓按鈕使用AAAA或BBBB巨集 不用用到第三個巨集

chiata

回復 8# HUNGCHILIN


阿吉大，我誤會了，本來我是定義test參照到某個儲存格，此儲存格的公式=IF(Sheet1!$A$2=1,程式.AAAA,程式.bbbb)，
原來是參照那邊就要=IF(Sheet1!$A$2=1,程式.AAAA,程式.bbbb)，已經可以執行，又長見識了！謝謝。