Vba hỏi mật khẩu khi xóa dữ liệu ở nhiều sheet!

[nguyenhoangnhi]

Anh chị nào rành VBA thì chỉ cho em chiêu này với ạ!
Em muốn dùng vba tạo CommandButton_ kích là có thể xóa dữ liệu của vùng cần chọn ở nhiều Sheet khác nhau.
chỉ cần kích vào nút lệnh này thì sẽ xuất hiện 1 Use from hỏi mật khẩu và gõ mật khẩu vào thì sẽ tự động clear vùng dữ liệu liệu mình cần chọn ở nhiều sheet khác nhau.

Anh chị nào rành thì bớt chút thời gian tạo cho em xin một ví dụ nhé!
Em vô cùng cảm ơn!

 

[dhn46]

Bạn thử cái này nha! (có thể giữ phím Ctrl để chọn nhiều vùng)

 

[nguyenhoangnhi]

Bạn thử cái này nha! (có thể giữ phím Ctrl để chọn nhiều vùng)

em cảm ơn anh nhiều! file anh vừa gừi cũng gần sát với vấn đề em hỏi em hỏi.
Ý của em là giả sử: em muốn xóa dữ liệu từ sheet 2 đến sheet 10 vùng A1:H10
và chỉ cần một cái kích chuột vào CommandButton_ kích nằm ở sheet 1 là dữ liệu sẽ xóa hết toàn bộ vùng đã chọn sẵn khi nhập xong mật khẩu.
Nghĩa là không cần hỏi vùng cần xóa nữa. vì mình mặc định vùng cần xóa từ trước rồi ạ!
chỉ cần kích cái xuất hiện nhập pass rồi OK là xóa dữ liệu!
Anh chỉ thêm cho em với ạ! Em cám ơn anh

 

[dhn46]

Của bạn đây

Sub Button2_Click()


pass = Application.InputBox("Nhap Pass")
    If pass = "123" Then
            For i = 2 To 10
                Sheets(i).Range("a1:a10").ClearContents
            Next
    Else
        MsgBox "Sai mat khau"
    End If
End Sub

 

[nguyenhoangnhi]

Của bạn đây

Sub Button2_Click()


pass = Application.InputBox("Nhap Pass")
    If pass = "123" Then
            For i = 2 To 10
                Sheets(i).Range("a1:a10").ClearContents
            Next
    Else
        MsgBox "Sai mat khau"
    End If
End Sub

[/QUOTE



Quá chuẩn! anh đúng là cao thủ rồi! hi hì. Em cám ơn anh anh rất nhiều!
Anh có thể cho em xin SDT được không? thỉnh thoảng em quấy anh! hì hì!

 

[dhn46]

banj có thắc mắc cứ Post lên diễn đàn. Mình cũng mới tập tành VBA thui, trên đấy có nhiều đại cao thủ lắm. hii. Chúc bạn thành công!

 

[nguyenhoangnhi]

OK. vậy thì anh cho em hỏi thêm một chút nữa nhé!
Anh có biết VBA làm sao để tự động Enable all Marco khi mở file Exekl lên không ạ!
Vì bình thường em gửi file đến 1 máy khác họ không đặt chế độ Enable nên không chạy marcor được.
vì file của em se readonly ra để nhiều máy khác xem ạ!

 

[dhn46]

tool > macro > security > bạn chọn mức LOW nha => OK

 

[nguyenhoangnhi]

Em dùng Exel 2007 cơ ạ!
Và nếu làm như anh nói thì chỉ có máy nào đặt chế độ Low thì mới mở được
còn các máy khác sẽ không mở được vì không đặt low và fair bảo họ cách đặt chế độ đấy sao?
không có cách nào mà máy của họ mở file của em ra là tự dộng Enable marco sao?

 

[dhn46]

2007 thì bạn vào trust center, cái này chắc bạn biết làm rùi. Còn VBA thì bắt buộc phải thiết đặt thì mới chạy được. MR Billgate không cho Window tự khởi động nó. hii. Lực bất tòng tâm thui...

 

[PhanTuHuong]

OK. vậy thì anh cho em hỏi thêm một chút nữa nhé!
Anh có biết VBA làm sao để tự động Enable all Marco khi mở file Exekl lên không ạ!
Vì bình thường em gửi file đến 1 máy khác họ không đặt chế độ Enable nên không chạy marcor được.
vì file của em se readonly ra để nhiều máy khác xem ạ!

Chả có cách nào nếu bạn không thiết lập, Excel 2007 có khác so với 2003! Ngoài ra có 1 cách chắc bạn chưa thể nắm được.

 

[nguyenhoangnhi]

Hiện nay em đang gặp vấn đề nan giải thế này ạ!
Em dùng VBA chống Save as từ 2007 sang 2003 để chống chế độ bẻ khoá password.
nhưng nếu máy của họ để ở chế độ Disable All marco thì vba không có tác dụng họ vẫn Save As file sang 2003 để dùng phần mềm bẻ khoá được.
Do vậy em muốn khi họ Open file thì chế độ Enable marco sẽ tự dộng bật để marco chạy được mà không fair hỏi han gì hết.
Hoặc là anh có đoạn mã nào nếu họ không đặt chế độ Enable marco thif không thể mở được file ra không? tự dộng xoá dữ liệu khi không Enable marco.

 

[PhanTuHuong]

Hiện nay em đang gặp vấn đề nan giải thế này ạ!
Em dùng VBA chống Save as từ 2007 sang 2003 để chống chế độ bẻ khoá password.
nhưng nếu máy của họ để ở chế độ Disable All marco thì vba không có tác dụng họ vẫn Save As file sang 2003 để dùng phần mềm bẻ khoá được.
Do vậy em muốn khi họ Open file thì chế độ Enable marco sẽ tự dộng bật để marco chạy được mà không fair hỏi han gì hết.
Hoặc là anh có đoạn mã nào nếu họ không đặt chế độ Enable marco thif không thể mở được file ra không? tự dộng xoá dữ liệu khi không Enable marco.

Sản phẩm của bạn có giá trị thì Ok! Nếu không thì free cho lành nhé ... Tôi chỉ giúp khi sản phẩm có giá trị trí tuệ thôi!

 

[nguyenhoangnhi]

Ôi! Đại cao thủ hội tụ. Em cũng đang có quyển sách lập trình VBA của Phan Tu Huong o ngay trước mắt nhưng mà giáo trình còn hạn hẹp về thông tin quá! Các thầy mở lớp ở đâu vậy cho em theo học với!