![]() ![]() Sheets("Sheet2").Hyperlinks.Add Anchor:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp). Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheets("Sheet2").Hyperlinks.Add Anchor:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(0, 5), Address:="", SubAddress:="'" & sSheetName & "'!" & oldAddress, TextToDisplay:=oldAddress Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Now ![]() Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Environ("username") ![]() Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Target.Value Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = oldValue Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name & "-" & Target.Address(0, 0) Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Sheets("Sheet2").Visible = xlSheetVisible If Sheets("Sheet2").Visible = xlSheetVisible Then Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Furthermore, right-click your workbook name and click Insert > Module from the context menu. This will open a new Visual Basic Editor window. Now, press ALT + F11 keys on your keyboard. Sheets("Sheet2").Visible = xlSheetVeryHidden Follow the mentioned step-by-step instructions to unprotect your workbook without knowing the real password: 1. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |