返回列表 上一主題 發帖

保護工作表問題

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-11 
1# 跳轉到 »
發表於 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

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-7-11 
2#
發表於 2016-3-29 13:34 | 顯示全部帖子
Workbook_BeforeSave 另存新檔, 我也測不出錯誤, 是否有其它程式衝突?

另使用 OPEN 來鎖定, 若原來存檔前未加鎖定, 而使用者不開巨集也是沒用!!!

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題