我有3本工作簿。 A,B和C.
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又被隐藏了。