[求助]在设置窗体时，如何隐藏×关闭按钮？

yy6831817

如题

[此贴子已经被作者于2008-3-28 20:03:46编辑过]

wanter1980

建议使用关闭事件

yy6831817

我在开机时是：

Private Sub Workbook_Open()
    Application.Visible = False
   登入.Show
   End Sub

关闭：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Visible = True
End Sub

不知道那不对？？按登入窗口--《×》关闭按时可以关闭，可是再双击这个文件时，会出现“文件已打开。重新执行打开操作会造成前面所做的更改被放弃,是否重新打开"。我把Application.Visible = True改成ThisWorkbook.Close False还是不行？不知如何更改？？？？

wanter1980

不能使用这个语句：application.visible=false

这个语句是在你打开后，把工作簿的可视性设置为不可视，并没有关闭工作簿，所以提示已打开

建议你要"登入"窗体的关闭事件中写上 application.visible=true,这样才能改回可视属性

yy6831817

谢谢，我是用于登入文件窗口的，前面

Private Sub Workbook_Open()
    Application.Visible = False
   登入.Show
   End Sub

把工作簿设置为不可视没有错，就是在关闭事件中不知错在那？

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close False

End Sub

文件打开登入窗口就会被认为已更改。。所以会出现“文件已打开。重新执行打开操作会造成前面所做的更改被放弃,是否重新打开"。

yclotus

一、在窗体中加入以下代码，让按X失效

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cancel = False Then Cancel = True
End Sub

二、在窗体的[退出]按钮执行以下代码

Private Sub CmdQuit_Click()
If MsgBox("是否确认退出XX管理系统?", vbOKCancel + vbInformation, Msgts) = vbOK Then
  If Workbooks.Count > 1 Then
    Workbooks("test.xls").Close savechanges:=False '有其他工作簿存在时
  Else
    ThisWorkbook.Saved = True
    Application.Quit
  End If
End If
End Sub

上述代码可以根据设计需要和个人口味自行更改。。。

[此贴子已经被作者于2008-3-28 23:08:17编辑过]

wanter1980

QUOTE:

以下是引用yy6831817在2008-3-28 23:00:56的发言：
谢谢，我是用于登入文件窗口的，前面

Private Sub Workbook_Open()
    Application.Visible = False
   登入.Show
   End Sub

把工作簿设置为不可视没有错，就是在关闭事件中不知错在那？

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close False

End Sub

文件打开登入窗口就会被认为已更改。。所以会出现“文件已打开。重新执行打开操作会造成前面所做的更改被放弃,是否重新打开"。

     对啊，你关了“登入”窗体，但实际上并没有关闭整个工作簿，因为这个时候你的工作簿只是不可见的而已，所以在“登入”窗体的关闭事件中要设置一下工作簿的可视属性。如果没有理解的话，建议你上传文件

[此贴子已经被作者于2008-3-28 23:09:57编辑过]

yy6831817

谢谢俩位

让按X失效。。。现在可以了

yy6831817

大侠现在按X是失效。。。可是进入后窗体没有关掉？？？还是不行？

我用的是这个代码：

Private Sub Workbook_Open()
    Application.Visible = False
   登入.Show
End Sub

*********************************

窗体代码：

Private Sub CommandButton1_Click()
If TextBox1.Value = "333" And TextBox2.Value = "123" Then
    Unload Me
Else
    MsgBox "    密码错误"
   ThisWorkbook.Close False
End If
Application.Visible = True
End Sub

---------

Private Sub CommandButton2_Click()
ThisWorkbook.Close False
End Sub

------------

Private Sub TextBox1_Change()

End Sub

-----------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cancel = False Then Cancel = True
End Sub

如何关掉窗体？？代码？？

[此贴子已经被作者于2008-3-28 23:30:07编辑过]

yy6831817

可以了

End If
Application.Visible = True

加个End
End Sub