Re: ]] XL-mania [[ Memprotect nama sheet

[Henry P.586]

Sub Disable_SheetDeleteRenameMoveCopy()
    With Application
        With .CommandBars("Worksheet Menu 
Bar")
            With 
.Controls("Edit")
               
 .Controls("Delete Sheet").Enabled = False
               
 .Controls("Move or Copy Sheet...").Enabled = False
            End With
            
.Controls("Format").Controls("Sheet").Controls("Rename").Enabled = False
        End With
        With .CommandBars("Ply")
            
.Controls("Insert...").Enabled = False
            
.Controls("Delete").Enabled = False
            
.Controls("Rename").Enabled = False
            
.Controls("Move or Copy...").Enabled = False
            
.Controls("View Code").Enabled = False
        End With
    End With
End Sub


Semoga bisa membantu...

Thanks
Henry, New Member & Newbie on Macro VBA



      __________________________________________________________
Sent from Yahoo! Mail.
A Smarter Email http://uk.docs.yahoo.com/nowyoucan.html