Active Buttons required

**ukphoenix** · 07-05-2008, 06:18 PM

Well im back for another lesson on VBA. Ive tried to get this to work from what I've learnt in previous posts but I just keep screwing it up, so I have included the workbook with the buttons added but not active. What I need is some help on how to get them to do what I want.

The buttons are located on the PFM Tracker sheet with what I need them to do. In addition I'll give you a breakdown of what is required.

Currently when the workbook is opened the user is forced to activate the macros. One of these macros disables the Cut, Copy Paste features within Excel. I need the first button 'Enable Copy' to request a password for activation and once entered the Cut, Copy, Paste feature to be enabled. Then when finished the 2nd button 'Disable Copy' when clicked to re-activate the Cut, Copy, Paste Disabled macro.

Hope that explains it. I have left the PFM Tracker sheet unprotected for who ever wants to play with it. (Not that protection would stop some)

**ukphoenix** · 07-06-2008, 10:52 AM

Bump..please ppl i need to get this to work

**davesexcel** · 07-06-2008, 10:54 AM

Originally Posted by ukphoenix

Bump..please ppl i need to get this to work

Hi,
Can't you just protect the sheet, then un-protect it to modify?

Private Sub CommandButton1_Click()
    Dim strName As String

    strName = InputBox(Prompt:="Password Please", _
                       Title:="Password required", Default:="Password")

    If strName = "1234" Then
        ActiveSheet.Unprotect Password:="password"
        MsgBox "Your VBA code here"
        ActiveSheet.Protect Password:="password"
    Else
        MsgBox "Wrong Password"
    End If

End Sub

**ukphoenix** · 07-06-2008, 11:55 AM

I can see what your trying to do by unprotecting on the click of the button but this will not reverse the macro that disables the 'Cut Copy Paste' feature. This feature also needs to be re-enabled afterwards.

The reason I need these buttons are that I need to copy some of the data once the sheet is completed. But what I dont want is for the workbook to be left with the copy, paste feature available so that any old Joe can start tampering, hence the fairly heavy measures taken.

**shg** · 07-06-2008, 01:20 PM

Why not have your code check Environ("username"), and if it's you, don't disable cut and paste?

BTW, don't forget to undo the disable when the workbook is deactivated (i.e., when users switch to another workbook in the same instance of Excel).

**ukphoenix** · 07-06-2008, 03:57 PM

Originally Posted by shg

Why not have your code check Environ("username"), and if it's you, don't disable cut and paste?

BTW, don't forget to undo the disable when the workbook is deactivated (i.e., when users switch to another workbook in the same instance of Excel).

Being a novice I aint got a clue how too...lol......example please