　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

保護工作表問題

大大們，遇到問題。
描述如下：
            原先是希望在儲存前，可以先把一些需要上鎖的工作表上鎖後
            再進行儲存檔案。
            但因為另存新檔時，有產生錯誤，所以調整成在打開時，將工作表上鎖。
            因為若打開時設定，在關閉或離開EXCEL，就會跳出是否儲存的視窗。
            請大大們，指導一下，問題產再生哪，如何解決在另存新檔時的錯誤。
            作法1、另存新檔時，產生錯誤。  (如何解決)
            Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
                  AP1 = 工作表1.Range("L1")    '密碼位置
                  工作表1.Protect Password:=AP1 '保護工作表  車台表 '產生錯誤視窗。
                           '=====保護工作表  工段表
                                 工作表3.Unprotect Password:=AP1 '取消保護工作表
                                 工作表3.Columns("F:G").Hidden = True '隱藏欄位
                                 工作表3.Protect Password:=AP1 '保護工作表
                           '===================
                  工作表5.Protect Password:=AP1 '保護工作表  LBF-B
            End Sub

            作法2、打開檔案時，工作表上鎖。 (另存新檔，沒有問題。)
            Private Sub Workbook_Open()
                  AP1 = 工作表1.Range("L1")    '密碼位置
                  工作表1.Protect Password:=AP1 '保護工作表  車台表
                           '=====保護工作表  工段表
                                 工作表3.Unprotect Password:=AP1 '取消保護工作表
                                 工作表3.Columns("F:G").Hidden = True '隱藏欄位
                                 工作表3.Protect Password:=AP1 '保護工作表
                           '===================
                  工作表5.Protect Password:=AP1 '保護工作表  LBF-B
            End Sub

樓主熱帖

學習才能提升自己

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-3-25 13:46 | 只看該作者

回復 1# hugh0620
作法1的錯誤視窗寫啥? 我測試沒跳出錯誤

你用保護工作表的目的是?
個人認為保護工作表是用來防止其他人使用這份文件時不小心修改到特定工作表(或儲存格)
那麼你就做一次保護工作表的動作，儲存，就好了。
照理說使用者打開時就是保護狀態了，需要每次儲存前都保護的理由是啥?

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

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

回復 2# stillfish00

你用保護工作表的目的是?
個人認為保護工作表是用來防止其他人使用這份文件時不小心修改到特定工作表(或儲存格)
Ans：你的保護工作表的目的或許是不想要讓人去修改到資料，
         我的需求是保護某些機密的資料。

照理說使用者打開時就是保護狀態了，需要每次儲存前都保護的理由是啥?
Ans：在文中已經有寫清楚原因，因為若打開時設定，在關閉或離開EXCEL，就會跳出是否儲存的視窗。
         若是再儲存前，先將保護設定好，在下次打開時，只要沒有修改到內容，
         這樣是不用跳出一個儲存畫面，你還需要將牠點掉。
         在設計的過程中，還是要考慮到使用者的方便性。

學習才能提升自己

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

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

回復 3# hugh0620
我的意思是盡量不要在Workbook_BeforeSave 或 Workbook_Open 內每次都重新設定。
而是寫成一次性的Sub myLock()和 Sub myUnlock()，要給使用者前跑過一次myLock 再儲存給使用者就好了，而開發者要開發修改前跑一次myUnlock。

當然你若覺得必要還是可以那樣做，只是你還是沒說錯誤視窗寫啥??

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

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

本帖最後由 hugh0620 於 2016-3-28 20:14 編輯

回復 4# stillfish00

Sub myLock()和 Sub myUnlock()，要給使用者前跑過一次myLock 再儲存給使用者就好了，而開發者要開發修改前跑一次myUnlock。
ANS：所設計的EXCEL工具，是讓不同單位的人共同使用，可以分兩種：
         1、可觀看機密資料、可以修改資料的人==>所以，他們需要解鎖，但它們會忘記上鎖。
         2、不可以觀看機密資料、不可以修改資料的人
         當你在同一個工具不同階層的人使用時，設計時，就要思考到使用者的習性，及工具的開放性。
         站在你設計的角度思考，針對的是一個較封閉的方式，開發者直接鎖死工作表，
         無法滿足，同一個工具讓不同層級的人共同使用。
         所以，我需要的是在打開或儲存前，還原工具的原始設定(保護工作表及按鈕設定)。
         以避免操作者的不當，讓資料外洩，導致不必要的問題產生。
         不同的需求，會有不同的設計方式，在設計之初，就會把需求及使用者的習慣考慮進去，
         才能更有效的撰寫出使用者需求的工具。
         很抱歉，沒有說清楚。
         但需要的是程式碼該如何修改，非是如何設計。

學習才能提升自己

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2016-3-29 13:22 | 只看該作者

回復 5# hugh0620

Private Sub Workbook_Open()
AP1$ = Sheet1.Range("L1")

Sheet1.Protect AP1

Sheet3.Unprotect AP1
Sheet3.Columns("F:G").Hidden = True
Sheet3.Protect AP1

Sheet5.Protect AP1

ThisWorkbook.Saved = True 這一行可以在無更改任何動作時, 關閉檔案時不顯示提醒視窗
End Sub

TOP

准提部林