問：如何通過一個用戶補充錄入數(shù)據(jù)，但是我又不想有人看到整個Excel 工作薄。簡單的說，就是打開某個Excel 文件之后，我只看到一個用戶允許，然后我就通過該用戶合并錄入數(shù)據(jù)，保存之后，所輸入的數(shù)據(jù)就存在E xcel 文件里。
答：下面是詳細的實現(xiàn)過程。
首先，準確一個用戶慣例。
在 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
結(jié)束子
說明：
代碼在工作表 Sheet1 的列 A 中依次放置文本并輸入的數(shù)據(jù)。
接著，在工作簿W(wǎng)orkbook_Open事件中編寫代碼。這樣，在打開工作簿時，會自動執(zhí)行Workbook_Open事件中的代碼。
事實1：打開工作簿后，將工作簿界面最小化，只顯示用戶細分。
私人子Workbook_Open（）
‘ 最小化窗戶
Application.WindowState = xl最小化
‘ 顯示用戶常數(shù)
UserForm1.Show
結(jié)束子
如果想要在關(guān)閉用戶基線后，工作簿也一起關(guān)閉，那么在用戶細分的關(guān)閉事件中，添加以下的代碼：
私有子UserForm_QueryClose（取消AsInteger，CloseMode為整數(shù)）
此工作簿。關(guān)閉
結(jié)束子
在關(guān)閉用戶細分時， Excel 會提示用戶是否保存對工作簿的修改，依次為“是”保存工作簿并退出。
如果要在關(guān)閉用戶預(yù)定時時自動保存工作簿，那么在用戶預(yù)定的關(guān)閉事件中，添加以下的代碼：
私有子UserForm_QueryClose（取消AsInteger，CloseMode為整數(shù)）
ThisWorkbook.Close保存更改：= True
結(jié)束子
事實2：打開工作簿后，該工作簿被徹底隱藏，只顯示用戶分區(qū)。此時，可以將用戶重定向到用戶輸入輸入界面，工作簿以存儲和處理數(shù)據(jù)的平臺。
私人子Workbook_Open（）
‘ 隱藏工作簿
Application.Visible = False
‘ 顯示用戶常數(shù)
UserForm1.Show
結(jié)束子
此時， Excel 將在運行，要退出這個 Excel 應(yīng)用程序，必須結(jié)束其進程。
事實3：打開工作簿后，工作表均隱藏，但仍顯示 Excel程序界面，并顯示用戶細分。
私人子Workbook_Open（）
Workbooks（“ Sample1.xls”）。Windows（1）.Visible = False
UserForm1.Show
結(jié)束子
此時，用戶平均值中的“保存”按鈕的代碼最好修改如下：
私人子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
結(jié)束
