Ấn nút tạo lớp thì hiển thị tên lớp mới tại Sheetth

[canthoq]

Câu hỏi của em nằm trong file. Mong nhận được sự giúp đở của các bác. Trân thành cảm ơn các bác trước

 

[nghiaphuc]

Câu hỏi của em nằm trong file. Mong nhận được sự giúp đở của các bác. Trân thành cảm ơn các bác trước

Đồng chí này lần nào cũng gõ sai chính tả, "chân thành" chứ không phải "trân thành" đâu.
Bạn sửa lại code như sau (chú ý vị trí màu đỏ):

Private Sub CmdTao_Click()
    [COLOR=red]Dim eRow As Long[/COLOR]
    On Error GoTo BaoLoi
    Sheet1.Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = TxtLop
    ActiveSheet.[B3] = TxtLop
    [COLOR=red]eRow = Sheet6.[B1000].End(xlUp).Offset(1).Row[/COLOR]
[COLOR=red]  If eRow < 15 Then eRow = 15[/COLOR]
[COLOR=red]  Sheet6.Range("B" & eRow) = TxtLop[/COLOR]
    ActiveSheet.[D3].Clear
    TxtLop = ""
    TxtLop.SetFocus
    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
End Sub

 

[canthoq]

Cho em hỏi. Khi khóa sheet lại làm sao code chạy được vậy các bác.

 

[canthoq]

Rất chân thành cảm ơn anh Nghiaphuc giúp đở em rất nhiều. Tuy nhiên có 1 vấn đề nữa, khi em khóa sheet lại thì nút tạo lớp không thực hiện được. Mong nhận được sự giúp đở của các bác, 1 lần nữa xin cảm ơn rất nhiều sự đóng góp của các bác. Mật khẩu của sheet là n.

 

[nmhung49]

Bạn thêm 2 dòng này vào sub tạo là được tại vì sheet đã bị khóa nên code chạy không được muốn chạy bạn phải mở khóa ra mới được

Private Sub CmdTao_Click()
    Dim eRow As Long
    On Error GoTo BaoLoi
    Sheet6.Unprotect ("n")
   ......
    sheet6.protect("n")
End Sub

 

[canthoq]

Trước hết cảm ơn bạn rất nhiều, mình đã tạo thêm lớp được rồi, tuy nhiên lại thêm vấn đề khác nữa, ý mình muốn khi tạo thêm lớp mới thì lại khóa sheet lớp mới vừa tạo luôn. Mong nhận được sự giúp đở từ các bác, cảm ơn rất nhiều

 

[nghiaphuc]

Trước hết cảm ơn bạn rất nhiều, mình đã tạo thêm lớp được rồi, tuy nhiên lại thêm vấn đề khác nữa, ý mình muốn khi tạo thêm lớp mới thì lại khóa sheet lớp mới vừa tạo luôn. Mong nhận được sự giúp đở từ các bác, cảm ơn rất nhiều

Ủa, tạo lớp mới rồi khóa nó lại luôn thì tạo làm gì vậy, trong khi một số thông tin cần thiết phải có ở đó chưa được nhập?
Để khóa sheet mới tạo thì bạn thêm câu ActiveSheet.Protect "GPE" vào sau câu ActiveSheet.[D3].Clear

 

[canthoq]

Khi khóa sheet. em chừa 1 số ô để nhập thông tin cần thiết vào. Cảm ơn anh rất rất nhiều. Để em làm thử xem. có gì rất mong gặp lại anh. Em cảm ơn anh nhiều lắm.

 

[canthoq]

Em thêm như gì sau không đúng hé anh PHUC
Option Explicit
Private Sub CmdDong_Click()
Unload Me
End Sub
Private Sub CmdTao_Click()
Dim eRow As Long
On Error GoTo BaoLoi
Sheet1.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = TxtLop
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"
TxtLop = ""
TxtLop.SetFocus
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
End Sub
Private Sub CmdThoat_Click()
End
End Sub
Mog anh xem lại dùm em. Cảm ơn anh nhiều

 

[nghiaphuc]

Em thêm như gì sau không đúng hé anh PHUC
......
Mog anh xem lại dùm em. Cảm ơn anh nhiều

Bạn cứ chạy thử xem có đúng ý không là được chứ có gì đâu.

 

[canthoq]

Em chạy rồi mà sao báo lổi vậy hé anh phúc

 

[nghiaphuc]

Em chạy rồi mà sao báo lổi View attachment 61263vậy hé anh phúc

Lý do là sheet 6a1 của bạn đã bị khóa. Bạn thêm câu lệnh ActiveSheet.Unprotect "GPE" vào trước câu lệnh ActiveSheet.[B3] = TxtLop. Password GPE là mình đưa ra làm ví dụ thôi, bạn thay đổi cho phù hợp với thực tế nhé.

 

[canthoq]

Em làm được rồi anh phúc ơi. Cảm ơn anh nhiều lắm. Chúc anh vui vẽ. àh anh phúc có gmail cho em xin đi anh phúc, có gì em trao đổi với anh được không anh phúc. Ccảm ơn anh trước

 

[nghiaphuc]

Em làm được rồi anh phúc ơi. Cảm ơn anh nhiều lắm. Chúc anh vui vẽ. àh anh phúc có gmail cho em xin đi anh phúc, có gì em trao đổi với anh được không anh phúc. Ccảm ơn anh trước

Với bất kỳ thành viên nào, bạn chỉ cần click vào tên nick, sẽ có 1 menu hiện ra, trong đó có lệnh Gửi e-mail. Bạn chọn lệnh này sẽ biết địa chỉ Email của thành viên đó.
Email của mình là: bluecactus_ayhs@yahoo.com