Add Password Proction when selecting Save As to the Workbook

[Sonyafm]

Hi,

I have a Workbook that users should be able to open and work on. But users shouldn't be able to save the workbook on their computer. How can I add a password protection when someone clicks Save As and Save?

I included the code below to the Excel Object "This workbook" but it's not working. I put a breakpoint on that row to see if reads the code and it doesn't. What am I missing here?

ThisWorkbook.SaveAs Password:="Password"

 

[mikerickson]

That code is setting a password on the saved file. It is not preventing the SaveAs.

This code, in the ThisWorkbook code module, will prevent the user from using SaveAs unless they enter a case sensitive password.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = (Application.InputBox("Password please", Type:=2) <> "password")
        If Cancel Then MsgBox "wrong password"
    End If
End Sub

Like all Excel protection features, its is easy to defeat.
IMO, Excel is so far from a secure platform that big effort to protect a workbook or worksheet from unauthorized use aren't worth the effort.

 

[Sonyafm]

It works perfectly and thank you so much for your prompt response!