[已解决]可以做到只有输入密码才能保存excel么

w13579

    也就是说点击保存的时候弹出密码框 只有输入密码才能保存！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-28 23:59

Excel 开发人员参考
Workbook.BeforeSave 事件
保存工作簿之前发生此事件。
语法

表达式.BeforeSave(SaveAsUI, Cancel)

表达式   一个代表 Workbook 对象的变量。

参数

名称 必选/可选 数据类型 说明
SaveAsUI 必选 Boolean 如果将显示“另存为”对话框，则为 True。
Cancel 必选 Boolean 当事件发生时为 False。如果该事件过程将此参数设置为 True，则该过程完成后将不保存工作簿。

返回值
无

示例


本示例在保存工作簿之前询问用户是否保存。

Visual Basic for Applications
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel as Boolean)
    a = MsgBox("Do you really want to save the workbook?", vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

跳转到最佳答案楼层

hwc2ycy

Excel 开发人员参考
Workbook.BeforeSave 事件
保存工作簿之前发生此事件。
语法

表达式.BeforeSave(SaveAsUI, Cancel)

表达式   一个代表 Workbook 对象的变量。

参数

名称 必选/可选 数据类型 说明
SaveAsUI 必选 Boolean 如果将显示“另存为”对话框，则为 True。
Cancel 必选 Boolean 当事件发生时为 False。如果该事件过程将此参数设置为 True，则该过程完成后将不保存工作簿。

返回值
无

示例


本示例在保存工作簿之前询问用户是否保存。

Visual Basic for Applications
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel as Boolean)
    a = MsgBox("Do you really want to save the workbook?", vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

w13579

hwc2ycy 发表于 2012-12-28 23:59
Excel 开发人员参考
Workbook.BeforeSave 事件
保存工作簿之前发生此事件。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim pin
pin = Application.InputBox(prompt:="主人请输入密码" & vbCrLf & _
"若不是我的主人，请不要保存謝謝！", Title:="默默念着芝麻开门.....", Type:=1 + 2)
If pin = "False" Then
    Cancel = True
    Exit Sub
End If
If pin <> "123" Then
    MsgBox "对不起你是强盗!破门操作失敗", vbOKOnly, "警告！"
    Cancel = True
Else
    MsgBox "欢迎主人回来，门已经关好！"
End If
end sub



OKle

hwc2ycy

楼主，不错。

qztxwangds

真强悍！学习了......要是再把这些代码隐藏了，让人删不了去就更好了.....

w13579

qztxwangds 发表于 2012-12-31 16:29
真强悍！学习了......要是再把这些代码隐藏了，让人删不了去就更好了.....

加密  就OK了 除非暴力破解

hoogle

w13579 发表于 2013-1-1 22:53
加密  就OK了 除非暴力破解

这个前提是启用宏的前提下，如果禁用宏，一样可以保存。

w13579

hoogle 发表于 2013-1-2 12:26
这个前提是启用宏的前提下，如果禁用宏，一样可以保存。

保護表直接在VBA隱藏掉  到時候用的時候用代碼讓他出來 ~！visible = 2   運行的時候不顯示！{:091:}

w13579

這樣別人想改也該不了了

Joforn

w13579 发表于 2013-1-2 19:38
這樣別人想改也該不了了

没有用的。要破解的话也就几十秒钟的时间。