DạyhọcIntel.net  

Bộ Giáo dục
Đào tạo

Chương trình dạy học
của Intel tại Việt Nam

Tài liệu
Hướng dẫn Kỹ năng

Viện Nghiên cứu Giáo dục
ĐH Sư Phạm TP. HCM

Intel Teach Elements


Trở lại   DạyhọcIntel.net > Góc tin học - công nghệ > Phần mềm > Tiện ích

Tiện ích Những chương trình tiện ích

Reply
 
Công cụ chủ đề Kiểu hiển thị
Old 05-01-2009, 16:33   #1
quangvanhai
Cao đẳng
Points: 23,939, Level: 47 Points: 23,939, Level: 47 Points: 23,939, Level: 47
Activity: 43% Activity: 43% Activity: 43%
 
Gia nhập: 08-2008
Đơn vị: THPT Số 02 Tư Nghĩa - Quảng Ngãi
Bài viết: 411
Cảm ơn: 375
Được cảm ơn 468 lần trong 234 bài
Bài viết blog: 6
Cool Gỡ bỏ pass trong các sheet của excel

Tôi đang dùng một số file excel để tham khảo công thức trong đó. nhưng hầu hết các file này lại bị khóa sheet. vậy có cách nào gở bỏ pass đo không? xin cảm ơn.
__________________
My blog: http://dayhocblog.wordpress.com
Website: www.quangvanhai.net
quangvanhai is offline   Trả lời kèm trích dẫn
Old 05-01-2009, 18:56   #2
nhatphi
Cao đẳng
Points: 65,941, Level: 79 Points: 65,941, Level: 79 Points: 65,941, Level: 79
Activity: 0% Activity: 0% Activity: 0%
 
nhatphi's Avatar
 
Gia nhập: 08-2008
Đơn vị: Phú Ngọc
Bài viết: 568
Cảm ơn: 338
Được cảm ơn 692 lần trong 348 bài
Mặc định

Thầy tham khảo phần này nhé, chúc vui.http://dayhocintel.org/diendan/forum...er=desc&page=4
__________________
Chợt ngoảnh lại cuộc đời như giấc mộng.
Được mất, bại thành, bỗng chốc hóa hư không.
nhatphi is offline   Trả lời kèm trích dẫn
Đã cảm ơn nhatphi:
Old 05-01-2009, 22:01   #3
quangvanhai
Cao đẳng
Points: 23,939, Level: 47 Points: 23,939, Level: 47 Points: 23,939, Level: 47
Activity: 43% Activity: 43% Activity: 43%
 
Gia nhập: 08-2008
Đơn vị: THPT Số 02 Tư Nghĩa - Quảng Ngãi
Bài viết: 411
Cảm ơn: 375
Được cảm ơn 468 lần trong 234 bài
Bài viết blog: 6
Mặc định

link thầy gởi hình như không đúng thì phải. tôi tìm mãi mà không thấy.
__________________
My blog: http://dayhocblog.wordpress.com
Website: www.quangvanhai.net
quangvanhai is offline   Trả lời kèm trích dẫn
Old 05-01-2009, 22:35   #4
ddd
Trưởng ban HC - QT
Points: 44,753, Level: 65 Points: 44,753, Level: 65 Points: 44,753, Level: 65
Activity: 14% Activity: 14% Activity: 14%
 
ddd's Avatar
 
Gia nhập: 06-2007
Đơn vị: Ngô Quyền Highschool
Bài viết: 1,250
Cảm ơn: 1,772
Được cảm ơn 3,921 lần trong 933 bài
Mặc định

Thầy xem bài này nhé
có cùng công dụng đó
http://dayhocintel.org/diendan/showthread.php?p=34651
__________________
Cuộc đời cần nụ cười của bạn! Hãy mỉm cười đi bạn nhé.
ddd is offline   Trả lời kèm trích dẫn
Đã cảm ơn ddd:
Old 14-01-2009, 08:07   #5
ng.st
Lớp chồi
Points: 5,892, Level: 22 Points: 5,892, Level: 22 Points: 5,892, Level: 22
Activity: 14% Activity: 14% Activity: 14%
 
ng.st's Avatar
 
Gia nhập: 09-2008
Đơn vị: Sóc Trăng
Bài viết: 18
Cảm ơn: 73
Được cảm ơn 28 lần trong 15 bài
Talking Xóa mật khẩu Protect của Excel

Sub PasswordBreaker()

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)
If ActiveSheet.ProtectContents = False Then

ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Sub PasswordBreaker()

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)
If ActiveSheet.ProtectContents = False Then

ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub
>> Thay lam nhu sau:
- Vao Excel, chon lenh Tools/Macro -->Visual Basic Editor
- Kich dup vao ten sheet muon thuc hien
- Paste doan code tren vao man hinh soan thao sau do nhap bieu tuong PLAY de chuong trinh thuc hien.
- Cho trong giay lat, chuong trinh tu do va xoa bo Pass.
ng.st is offline   Trả lời kèm trích dẫn
Đã cảm ơn ng.st:
Old 14-01-2009, 09:10   #6
tktrungkien
Lớp 5
Points: 47,944, Level: 67 Points: 47,944, Level: 67 Points: 47,944, Level: 67
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 10-2008
Đơn vị: THCS Tran Quoc Tuan
Bài viết: 86
Cảm ơn: 24
Được cảm ơn 93 lần trong 48 bài
Mặc định

Cách làm của bạn ng.st tương tự như cách làm của các phần mềm Recovery Password, tức là dùng cách vét cạn. Với các password phức tạp và có độ dài lớn (trên 10 ký tự) thì thời gian dò khó có thể chấp nhận được.
Tuy nhiên cách làm này cũng đáng để học tập.
tktrungkien is offline   Trả lời kèm trích dẫn
Đã cảm ơn tktrungkien:
Old 14-01-2009, 10:42   #7
gdtue
Lớp 12
Points: 6,199, Level: 23 Points: 6,199, Level: 23 Points: 6,199, Level: 23
Activity: 14% Activity: 14% Activity: 14%
 
gdtue's Avatar
 
Gia nhập: 12-2008
Đơn vị: THCS Lai Hung - BC - Bình Dương
Bài viết: 350
Cảm ơn: 489
Được cảm ơn 491 lần trong 272 bài
Mặc định Password cho excel

Thay vao trang web straxx sao do chon muc password cho excel roi sau do thuc hien theo huong dan la duoc.
gdtue is offline   Trả lời kèm trích dẫn
Đã cảm ơn gdtue:
Old 14-01-2009, 21:00   #8
haquocvan
Lớp 3
Points: 9,645, Level: 29 Points: 9,645, Level: 29 Points: 9,645, Level: 29
Activity: 0% Activity: 0% Activity: 0%
 
haquocvan's Avatar
 
Gia nhập: 02-2008
Đơn vị: THPT Nguyễn Huệ
Bài viết: 61
Cảm ơn: 41
Được cảm ơn 90 lần trong 34 bài
Mặc định

Trích dẫn:
Nguyên bản bởi ng.st Xem bài viết
Sub PasswordBreaker()

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)
If ActiveSheet.ProtectContents = False Then

ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Sub PasswordBreaker()

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)
If ActiveSheet.ProtectContents = False Then

ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub
>> Thay lam nhu sau:
- Vao Excel, chon lenh Tools/Macro -->Visual Basic Editor
- Kich dup vao ten sheet muon thuc hien
- Paste doan code tren vao man hinh soan thao sau do nhap bieu tuong PLAY de chuong trinh thuc hien.
- Cho trong giay lat, chuong trinh tu do va xoa bo Pass.
Nếu file có đặt pass cho VBA thì cách trên không dùng được, muốn dùng phải xoá pass của VBA trước.
haquocvan is offline   Trả lời kèm trích dẫn
Đã cảm ơn haquocvan:
Old 15-01-2009, 09:10   #9
nhatphi
Cao đẳng
Points: 65,941, Level: 79 Points: 65,941, Level: 79 Points: 65,941, Level: 79
Activity: 0% Activity: 0% Activity: 0%
 
nhatphi's Avatar
 
Gia nhập: 08-2008
Đơn vị: Phú Ngọc
Bài viết: 568
Cảm ơn: 338
Được cảm ơn 692 lần trong 348 bài
Mặc định

Trích dẫn:
Nguyên bản bởi quangvanhai Xem bài viết
link thầy gởi hình như không đúng thì phải. tôi tìm mãi mà không thấy.
gởi lại cho thầy nè.http://dayhocintel.org/diendan/showthread.php?t=8331
__________________
Chợt ngoảnh lại cuộc đời như giấc mộng.
Được mất, bại thành, bỗng chốc hóa hư không.
nhatphi is offline   Trả lời kèm trích dẫn
Đã cảm ơn nhatphi:
Old 15-01-2009, 22:43   #10
haquocvan
Lớp 3
Points: 9,645, Level: 29 Points: 9,645, Level: 29 Points: 9,645, Level: 29
Activity: 0% Activity: 0% Activity: 0%
 
haquocvan's Avatar
 
Gia nhập: 02-2008
Đơn vị: THPT Nguyễn Huệ
Bài viết: 61
Cảm ơn: 41
Được cảm ơn 90 lần trong 34 bài
Mặc định

Trích dẫn:
Nguyên bản bởi quangvanhai Xem bài viết
Tôi đang dùng một số file excel để tham khảo công thức trong đó. nhưng hầu hết các file này lại bị khóa sheet. vậy có cách nào gở bỏ pass đo không? xin cảm ơn.
Thầy vào đây tham khảo thêm: http://www.dayhocintel.org/diendan/s...ead.php?t=8993
haquocvan is offline   Trả lời kèm trích dẫn
Đã cảm ơn haquocvan:
Reply


Những người đang xem chủ đề này: 1 (0 thành viên và 1 khách)
 
Công cụ chủ đề
Kiểu hiển thị

Quyền đăng bài
Bạn không thể đăng chủ đề mới
Bạn không thể đăng bài trả lời
Bạn không thể đính kèm
Bạn không thể sửa bài viết của bạn

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Nhảy đến diễn đàn

Những chủ đề liên quan
Chủ đề Người khởi xướng Diễn đàn Trả lời Bài cuối
Gỡ bỏ pass trong PowerPoint ??? hungpro Tiện ích 7 13-06-2012 17:29
Lỗi không kéo thả dược trong excel. quangvanhai Microsoft Excel 1 18-05-2009 15:44
Gỡ bỏ Pass Protect Sheel trong Excel quanvu Tiện ích 2 28-10-2008 18:06
Chèn hình vào chú thích trong Excel... TruongVu Tin Học 8 12-09-2007 12:02

Tất cả giờ đều quy về GMT +7. Bây giờ là 15:40.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Thuộc quyền sở hữu của DạyhọcIntel.net