[حل شده] عدم نمایش تب در multipage

[ms2125]

سلام اساتید محترم من یک فرم ساختم با مولتی پیج داری چند تب هست میخوام اون سربرگ بالای مولتی پج مخفی باشه و فقط با کلید بین تب ها حابجا بشم
اگه راهی داره لطفا کد vba
ممنون

[generalsamad]

با سلام
این کد رو امتحان کنید

Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #End If
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Public Sub RemoveCloseButton(frm As Object)
    #If VBA7 Then
        Dim lStyle As LongPtr, lFrmHandle As LongPtr
    #Else
        Dim lStyle As Long, lFrmHandle As Long
    #End If
    lFrmHandle = FindWindow("ThunderDFrame", frm.Caption)
    lStyle = GetWindowLong(lFrmHandle, GWL_STYLE)
    lStyle = lStyle And Not WS_SYSMENU
    SetWindowLong lFrmHandle, GWL_STYLE, lStyle
End Sub 

سپس در رویداد فرمتون کد را صدا بزنید

Private Sub UserForm_Initialize()
    RemoveCloseButton Me
End Sub 

Caption یوزرفرم هم میتونید پاک کنید

[ms2125]

با سلام
این کد رو امتحان کنید

Private Const GWL_STYLE As Long = -16
Private Const WS_SYSMENU As Long = &H80000
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #End If
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Public Sub RemoveCloseButton(frm As Object)
    #If VBA7 Then
        Dim lStyle As LongPtr, lFrmHandle As LongPtr
    #Else
        Dim lStyle As Long, lFrmHandle As Long
    #End If
    lFrmHandle = FindWindow("ThunderDFrame", frm.Caption)
    lStyle = GetWindowLong(lFrmHandle, GWL_STYLE)
    lStyle = lStyle And Not WS_SYSMENU
    SetWindowLong lFrmHandle, GWL_STYLE, lStyle
End Sub 

سپس در رویداد فرمتون کد را صدا بزنید

Private Sub UserForm_Initialize()
    RemoveCloseButton Me
End Sub 

Caption یوزرفرم هم میتونید پاک کنید

ممنون caption پاک کردم خیلی کوچک شد کلا پک نشد
در ضمن این کدی هم دادین من متوجه نشدم چی هست کجا بزنم

[generalsamad]

فایل ضمیمه را مشاهده کنید
ببینید همین مد نظرتون هست
فایل ضمیمه گردید

[ms2125]

این فایل مربوط به پاک کردن دکمه کلوز هست نه مخفی کردن تب multipage درضمن من به دلیلی از اکسل 2007 استفاده میکنم احتمال اینکه ماژول کار نکنه

[generalsamad]

منظورتون از مخفی کردن تب چی هست؟
تو فایل ضمیمه ای که قرار دادم میتونید توضیح بدید یا فایلی ضمیمه کنید و درخواستتون را توضیح دهید

[ms2125]

منظورتون از مخفی کردن تب چی هست؟
تو فایل ضمیمه ای که قرار دادم میتونید توضیح بدید یا فایلی ضمیمه کنید و درخواستتون را توضیح دهید

بطور مثال نمونه که لطف کردید دوتا تب داره با عنوان main و insert میخوام این دوتا تب مخفی باشن بجاش دوتا دکمه ایجاد کنم بطور مثال بنام main و insert که با دکمه به هر تب خواستم برم
بطور ساده تر تب وجود داشته باشه ولی اون سربرگ بالا نمایش نده

[generalsamad]

این فایل رو مشاهده کنید ببینید همین مد نظر هست؟
فایل ضمیمه گردید

[ms2125]

این فایل رو مشاهده کنید ببینید همین مد نظر هست؟
فایل ضمیمه گردید

ممنون این درسته