I have searched around for help but have been unsuccessful. I have found different codes to use a button on a worksheet to go back to the previous worksheet the user was on. What the company I work for wants are links on the top of almost each worksheet to function as a navigation pane for the users. I have created links at the top of the necessary sheets which all work as expected. I originally added code to my workbook to use a back link (previous sheet user was on, not the sheet before the current sheet) at cell "A5" and it worked for awhile but as I've been progressing on other items within the workbook, the code stopped working. I have compared the code on the working workbook with the nonworking workbook and they're the same and I don't believe other code is causing it to malfunction. Looking at the code below, does anyone have a suggestion for me?
On worksheets that will have a back button I have:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("A5")) Is Nothing Then
Call SelectLast
End If
End If
End Sub
In the ThisWorkbook object I have the following:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LastSheet = Sh.Name
End Sub
Finally, I have the following in it's own module:
Public LastSheet As String
Sub SelectLast()
Application.Sheets(LastSheet).Select
End Sub
Any assistance would be greatly appreciated. Thanks!
Add a workbook-level name "LastSheet":
Then add this code in the ThisWorkbook module:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'EDIT
ThisWorkbook.Names("lastsheet").RefersToR1C1 = "='" & Sh.Name & "'!R1C1"
End Sub
For your "Previous sheet" hyperlinks use:
=HYPERLINK("#LastSheet","Previous sheet")
If you wanted to get fancy with your "back" link and show the destination sheet name in the link:
=HYPERLINK("#lastsheet",
"<< back to - " & SUBSTITUTE(MID(CELL("address",lastsheet),1+
FIND("]",CELL("address",lastsheet)),200),"!$A$1",""))
Craig, this should do the trick for you
I made a label look like a hyperlink & operate as one. I have basically stored the name of the sheet in the label's captions and have the workbook select the sheet that matches that text
Private Sub Label1_Click()
Dim strLoc As String
strLoc = Label1.Caption
ThisWorkbook.Sheets(strLoc).Select
End Sub
I have a worksheet with a clickable shape and a class listening to the change events of that sheet:
Sheet1:
Public Sub Shape_click()
Debug.Print "click"
End Sub
Class1:
Private WithEvents sh As Worksheet
Private Sub Class_Initialize()
Set sh = Sheet1
End Sub
Private Sub sh_Change(ByVal Target As Range)
Debug.Print "change: " & Target.Address
End Sub
When I edit a cell in Sheet1 and click directly on the shape the output is
click
change: $B$1
I would like to trigger the change event in the shape macro so that the change event would occur before printing "click". DoEvents, Sleep from kernel32 and activation of some other cell from the Shape_click were not working for me.
I have found two "hacks", the first one quite limited, but the second one does the job:
Selection.Cut:
Public Sub Shape_click()
Selection.Cut Selection
Debug.Print "click"
End Sub
It makes the Change event to fire 3 times (2x before "click", 1x after that), every time with the right (changed) value.
Of course you need to check the Selection (if it is set, if it's of Range type etc.)
The solution is quite limited as you can't use it with merged cells in the selection (will ask if you want to unmerge them).
Selection.Value = Selection.Value
Public Sub Shape_click()
Selection.Value = Selection.Value
Debug.Print "click"
End Sub
Works even with merged cells. There is also need to check Selection if it really contains a range.
I have a very simple Worksheet_Change event running so that if any cell on the worksheet changes a cell on another sheet changes to 1. I am using that cell as a flag to know if any changes have been made to the worksheet. I have a shape that I assigned a macro to when selected. The macro checks to see if any changes have been made (if that cell is set to 1), and if it is my code fires.
The problem is if for example
cell A1 contains the name Bob.
A user selects cell A1 and changes the name from Bob to Steve
but then instead of first clicking out of the cell and then clicking the shape they directly hit the shape without deselecting the cell.
The problem with this is that the worksheet_change event doesn't trigger until after my macro completes. So while the macro runs the flag is set to 0, but once it's done the flag gets set to 1.
Any ideas on how to stop this?
Private Sub Worksheet_Change(ByVal Target As Range)
sheets("Cond For").Range("A1").Value = 1
End Sub
Sub saveData()
if sheets("Cond For").Range("A1").Value = 1 Then
'my code
End if
End Sub
Use two routines like so (rename Sheet1.Reallysave to your sheet's codename and routine name):
Sub SaveData()
Application.Ontime Now, "Sheet1.ReallySave"
End Sub
Sub ReallySave()
'Your current code
End Sub
Protecting workbook structure will prevent a user from deleting sheets. But how could I (using VBA) prevent a user from deleting a particular sheet I designate? I've seen examples where an active sheet is prevented from deletion by
Set mymenubar = CommandBars.ActiveMenuBar
mymenubar.Controls("Edit").Controls("Delete sheet").Visible = False
in its Worksheet_Activate event but that of course only works if the sheet is activated.
Is there a way to prevent a sheet from being deleted whether active or no?
For clarity: I'm fine with the user deleting some sheets, just not a couple of particular sheets.
So protecting workbook structure won't work.
As far as I can tell, it isn't possible to natively tag a single sheet as non-deletable; and there isn't an event that can be used to detect when a sheet is about to be deleted so the workbook can be protected preventively.
However, here is one potential workaround:
Protect workbook structure: this will, as you indicate, prevent all sheets from being deleted.
Create a "Controls" sheet. On this sheet, maintain a list of all sheet names (except those you don't want to be deletable).
If users want to delete a sheet, they will have to select its name on the Controls sheet (e.g. in a data validation drop-down menu) and press a "Delete" button. This button will call a macro that temporarily unprotects the workbook, deletes the selected sheet, and then reprotects the workbook.
Of course, the users will have to get used to this way of deleting sheets (as opposed to just right-click > Delete on the sheet's tab). Still, this isn't crazy complicated.
As for how to achieve #2 i.e. maintaining that list of sheet names, I suppose you could make use of a UDF like this one (must be called as an array formula):
Function DeletableSheetNames() As String()
Application.Volatile
Dim i As Long
Dim sn() As String
With ThisWorkbook
ReDim sn(1 To .Sheets.Count)
For i = 1 To .Sheets.Count
With .Sheets(i)
If .Name = "DataEntry1" Or .Name = "DataEntry2" Then
'Don't include it in the list.
Else
sn(i) = .Name
End If
End With
Next i
End With
DeletableSheetNames = sn
End Function
You cannot stop users to delete a particular sheet but you could use the Workbook_BeforeSave() event to prevent the workbook from being saved if a particular sheet is missing. The documentation on this event precisely shows how to allow saving a workbook only when certain conditions are met. See http://msdn.microsoft.com/en-us/library/office/ff840057(v=office.14).aspx
I can prevent a sheet from being deleted via the Worksheet_BeforeDelete Event as follows:
Private Sub Worksheet_BeforeDelete()
Call ThisWorkbook.Protect("password")
Call MsgBox("This sheet cannot be deleted.", vbExclamation)
End Sub
This protects all sheets from being deleted, however if you add some event code on the ThisWorkbook module like the following :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call ThisWorkbook.Unprotect("password")
End Sub
I will then be able to delete any other sheet as soon as it is selected.
Bear in mind, you will lose copy and paste functionality between pages due to the page unlocking when it is selected.
"there isn't an event that can be used to detect when a sheet is about to be deleted"
Since Office 2013, it is possible with the SheetBeforeDelete event.
I found this solution, similar to Dan's, on ExtendOffice.com. Put this code on the Worksheet's module:
Private Sub Worksheet_Activate()
ThisWorkbook.Protect "yourpassword"
End Sub
Private Sub Worksheet_Deactivate()
ThisWorkbook.Unprotect "yourpassword"
End Sub
When you activate the sheet in question, the whole workbook is protected, and the "Delete" option is grayed out. When you switch to any other sheet, the workbook is free again. It's subtle because you only notice the change when you go to the "safe" sheet.
Answer is by adding the following code to each of the protected sheets:
Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub
And the following to a Module:
Sub UnprotectBook()
ThisWorkbook.Unprotect
End Sub
Check https://www.top-password.com/blog/prevent-excel-sheet-from-being-deleted/ for credits accordingly.
The following disables the menu when you right click on tab. This stops the delete option being available.
Sub tab_rclick_off()
Application.CommandBars("Ply").Enabled = False
End Sub
The following turns the menu back on.
Sub tab_rclick_on()
Application.CommandBars("Ply").Enabled = True
End Sub
This option is simple, concise, prevents any issues with data entry/editing with protected sheets and can be called from anywhere in code, ie in conjunction with log on permissions can be given to some and not others etc. foremost yourself.
Maybe you could try to protect the structure of the workbook in SheetBeforeDelete.
See my example:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ThisWorkbook.Protect Structure:=False
End Sub
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
If Sh.Name = "Example" Then
ThisWorkbook.Protect Structure:=True
End If
End Sub
Here is another answer from mine base on the idea of #Jean-François Corbett
You can use 'Protect WB Structure' and Event 'Workbook_SheetBeforeDelete' to achieve this.
The result is that an dialog will pop up said "Workbook is protected and cannot be changed."
Private Sub zPreventWShDel(WSh As Worksheet, Protection As Boolean)
Dim zPassword As String: zPassword = ""
Dim zWB As Workbook
Set zWB = WSh.Parent
If Protection Then
zWB.Protect zPassword, Protection
Else
zWB.Protect zPassword, Protection
End If
'Stop
End Sub
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
Call zPreventWShDel(Sh, True)
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call zPreventWShDel(Sh, False)
End Sub
Do not Call the code on Sheet Deactivation like below. Because it will deactivate it. Sequence of running is Event_SheetBeforeDelete -> Event_SheetDeactivate.
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Call zPreventWShDel(Sh, False)
End Sub
I created a different approach to this.
On the sheet(s) you want protected, add this code:
Private Sub Worksheet_BeforeDelete()
ThisWorkbook.Worksheets("Unprotect Workbook").Visible = True
ThisWorkbook.Worksheets("Unprotect Workbook").Activate
ThisWorkbook.Protect
End Sub
Create the ("Unprotect Workbook") sheet and make the visibility: xlSheetVeryHidden
on the "Unprotect Workbook" sheet add a button or shape that you can assign a macro to.
on the "Unprotect Workbook" sheet, add this code:
Sub unprotectThisWorkbook()
ThisWorkbook.unprotect
ActiveSheet.Visible = xlSheetVeryHidden
End Sub
Assign the sub you added, "Sub unprotectThisWorkbook()", to the button on the "Unprotect Worksheet" sheet
When you delete the sheet you protected, the workbook is protected and it takes you to the unprotect worksheet as a notice to the user and as a way to unprotect the workbook. Once the button is clicked, the workbook is unprotected and the "unprotect sheet" is hidden again.
This will work for any sheet you want to protect.
Is there a way in which I can get a sub in VBA to run whenever the user changes the sheet. Basically, what I am looking to do is hide all of the sheets besides the one that the user is on.
Thanks!
Given all the sheets other than the one you are leaving and the one you are going to will be hidden, then you can address directly just the sheet you are exiting with this Workbook level event (goes in ThisWorkbok)
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = False
End Sub
You can use the following event, placed in the Workbook code module:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call _Your_Macro_Name_
End Sub
Replace _Your_Macro_Name_ with the name of the subroutine that you want to execute.