当我关闭另一个工作簿时,工作簿变得隐藏

时间:2017-06-30 15:34:04

标签: excel-vba vba excel

我有3本工作簿。 A,B和C.

  • 工作簿A中有一个超链接,用于打开B.
  • C只是在后台打开。
  • B有一个宏,当文件打开时会打开一个用户窗体。

userform有两个按钮。一个是"Okay",它将数据放入电子表格中。另一个是"Save and close"执行相同的操作,但也保存并关闭工作簿。

如果我从文件资源管理器中打开B,一切正常。但是,如果我使用A中的超链接打开B,并点击"保存并关闭"按钮,代码工作,但随后工作簿C变得隐藏。 C与A或B无关。

知道为什么以及如何防止这种情况?

Private Sub Workbook_Open()

Sheets("Weekly Update").Select
Range("a5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
UserForm1.Show

End Sub
"保存并关闭"

用户形式代码按钮

Private Sub CommandButton3_Click()

r = ActiveCell.Row
Cells(r, 1) = TextBox5.Value
Cells(r, 3) = TextBox3.Value
Cells(r, 5) = TextBox4.Value
Cells(r, 7) = TextBox1.Value
Worksheets("Program Financials").Range("F3").Value = UserForm1.TextBox6.Value
Worksheets("Program Schedule").Range("F3").Value = UserForm1.TextBox7.Value
Me.Hide
'okay button code ends here
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

另外,从userform B我尝试调用A中的sub来接近B,然后再次起作用,然而C又被隐藏了。

0 个答案:

没有答案