关于用户窗体屏蔽显示和去除标题栏的问题，求大神指点！！！

VBA如何在某个工作表中屏蔽指定的用户窗体，例如：让Userform1,在Sheet4中不显示（Userform1默认的设置是在所有的工作表中显示的）求大神告知代码，另求教：如何完美去掉用户窗体的标题栏？

代码写到各个工作表
工作薄的代码就不要了
比如你选择当工作表被激活时就显示窗体

南京泽立裕生物科技

pdf excel在线转换，支持word、ppt、excel等常见文档格式互转。无需下载安装，上传文件后即可转换成功，在线操作，方便快捷

2025-01-03 03:33广告

立即查看

不用改代码,
工作表选Activate
直接把Thisworkbook里面的内容去掉头尾粘过去

谢谢大神指点，一会去看看，还有去除用户窗口标题栏大神有无方法啊？

@凝聚每分爱
显示错误424
Private Sub Worksheet_Activate()
If Sheet.Name <> "sheet4" Then
UserForm.Visible = False
Else
UserForm.Visible = True
End If
End Sub

用api函数设置还是挺正常的
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hwnd As Long
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Const SW_HIDE As Long = 0, SW_SHOW As Long = 5
If Sh Is Sheet4 Then
hwnd = FindWindow("ThunderDFrame", UserForm1.Caption)
If hwnd > 0 Then
'UserForm1.Visible = False
ShowWindow hwnd, SW_HIDE
End If
ElseIf hwnd > 0 Then
'UserForm1.Visible = True
ShowWindow hwnd, SW_SHOW
hwnd = 0
End If
End Sub
只是如果用UserForm1.Visible = True
就会这样

你自己试试你电脑会不会这样，按理来讲应该是可以的

@凝聚每分爱
我用2个启动激活达到了我想要的效果了,就是
@有斐君子不可喧
大神告诉的2个,我在需要显示的工作表里添加:
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
在不需要的工作表中添加:
Private Sub Worksheet_Activate()
Unload UserForm1
End Sub

我现在想请教你@凝聚每分爱 :用api函数去除标题栏,我找到的代码是这样的:
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Sub UserForm_Initialize()
Dim IStyle As Long
Dim Hwnd As Long
If Val(Application.Version) < 9 Then
Hwnd = FindWindow("ThunderXFrame", Me.Caption)
Else
Hwnd = FindWindow("ThunderDFrame", Me.Caption)
End If
IStyle = GetWindowLong(Hwnd, GWL_STYLE)
IStyle = IStyle And Not WS_CAPTION
SetWindowLong Hwnd, GWL_STYLE, IStyle
DrawMenuBar Hwnd
IStyle = GetWindowLong(Hwnd, GWL_EXSTYLE) And Not WS_EX_DLGMODALFRAME
SetWindowLong Hwnd, GWL_EXSTYLE, IStyle
End Sub
但效果不尽人意啊!你看无用的外框反而变多了是怎么回事啊?函数不对吗?

如何才能完美去除标题栏啊??
@凝聚每分爱
@有斐君子不可喧

莆田市荔城区月飞翔网络..

实时协作，并设置文档访问、编辑权限。轻松实现高效协作，立即下载全新一代电脑怎么正确下载excel，支持多人在线协同办公，

2025-01-03 03:33广告

立即查看

或者你改成这样试试
Private Sub UserForm_Initialize()
Dim IStyle As Long
Dim Hwnd As Long
Application.Visible = False
If Val(Application.Version) < 9 Then
Hwnd = FindWindow("ThunderXFrame", Me.Caption)
Else
Hwnd = FindWindow("ThunderDFrame", Me.Caption)
End If
SetWindowLong Hwnd, GWL_STYLE, GetWindowLong(Hwnd, GWL_STYLE) And Not WS_CAPTION
SetWindowPos Hwnd, 0, 0, 0, 0, 0, 1 Or 2 Or 4 Or &H20
'SetWindowPos(hwnd, NULL, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE | SWP_NOZORDER | SWP_DRAWFRAME);
End Sub

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
SetWindowPos 函数的声明

Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Sub UserForm_Initialize()
Dim IStyle As Long
Dim Hwnd As Long
Application.Visible = False
If Val(Application.Version) < 9 Then
Hwnd = FindWindow("ThunderXFrame", Me.Caption)
Else
Hwnd = FindWindow("ThunderDFrame", Me.Caption)
End If
SetWindowLong Hwnd, GWL_STYLE, GetWindowLong(Hwnd, GWL_STYLE) And Not WS_CAPTION
SetWindowPos Hwnd, 0, 0, 0, 0, 0, 1 Or 2 Or 4 Or &H20
'SetWindowPos(hwnd, NULL, 0, 0, 0, 0, SWP_NOSIZE | SWP_NOMOVE | SWP_NOZORDER | SWP_DRAWFRAME);
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

26回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六