Trợ giúp xóa userform để không bị lỗi

Liên hệ QC

GTK-PM

Thành viên thường trực
Tham gia
10/11/13
Bài viết
313
Được thích
15
Nhờ anh chị trợ giúp trong file em có sử dụng 2 đoạn code để thông báo cho userform bên dưới, khi em tiến hành thao tác xóa đoạn code trong Thisworkbook và remove userform thông báo thì trang tính không thể mở lên được mà chỉ hiện màn hình trắng, em cũng đã thử dùng máy khác xóa đi và cũng bị lỗi tương tự. Rất mong anh chị cho em giải pháp ạ.
Mã:
Private Sub Workbook_Open()
thongbao.Show
Application.ScreenUpdating = False
End Sub

Mã:
Private Sub cmdLogOn_Click()
Application.ScreenUpdating = Flase
Unload Me
Application.Visible = True
Application.ScreenUpdating = True
End Sub
 

File đính kèm

  • STD (2).xlsm
    73.3 KB · Đọc: 7
  • 1.jpg
    1.jpg
    90.4 KB · Đọc: 2
Lần chỉnh sửa cuối:
Có 2 cách:
- Thường thì bấm phím Shift + Open sẽ mở thẳng vô file luôn.
- File có 1 module tự chạy là sub autoOpen ở module 3: vô đó vô hiệu hoá dòng Thisworkbook.Close là được rồi.
 
Upvote 0
Web KT
Back
Top Bottom