Deshabilitar (X) cerrar Excel
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
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim modificando
__________________________________________________________________________
Private Sub CommandButton1_Click()
' Por DAM
If MsgBox("Desea ingresar el ajuste?", _
vbYesNo + vbQuestion, "Ingreso de Ajuste") = vbNo Then Exit Sub
ult = Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja2").Select
Sheets("Hoja2").Cells(ult, "A") = ComboBox1
Sheets("Hoja2").Cells(ult, "B") = ComboBox2
Sheets("Hoja2").Cells(ult, "C") = TextBox1
Sheets("Hoja2").Cells(ult, "D") = TextBox2
Sheets("Hoja2").Cells(ult, "E") = TextBox3
Sheets("Hoja2").Cells(ult, "F") = TextBox4
Sheets("Hoja2").Cells(ult, "G") = TextBox5
Sheets("Hoja2").Cells(ult, "H") = TextBox6
Sheets("Hoja2").Cells(ult, "I") = TextBox7
Sheets("Hoja2").Cells(ult, "J") = TextBox9
Sheets("Hoja2").Cells(ult, "K") = TextBox8
Mira
quedo asi pero le doy en la X y sigue Cerrando
1 Respuesta
Perdona, tienes que agregar esto a tu formulario, recuerda poner el botón de salida,
Private Sub UserForm_Initialize()
Dim lStyle As Long, hMenu As Long, mhWndForm As Long
mhWndForm = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
Me.Height = Me.Height - 18
End Sub
