Phá mật khẩu trong Protection Sheet

[Phanhanhdai]

Các file mình làm mình thường bảo vệ các sheet để không bị vô ý sửa kết quả đúng. Hiện nay mình sử dụng nhưng do mình để lâu quá nên không nhớ được Password (Mình thường chỉ đặt <=6 kí tự thôi). Có bạn nào có file tìm lại Password cho mình xin với. Mình cảm ơn nhiều.

 

[anh17d4]

Có nhiều cách gỡ mật khẩu: hình như forum đã có bài hướng dẫn code phá mật khẩu rồi, hoặc bạn dùng chương trình chương trình gỡ bỏ mật khẩu.
link: http://www.echip.com.vn/echiproot/html/2004/so158/gobomat.html

 

[stulipig]

Mình đang sử dụng đoạn Code sau để Load bảng giá của trang

http://www.bsc.com.vn/OP/Requester.htm

Theo đoạn code này thì cứ mổi 5 giây sẽ tự động Refresh 1 lần.
Nhưng mình chẳng biết làm thế nào để cho nó dừng Refresh cả.
Anh chị đừng cười, mình chỉ trong thời gian tìm hiểu VBA nên không thạo lắm.
Rất mong nhận được sự giúp đỡ của các anh chị.

[COLOR=darkblue]Sub[/COLOR] refreshwebquery()
[COLOR=green]'[/COLOR]
[COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
    Sheets("query").Select
    Selection.QueryTable.Refresh BackgroundQuery:=[COLOR=darkblue]False[/COLOR]
    autorefresh
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub

[/COLOR][COLOR=darkblue]Sub[/COLOR] autorefresh()
Application.OnTime Now + TimeValue("0:00:05"), "refreshwebquery"
[COLOR=darkblue]End[/COLOR] Sub

 

[cadafi]

Theo đoạn code này thì cứ mổi 5 giây sẽ tự động Refresh 1 lần.
Nhưng mình chẳng biết làm thế nào để cho nó dừng Refresh cả.
Anh chị đừng cười, mình chỉ trong thời gian tìm hiểu VBA nên không thạo lắm.
Rất mong nhận được sự giúp đỡ của các anh chị.
Sub autorefresh()
Application.OnTime Now + TimeValue("0:00:05"), "refreshwebquery"
End Sub

Bạn bỏ đoạn code này đi là xong nhé! Chúc bạn thành công!

 

[stulipig]

Bạn bỏ đoạn code này đi là xong nhé! Chúc bạn thành công!

Cảm ơn bạn đã giúp đỡ. Nhưng ý mình là thế này:
- Hiện tạm mình dùng phím tắt Ctrl + F ---> Bắt đầu tự động Refresh.
- Mình muốn tạo thêm một Macro để khi mình Ctrl + S ---> tắt chế độ tự động cập nhật. Nếu như vậy thì mình fải viết Code thế nào?
Làm phiền các bạn một lần nữa.
Thanks a lot.

 

[cadafi]

Cảm ơn bạn đã giúp đỡ. Nhưng ý mình là thế này:
- Hiện tạm mình dùng phím tắt Ctrl + F ---> Bắt đầu tự động Refresh.
- Mình muốn tạo thêm một Macro để khi mình Ctrl + S ---> tắt chế độ tự động cập nhật. Nếu như vậy thì mình fải viết Code thế nào?
Làm phiền các bạn một lần nữa.
Thanks a lot.

Bạn hình dung như thế này nhé, Ctrl+F ---> Bắt đầu tự động Refresh.
Refresh xong rồi thì thôi, không refresh nữa. Khi cần Refresh nữa thì lại Ctrl+F.
Không cần phải tạo thêm Macro để Ctrl + S ---> tắt chế độ tự động cập nhật.
Được chứ bạn?

 

[stulipig]

Bạn hình dung như thế này nhé, Ctrl+F ---> Bắt đầu tự động Refresh.
Refresh xong rồi thì thôi, không refresh nữa. Khi cần Refresh nữa thì lại Ctrl+F.
Không cần phải tạo thêm Macro để Ctrl + S ---> tắt chế độ tự động cập nhật.
Được chứ bạn?

Sorry bạn, có thể mình giải thích cho bạn chưa rõ. Mình giải thích rõ quy trình thế này nhé:
- Muốn chế độ tự động cập nhật (AutoRefresh) hoạt động thì mình nhấn tổ hợp phím Ctrl + F.
- Sau đó Worksheet của mình sẽ tự động cập nhật dữ liệu mới từ trang web bsc cứ sau mỗi 5 giây.
- Muốn tắt chế độ tự động cập nhật hiện tại mình chỉ còn cách tắt workbook đang làm việc.
===> Giờ mình muốn tạo một Macro để khi mình nhấn Ctrl + S thì chế độ tự động cập nhật sẽ dừng lại mà không phải tắt workbook.
Làm phiền bạn một lần nữa nhé.

 

[tommybull]

Chào các sư huynh, mình mới tham gia diễn đàn. mình tên Tuấn Anh
Mình mới đọc chuyên mục "Cách gỡ bỏ mật khẩu Excel bằng Excel(R) Password Remover"
Mình cũng đã thực hiện giống như bạn QUỐC TRIỆU (Q.9, TP.HCM) Hướng dẫn, những đến thao tác cuối cùng, mỉnh mơ file cần gỡ password ra thì vẫn hiện lệnh yêu cầu nhập password.
không hiểu tại sao?
Có ai cứu mình với
cảm ơn nhiêu

 

[thangthong2007]

sau khi copy Excel(R) Password Remover về, bạn chạy file đó lên, sau đó xuất hiện một cửa sổ Excel, bạn mở file cần gỡ Pass, sau khi file cần bỏ Pass được mở ra,

Bạn chọn Tool/unprotect sheet

đợi một lúc sẽ được