Hi I have an Excel 2010 .xlsx file vwhich I have forgotten the  password to.

Is  it possible to  either recover or circumvent it?
all I need is the contents of 1 sheet

I've seen other posts where you paste a macro unsure how that could work as soon as the spreadsheet is opened a password is required

Before someone ask no I can't upload it

I need to figure out how to use a Dynamic Range with an offset to be used in a Forecast formula....

I had this question after viewing Excel 2010 disable a cell based on another cell.

I am using this to so that if one cell is populated then another is not updatable. Is it possible to have another change option in a worksheet?

Option Explicit

Const PW As String = "123"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
'The code will be triggered if the cell being changed is in column D, starting from Row10
If Target.Column = 4 And Target.Row > 9 Then

    ActiveSheet.Unprotect Password:=PW
    If Target <> "" Then
        Cells(Target.Row, "E").Locked = True
    Else
        Cells(Target.Row, "E").Locked = False
    End If
    ActiveSheet.Protect Password:=PW
End If
End Sub

I've built a pivot table that is being sent to multiple users via email. When the users receive the attachment, they should be able to press an update button I've created to update the pivot table.

When users hit the update button, they receive an error message stating "pivot table was saved without underlying data" .  I've selected Save Source Data with file AND Refresh Data When Opening The File in pivot table options. However neither option saves once the file is closed.

What can I add to the macro to override this issue?

I am sure this is a simple fix, but I cannot figure out how to get the scrolling window in the attached worksheet titled - Dashboard -  of the attached workbook to stop when it reaches the bottom of the referenced range.  Please see the attached screenshot also.

Thank you for your assistance!
Screenshot.docx
NCCU---Contracts-Inventory-Listing-.xlsm

I am working on a project which is Excel based but part of which links to another internal system, a Purchase Order creation platform.

I want to be able to open the PO Platform from the Excel sheet, ideally without going to the Intranet home page first.

Our Intranet home page has a button which links to the PO Platform and I can copy the link from it.

When I use that as a hyperlink in Excel it does not behave the same as when clicking it direct from the Intranet.

Using the link on the Intranet just takes you to the PO platform with single sign on authentication whereas using the hyperlink in Excel shows an error saying user hasn't logged off and then goes to the login window for the platform.  I have spoken to our IT department and apparently it is to do with multiple logins for the PO platform being disabled and we do not want to re-enable it; they have tried in the past and it caused other issues.

So, I am thinking I can maybe set a macro that runs when the hyperlink is clicked. The macro would navigate to the Intranet home screen and "click" the button. The button is stored within a table on the home screen and has a specific jpg as a symbol.

Can this be done?

Thanks
Rob Henson

Hi!

I have created 7 templates that I would like to write a Macro for that opens them all in succession for me to manually insert attachments and send.  After trawling a few forums I have cobbled this together however I am now struggling to see what I am missing in order to make this work once assigned to a toolbar button:

Dim template As String

Sub OpenTemplate1()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template1.oft"
MakeItem
End Sub

Sub OpenTemplate2()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template2.oft"
MakeItem
End Sub

Sub OpenTemplate3()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template3.oft"
MakeItem
End Sub

Sub OpenTemplate4()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template4.oft"
MakeItem
End Sub

Sub OpenTemplate5()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template5.oft"
MakeItem
End Sub

Sub OpenTemplate6()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template6.oft"
MakeItem
End Sub

Sub OpenTemplate7()
template = "C:\Users\COsbourn\AppData\Roaming\Microsoft\Templates\Template7.oft"
MakeItem
End Sub

Private Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate(template)
newItem.Display
Set newItem = Nothing
End Sub

EE,

I administrate a small office environment of 25 users.  
> We use Outlook as our email client (Versions 2003, 2007, 2010 and 2016).  
> We receive our emails from a outside ISP/Exchange vendor, so we do not have access to the Exchange server, other than receiving our emails.

Due to the nature of our business, we 'live and die' by our emails, it is the life blood of our business.
> One of my biggest head aches is that some of our uses allow their PST files to grow to the point that the PST files start to get corrupt, requiring Scanpst and other measures to repair it.

I am looking for a tool (Either free or fee-based) that will go out and query each user, find the user's PST file (Or I can direct it there) and generate reports so that I can keep tabs on the sizes of the PST files.
> Additionally (The "icing on the cake") having the ability to monitor the Deleted and Send folders would be REALLY nice...

I hope that I am not asking for too much... Anyone have any suggestions?
> Again, fee-based tools are a consideration.

Rojosho

Hi Experts,

my KMS host is WIN2012R2 server.
VAMT is installed.
WIN2016 KMS key is installed but after some days the office installations are not licensed.
Office 2010 KMS key is installed but after some days the office installations are not licensed.

How can I troubleshoot this ?

IT just installed Microsoft Word 2016 on my computer, so now I have both Word 2013 and Word 2016.  When I double click on a DOCX from within Windows Explorer it launches 2016 even though I:

Used Control Panel->Default Programs->Associate a file type or protocol with a program:

I associated both DOC and DOCX files with "C:\Program Files (x86)\Microsoft Office\Office15\WINWORD.EXE" which is Word 2013.

Any ideas on how to set a previous version of Word as the default?

Thanks in advance,

Any idea how to loop through pivot tables applying conditional formatting instead of doing it manually as below.

     ActiveSheet.PivotTables("Test1").PivotSelect "", xData, True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -11489280
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
      
         ActiveSheet.PivotTables("Test2").PivotSelect "", xData, True
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With 

Select all Open in new window

…