Viết bởi: Noname 30-12-11, 05:28 PM Chuyên mục: Ms Excel - Bài trả lời (2) |
Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub
Viết bởi: darkmoon 30-12-11, 02:15 PM Chuyên mục: Query - Bài trả lời (2) |
SELECT Left(tblSoDuTaiKhoan.MaTaiKhoan,Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1) AS MaTaiKhoan, Sum(tblSoDuTaiKhoan.DuNo) AS DuNo
FROM tblSoDuTaiKhoan
GROUP BY Left([tblSoDuTaiKhoan].[MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1), Len([tblSoDuTaiKhoan].[MaTaiKhoan])
HAVING (((Left([tblSoDuTaiKhoan].[MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1))=Left([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1)) AND ((Len([tblSoDuTaiKhoan].[MaTaiKhoan]))>Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1));
UPDATE tblSoDuTaiKhoan INNER JOIN Query1 ON tblSoDuTaiKhoan.MaTaiKhoan=Query1.MaTaiKhoan SET tblSoDuTaiKhoan.DuNo = Query1.DuNo;
Viết bởi: pmtandhqn 30-12-11, 11:58 AM Chuyên mục: Query - Bài trả lời (2) |
Viết bởi: darkmoon 30-12-11, 10:05 AM Chuyên mục: Forms - Bài trả lời (7) |
Viết bởi: xiketuan 29-12-11, 06:12 PM Chuyên mục: Query - Bài trả lời (3) |
Chủ đề Mới nhất |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,857 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,772 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-11-04-24, 06:04 PM- » Bài trả lời: 2- » Lượt xem: 38 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 71 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 488 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: recca123-07-04-24, 11:27 PM- » Bài trả lời: 38- » Lượt xem: 1,500 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 66 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 44 |
Thơ con cóc -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Xuân Thanh-01-04-24, 06:45 PM- » Bài trả lời: 111- » Lượt xem: 59,092 |
Xin các bác một chương tr... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: ongke0711-30-03-24, 02:57 AM- » Bài trả lời: 2- » Lượt xem: 49 |
Diễn đàn Thống kê |
» Thành viên: 4,456 » Thành viên mới nhất: amacdonea » Các chủ đề diễn đàn: 9,856 » Các bài viết diễn: 48,435 Thống kê đầy đủ |