Các trang liên kết
 
 

 

 

 

 

 

 

 

 

   Số lượt truy cập

1448926
Xem chi tiết

 

Chuyên mục: Phần mềm  
Ngày đưa tin: 05/12/2012    

Gỡ bỏ password trong Excel

Dùng đoạn mã Visual Basic: bạn cũng có thể tự tay xóa mật khẩu bảo vệ các Sheet mà không cần dung đến ER09, cách thực hiện như sau: Mở file Excel, nhấp phải chuột lên Sheet đã được bảo vệ chọn View Code. Cửa sổ Microsoft Visual Basic xuát hiện, bạn dán đoạn mã sau:

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

vào khung trống. Tiếp đến, nhấp chọn menu Run > Run Sub/UserForm (hay nhấn F5) rồi đợi trong giây lát để chương trình xử lý. Xong, bạn đóng cửa sổ Microsoft Visual Basic và thử nhập liệu vào file Excel bạn sẽ thấy điều kỳ diệu.

Nguồn tin: Sưu tầm

 


Các tin khác :
   TÌM KIẾM THÔNG TIN

TIỆN ÍCH
 
 
 
 
 Kết quả hình ảnh cho http://csdl.moet.gov.vn/
 

 

HÌNH ẢNH HOẠT ĐỘNG

 

 
Bản quyền thuộc Phòng GD&ĐT Khánh Sơn
Địa chỉ: 41 Lê Duẩn - Thị trấn Tô Hạp - Huyện Khánh Sơn - Tỉnh Khánh Hòa
Điện thoại : 02583869169 - 02583869466
Fax : (0583) 869466
Email: pgdkson@khanhhoa.edu.vn