如何在打開工作簿后只顯示用戶細分？

如何在打開工作簿后只顯示用戶細分？

問：如何通過一個用戶補充錄入數據，但是我又不想有人看到整個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

結束

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。