nokiano258vn
Thành viên lười biếng
- Tham gia
- 28/8/07
- Bài viết
- 268
- Được thích
- 277
- Nghề nghiệp
- Bồi thường giải phóng mặt bằng
File kế toán tôi tải ở diễn đàn về, mang sang máy khác thì bị báo lỗi như sau (file đính kèm) và hiện đoạn code sau:
Máy ở nhà dùng WinXP thì chạy bình thường, nhưng chuyển sang WinVista thì cũng bị lỗi tương tự
PHP:
Sub DeleteMenu()
' This sub should be executed when the workbook is closed'
' Deletes the Menus'
Dim MenuSheet As Worksheet
Dim Row As Integer
Dim Caption As String
Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name And Left(wb.Name, 9) = "KeToanABC" Then Exit Sub
Next
On Error Resume Next
Set MenuSheet = ThisWorkbook.Sheets("MenuSheet")
Row = 2
Do Until IsEmpty(MenuSheet.Cells(Row, 1))
If MenuSheet.Cells(Row, 1) = 1 Then
Caption = MenuSheet.Cells(Row, 2)
Application.CommandBars(1).Controls(Caption).Delete
End If
Row = Row + 1
Loop
On Error GoTo 0
End Sub
