Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = True
End Sub
Sao Excel có rất nhiều biện pháp bảo vệ, bạn lại chọn cách cực đoan vậy ???.boong đã viết:
Tại sao lại cứ phải dùng BKAV nhỉ ??? Không còn phương án nào khác sao bạn ???boong đã viết:
Tăng ở chỗ nào bạn nhỉ ??? Tớ chỉ thấy File của bạn giống như cái cây bị bứng khỏi mặt đất, sự hỗ trợ của Office cho File của bạn là gần như không có, nếu muốn thì bạn lại phải mở dưới dạng File Excel sau đó convert sang exe. Như thế có phải là phức tạp thêm không nhỉ ?? Trong khi đó File excel có biết bao nhiêu biện pháp bảo vệ.boong đã viết:
Còn vấn đề này thì em không biết làm, bác có thể hướng dẫn sơ qua cho em một chút được không?
). Đây là kỹ thuật tôi đã giới thiệu trong topic "Class module - Kỹ thuật..."Tôi sử dụng đối tượng Class để wapping đối tượng "Save As" menu, sau đó thay thế lệnh "Save As" (XlHacker
Tôi sử dụng đối tượng Class để wapping đối tượng "Save As" menu, sau đó thay thế lệnh "Save As" (XlHacker
Bác dùng tạm cái này xem
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End SubOption Explicit
Dim DisableSave As clsDisableSave
Sub CreateDisableSave()
Set DisableSave = New clsDisableSave
DisableSave.Create Application
DisableSave.TruePassword = "TuanVNUNI"
End Sub
Sub DestroyDisableSave()
Set DisableSave = Nothing
End SubOption Explicit
Private WithEvents fExcelApp As Application
Private fInputPassword As String, fTruePassword As String
Sub Create(ByVal ExcelApplication As Application)
If Not fExcelApp Is Nothing Then
Destroy
End If
Set fExcelApp = ExcelApplication
If fExcelApp.ActiveWorkbook.ReadOnly Then
'fExcelApp.ActiveWorkbook.ReadOnly = False
End If
MsgBox "All workbooks are locked!", vbExclamation
End Sub
Sub Destroy()
Set fExcelApp = Nothing
End Sub
Private Sub fExcelApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = Not (fTruePassword = fInputPassword)
SaveAsUI = Not Cancel
If Cancel Then
If MsgBox("The Save (As...) function is disable." & Chr(13) & _
"Do you want to input password?", vbQuestion + vbYesNo, Wb.Name) = vbYes Then
ShowInputPassword
Cancel = Not (fTruePassword = fInputPassword)
SaveAsUI = Not Cancel
End If
End If
End Sub
Private Sub Class_Initialize()
'Do...
End Sub
Private Sub Class_Terminate()
Destroy
End Sub
Property Get TruePassword() As String
TruePassword = fTruePassword
End Property
Property Let TruePassword(ByVal Value As String)
fTruePassword = Value
End Property
Property Get InputPassword() As String
InputPassword = fInputPassword
End Property
Property Let InputPassword(ByVal Value As String)
fInputPassword = Value
End Property
Sub ShowInputPassword()
fInputPassword = fExcelApp.InputBox("Your password:")
End Sub
pen), nếu ReadOnly = True thì thoát luôn.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
If SaveAsUI Then Cancel = True
End Sub
Bạn chọn Tools\Macro\Security, chọn mức High hoặc Very high. Sau đó, khởi động lại Excel, nhập đoạn code trên vào và lưu lại. Sau đó lại chọn lại Security mức Medium hoặc Low là được.
Bạn nhấn nút design trên thanh công cụ control toolbox để vào design mode, lúc đó có thể Save. Sau đó nhấn 1 cái nữa, thoát khỏi design mode thì không cho save
Không cho save as thì người ta có thể copy file đó ở windows thì coi như phí công vô ích.
Vậy cái add-ins của bạn nó như thế nào vậy? gửi lên xem thử nhé.
Public WithEvents MyApp As Application
Private Sub MyApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True
MsgBox "SaveAs Feature is Disabled!"
End If
End SubDim AppEventClass As New clsSaveEvent
Private Sub Workbook_Open()
Set AppEventClass.MyApp = Application
End Sub
