標題: 制作私人檔案 [打印本頁]

---

作者: mmggmm    時間: 2010-9-11 16:38     標題: 制作私人檔案

請問如何制作一個Excel檔案,先輸入USER名稱再輸入密碼才可進入檔案工作.

---

作者: GBKEE    時間: 2010-9-11 17:42

回復 1# mmggmm
ThisWorkbook 物件模組 的程序

1. Option Explicit
   
2. Const UserPass = "1234"
   
3. Private Sub Workbook_Open()
   
4.     Dim Pass As String
   
5.     Pass = InputBox("", "密碼輸入")     '密碼輸入
   
6.     If Pass <> UserPass Then
   
7.         MsgBox "密碼錯誤  檔案關閉 ", vbCritical, "密碼輸入"
   
8.         ThisWorkbook.Close 0  '檔案關閉 不存檔
   
9.     End If
   
10. End Sub

複製代碼

---

作者: 老夏    時間: 2010-9-11 20:00

本帖最後由 老夏 於 2010-9-11 21:24 編輯

Windows基本功能,可以設定密碼
不能使用嗎?

[attach]2762[/attach]

---

作者: mmggmm    時間: 2010-9-12 12:13

明白了,多謝

---

作者: kaigan89    時間: 2010-9-18 10:43

如只是要開啟檔案之前須輸入密碼
一般保護功能即可！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)