Lock feature/Print button (macros)

[jkendle]

I was wondering the code for a locking and unlocking a sheet. Also I need to know how to insert a print button on the sheet.

Thanks,
J.T.

 

[Smitty]

Welcome to the Board!

Sub Protect()
    ActiveSheet.Protect Password:="password" 
    '  The password part isn't necessary
End Sub

Sub Unprotect()
    ActiveSheet.Unprotect Password:="password"
End Sub

Sub PrintMe()
    ActiveSheet.PrintOut
End Sub

To utilize the Print Code, one way is to goto View-->Toolbars-->Forms. Draw a button on your sheet and name it, then right click, select Assign Macro and select PrintMe.

Hope that helps,

Smitty