问：
问：如何通过一个用户补充录入数据，但是我又不想有人看到整个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
结束
