問：如何通過一個用戶補充錄入數據，但是我又不想有人看到整個Excel 工作薄。簡單的說，就是打開某個Excel 文件之后，我只看到一個用戶允許，然后我就通過該用戶合并錄入數據，保存之后，所輸入的數據就存在E xcel 文件里。
答：下面是詳細的實現過程。
首先，準確一個用戶慣例。
在 VBE 中，插入用戶細分，在其中添加控件，如下圖所示。
編寫代碼：
私人子CommandButton1_Click（）
迪米·阿朗
i = Worksheets（“ sheet1”）。Range（“ A”＆Rows.Count）.End（xlUp）.Row
IfRange（“ A1”）=“”然后
Range（“ A1”）= TextBox1.Text
其他
我=我+ 1
Range（“ A”＆i）= TextBox1.Text
萬一
TextBox1.Text =“”
TextBox1.SetFocus
結束子
說明：
代碼在工作表 Sheet1 的列 A 中依次放置文本并輸入的數據。
接著，在工作簿Workbook_Open事件中編寫代碼。這樣，在打開工作簿時，會自動執行Workbook_Open事件中的代碼。
事實1：打開工作簿后，將工作簿界面最小化，只顯示用戶細分。
私人子Workbook_Open（）
‘ 最小化窗戶
Application.WindowState = xl最小化
‘ 顯示用戶常數
UserForm1.Show
結束子
如果想要在關閉用戶基線后，工作簿也一起關閉，那么在用戶細分的關閉事件中，添加以下的代碼：
私有子UserForm_QueryClose（取消AsInteger，CloseMode為整數）
此工作簿。關閉
結束子
在關閉用戶細分時， Excel 會提示用戶是否保存對工作簿的修改，依次為“是”保存工作簿并退出。
如果要在關閉用戶預定時時自動保存工作簿，那么在用戶預定的關閉事件中，添加以下的代碼：
私有子UserForm_QueryClose（取消AsInteger，CloseMode為整數）
ThisWorkbook.Close保存更改：= True
結束子
事實2：打開工作簿后，該工作簿被徹底隱藏，只顯示用戶分區。此時，可以將用戶重定向到用戶輸入輸入界面，工作簿以存儲和處理數據的平臺。
私人子Workbook_Open（）
‘ 隱藏工作簿
Application.Visible = False
‘ 顯示用戶常數
UserForm1.Show
結束子
此時， Excel 將在運行，要退出這個 Excel 應用程序，必須結束其進程。
事實3：打開工作簿后，工作表均隱藏，但仍顯示 Excel程序界面，并顯示用戶細分。
私人子Workbook_Open（）
Workbooks（“ Sample1.xls”）。Windows（1）.Visible = False
UserForm1.Show
結束子
此時，用戶平均值中的“保存”按鈕的代碼最好修改如下：
私人子CommandButton1_Click（）
迪米·阿朗
Workbooks（“ Sample1.xls”）。Windows（1）.Visible = True
i = Workbooks（“ Sample1.xls”）。Worksheets（“ Sheet1”）。Range（“ A”＆Rows.Count）.End（xlUp）.Row
IfRange（“ A1”）=“”然后
Range（“ A1”）= TextBox1.Text
其他
我=我+ 1
Range（“ A”＆i）= TextBox1.Text
萬一
Workbooks（“ Sample1.xls”）。Windows（1）.Visible = False
TextBox1.Text =“”
TextBox1.SetFocus
結束
