Nhờ trợ giúp về VBA để hiện bảng Unprotect Sheet (1 người xem)

[nam2806]

Nhờ các ACE viêt đoạn mã lam cho hiện bảng Unprotect sheet. Cám ơn!

 

[sealand]

Bạn cứ Unprotect mà để trống Pass là nó hỏi liền

Private Sub nam_Click()
If Not Sheet1.ProtectContents Then
MsgBox "Sheet1 khong bi protect"
Exit Sub
End If
Sheet1.Unprotect
End Sub

 

[ndu96081631]

Nhờ các ACE viêt đoạn mã lam cho hiện bảng Unprotect sheet. Cám ơn!

Không thể hiện bảng Unprotect nếu bảng tính chưa được Protect vì 2 bảng này xuất hiện luôn phiên:
- Sheet chưa protect thì sẽ hiện bảng protect
- Sheet đã được protect thỉ sẽ hiện bảng Unprotect
Vậy giả sử bảng tính đã được protect, ta sẽ dùng code sau:

Private Sub nam_Click()
  Application.Dialogs(28).Show
End Sub

 

[nam2806]

Cảm ơn hai anh ndu và sealand nhiều. Trình bày rõ nó lầ vầy: mình thiết kế một số vấn đề, khi xong việc thì click nút 1, nó xuất hiện một pic "Đã TK xong", đồng thời protect sh luôn và cái nút 1 kia cũng "biến" luôn, công việc này mình làm bằng VBA OK rồi. Nhưng khi muốn sửa chữa lại một cái gì đó thì không lẽ -> Tool->Protection->Unprotect Sheet thì dài dòng quá, vậy nên mới nhờ các bác để có đoạn mã gán vào cái nút 2 cho nó "rẹc rẹc" mà.

 

[ndu96081631]

Cảm ơn hai anh ndu và sealand nhiều. Trình bày rõ nó lầ vầy: mình thiết kế một số vấn đề, khi xong việc thì click nút 1, nó xuất hiện một pic "Đã TK xong", đồng thời protect sh luôn và cái nút 1 kia cũng "biến" luôn, công việc này mình làm bằng VBA OK rồi. Nhưng khi muốn sửa chữa lại một cái gì đó thì không lẽ -> Tool->Protection->Unprotect Sheet thì dài dòng quá, vậy nên mới nhờ các bác để có đoạn mã gán vào cái nút 2 cho nó "rẹc rẹc" mà.

Vậy thì dùng code của tôi là rất hợp lý! Vì cũng code ấy, vừa Protect, vừa Unprotect luôn
Thử xem!

 

[nam2806]

Việc protect và pass đều do code tự thực hiện, vả lại cái nút 1 phải biến luôn mà, vậy nên mới cần cái nút 2 làm xuất hiện Unprotect

 

[ndu96081631]

Việc protect và pass đều do code tự thực hiện, vả lại cái nút 1 phải biến luôn mà, vậy nên mới cần cái nút 2 làm xuất hiện Unprotect

Tại sao phải "vẽ cái nút" (cho mất công và tốn dung lượng) mà không gọi macro bằng PHÍM TẮT?

 

[nam2806]

Nhờ các bạn chỉ giúp đoạn code disable cái nút close của bảng Unprotect sheet.

 

[ndu96081631]

Nhờ các bạn chỉ giúp đoạn code disable cái nút close của bảng Unprotect sheet.

Không biết có cách Disable X Button trên Dialog này không, nhưng tôi nghĩ để đơn giản hơn, bạn dùng UserForm đi