首页 > Excel专区 > Excel教程 >

如何在打开工作簿后只显示用户细分?

Excel教程 2022-01-03 21:01:27

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

结束


标签: Excel常用函数excel常见问题excel技巧excel教程

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.