Exit or Close button

[MarkDShark]

How do you add a exit or close button to a worksheet? I hide all the commands and edit bars and locked the VBA codes, so the sheet coud not be accesed or changed. I did the simular thing on other worsheets, but when i have multiple open, i cannot exit one out without having to close them all. The solution is to create an exit button or close button to close the sheet im on. Thanks!

 

[ogo]

Hi
you can't close just the active sheet but you can close the active window:

ActiveWindow.Close SaveChanges:=False

or you can hide the activesheet, but then you need to use code to unhide the sheets also,

Private Sub CommandButton1_Click()
 ActiveSheet.Visible = xlVeryHidden
End Sub

To unhide

Sheet1.Visible = xlSheetVisible
<!-- / message --><!-- sig -->