Excel VBA password

[JohnUK]

Has anyone out there got a solution to protecting a
Workbook/sheet with a password in VB and unprotecting
again?

 

[Frank Kabel]

Hi look at the methods
UnProtect
and
Protect
in the VBA help

 

[Harald Staff]

Sub test()
Dim Pwd As String
Pwd = "Secret word"

Sheets(1).Protect (Pwd)
On Error Resume Next
Sheets(1).Cells(1, 1).Value = 3
MsgBox Error
On Error GoTo 0
Sheets(1).Unprotect (Pwd)

ThisWorkbook.Protect (Pwd)
On Error Resume Next
Sheets(1).Delete
MsgBox Error
On Error GoTo 0
ThisWorkbook.Unprotect (Pwd)

End Sub

 

[Guest]

Harald

You are a star - Much appreciated
John

 

[Harald Staff]

Harald

You are a star - Much appreciated
John

Thanks John. I needed something like that today.

Best wishes Harald