Ẩn sheet, tạo lớp không được (2 người xem)

[maiemveanhnhe]

File em đã đính kèm. Mong nhận được sự giúp đở từ các anh, chị. Em cảm ơn rất nhiều

 

[huuthang_bd]

File em đã đính kèm. Mong nhận được sự giúp đở từ các anh, chị. Em cảm ơn rất nhiều

Do sheet1 bị ẩn nên dòng lệnh copy sheet1 bị lỗi. Sửa lại như thế này đi:

Private Sub CmdTao_Click()
Application.ScreenUpdating = False
    Dim eRow As Long, ShVisible As Long
    On Error GoTo BaoLoi
    ShVisible = Sheet1.Visible
    Sheet1.Visible = -1
    Sheet1.Copy after:=Sheets(Sheets.Count)
    Sheet1.Visible = ShVisible
    ActiveSheet.Name = TxtLop
    ActiveSheet.Unprotect "GPE"
    Sheets("th").Unprotect "canthoq"
    ActiveSheet.[B3] = TxtLop
    eRow = Sheet6.[B1000].End(xlUp).Offset(1).Row
  If eRow < 15 Then eRow = 15
  Sheet6.Range("B" & eRow) = TxtLop
    ActiveSheet.[D3].Clear
    ActiveSheet.Protect "GPE"
    Sheets("th").Protect "canthoq"
    TxtLop = ""
    TxtLop.SetFocus
    Application.ScreenUpdating = True
    Exit Sub
BaoLoi:
    MsgBox "Chua nhap ten Sheet, ten Sheet khong hop le hoac da ton tai."
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    TxtLop = ""
    TxtLop.SetFocus
    Application.ScreenUpdating = True
End Sub

 

[maiemveanhnhe]

Khi đưa vào file của em nó vẫn báo lỗi ngay chổ này he anh ActiveSheet.Delete. Anh cho em gmail. hay yahoo đi, em gữi file cho anh, anh giúp dùm em nhé anh. cảm ơn anh

 

[huuthang_bd]

Khi đưa vào file của em nó vẫn báo lỗi ngay chổ này he anh ActiveSheet.Delete. Anh cho em gmail. hay yahoo đi, em gữi file cho anh, anh giúp dùm em nhé anh. cảm ơn anh

Lỗi là lỗi thế nào? File cũ của bạn đây, bạn tự kiểm tra lại đi.

 

[nmhung49]

Cái này mình thấy bạn hỏi nhiều rồi mà cũng có nhiều người trả lời rồi mà. Mà bạn muốn giấu sheet làm chi, nếu muốn thì làm cho bạn luôn

 

[maiemveanhnhe]

Cảm ơn anh chị, em làm được rồi, cảm ơn rất rất nhiều, hôm nào mình đi Cafe đi nha anh, chị. Mời Ndu, nghiaphuc,viehoai. đi chung cho vui. Em bảo kê hết.