Xin file excel quản lí dự án trên 1 trang giấy

hungkt đã viết:

Như tiêu đề, mọi người ai có file quản lí dự án trên 1 trang giấy của tác giả Clark. A. Campbell thì xin chia sẻ nhé.
Cám ơn mọi người.

Nhấp chuột vào đây để mở rộng...

Không biết có phải bạn đang cần cái này không?

andyhop đã viết:

Không biết có phải bạn đang cần cái này không?

Nhấp chuột vào đây để mở rộng...

Mình cần điều chỉnh vài chổ trong file như vậy. Bạn có thể unprotect file đó được không? Cảm ơn rất nhiều!

mình cũng cần file unprotect, có thể share giúp mình được kg? thanks

Làm theo cách này để unprotect file

1. Nhấn chuột phải vào tên sheet cần gỡ bỏ passwords, chọn View Code.....sẽ hiện ra 1 của sổ nhập liệu.
2. Copy đoan mã sau và paste vào ô nhập liệu trên.

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

3. Vào menu Run> Run sub/User form và chờ giây lát.
4. Vào menu File> Close and return.

Làm thế nào để vẽ được ô vuông thế bạn?

Mình không thể unprotect được file. Bạn có thể giúp được mình không? email: trakhali@yahoo.com

Mình cũng làm theo bước trên nhưng không được.
Bạn có thể hướng dẫn lại unprotect giúp mình được không.
Thanhs!

thanks các bác nhiều, chúc sức khỏe

phichan đã viết:

Làm thế nào để vẽ được ô vuông thế bạn?

Nhấp chuột vào đây để mở rộng...

Bạn vô format cells, dùng font chữ Webdings. Thân ái.

Cảm ơn chia sẻ của các bạn

Cảm ơn chia sẻ của các bạn! Rất hữu ích ạ!

Mutants Men đã viết:

unprotect rồi đây
,,

Nhấp chuột vào đây để mở rộng...

Rồi muốn protect lại thì sao bạn? tks! Xin chia sẻ thêm qua mail: chuongdttc@gmail.com nhé!