GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-12-29 08:37 | 只看該作者

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

本帖最後由 GBKEE 於 2011-3-27 07:28 編輯

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

樓主熱帖

chiata

中學生 Rank: 2

帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

9^#

發表於 2013-1-21 23:13 | 只看該作者

回復 8# HUNGCHILIN

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

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

貴賓勳章熱烈參與勳章好學求知勳章

8^#

發表於 2013-1-21 17:44 | 只看該作者

本帖最後由 HUNGCHILIN 於 2013-1-21 20:16 編輯

對只是"插入"->"名稱"->"定義"
範例檔案內
我沒有用第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巨集不用用到第三個巨集

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

chiata

中學生 Rank: 2

帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

7^#

發表於 2013-1-21 17:01 | 只看該作者

回復 5# HUNGCHILIN

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

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

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兔年全勤獎章

6^#

發表於 2011-4-1 14:23 | 只看該作者

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

Sub Ex()
Dim a
For Each a In ThisWorkbook.Names
a.Visible = True
Next
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

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2011-3-31 23:54 | 只看該作者

本帖最後由 HUNGCHILIN 於 2011-4-1 22:00 編輯

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

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

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

簡單寫法如下:

使用定義當作物件的指定巨集A.rar (18.46 KB)
呵呵臨時作的範例，造成錯務已更新檔案

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

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兔年全勤獎章

4^#

發表於 2011-3-27 07:25 | 只看該作者

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

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

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

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-3-26 22:55 | 只看該作者

本帖最後由 HUNGCHILIN 於 2011-3-27 12:37 編輯

回復 2# GBKEE

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

說明:

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

下載 (17.34 KB)

2011-3-27 12:34

下載 (34.04 KB)

2011-3-27 12:36

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

自設密碼.rar (25.43 KB)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

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兔年全勤獎章

2^#

發表於 2011-3-22 08:10 | 只看該作者

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

自定密碼.rar (23.45 KB)

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

TOP