excel 去工作表叉代码 一般写在Private Sub Workbook_Open()
就是工作表菜单上那个关闭按钮
*/////////////////////
Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_SETICON = &H80
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Sub 去叉()
Dim hMenu As Long, MF_BYCOMMAND
hMenu = GetSystemMenu(FindWindow("XLMAIN", Application.Caption), 0)
RemoveMenu hMenu, &HF060, MF_BYCOMMAND
End Sub

嘿嘿怎么还原呢?
hMenu = GetSystemMenu(FindWindow("XLMAIN", Application.Caption), 1)
把0改1 就好了