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

结束

阅读全文