Access Denied: Contact Your Administrator error when running macro

**IvanJames** · 07-07-2015, 02:18 PM

Hello

I have a macro on a worksheet that runs as expected when I execute it, but when other uses try they get an Access Denied: Contact Your Administrator error. This may have happened when we upgraded from Excel 07 to 13 but I'm not certain.

Here is the VBA for the macro

Sub ResetFormRepairs()
'
' ResetFormRepairs Macro
' Macro recorded 5/19/2011 by b8ukbk
'
' Keyboard Shortcut: Ctrl+h
'
        Sheets("Repair estimator").Unprotect "Aw_2012"
    Range("C3:E3").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C4:E4").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("C5:E5").Select
    ActiveCell.FormulaR1C1 = "NONE"
    Range("C6:E6").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C7:O7").Select
    ActiveCell.FormulaR1C1 = ""
    
    Range("C18").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C19").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C20").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C21").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C22").Select
    ActiveCell.FormulaR1C1 = "0%"

    Range("C26").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C27").Select
    ActiveCell.FormulaR1C1 = "0%"
    
    Range("C30").Select
    ActiveCell.FormulaR1C1 = "0%"
    
    Range("C33").Select
    ActiveCell.FormulaR1C1 = "0%"

    Range("C36").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C37").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C38").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C39").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C40").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C41").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C42").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C43").Select
    ActiveCell.FormulaR1C1 = "0"

    Range("C46").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C47").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C48").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C49").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C50").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C53").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C54").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C55").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C56").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C57").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C58").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C59").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C62").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C63").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C64").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C65").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C66").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C67").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C68").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C69").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C72").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C73").Select
    ActiveCell.FormulaR1C1 = "0%"
    
    Range("C74").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C75").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C76").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C79").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C80").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C81").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C82").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C85").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C86").Select
    ActiveCell.FormulaR1C1 = "0"

    Range("C89").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C90").Select
    ActiveCell.FormulaR1C1 = "0%"
    
    Range("C91").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C94").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C95").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C104").Select
    ActiveCell.FormulaR1C1 = "N"
    
    Range("C107").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C108").Select
    ActiveCell.FormulaR1C1 = "0%"
    
    Range("C111").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C112").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C115").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C116").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C117").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C118").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C119").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C120").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C121").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C122").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C123").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C126").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C127").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C128").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C129").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C130").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C131").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C132").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C133").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C134").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C137").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C138").Select
    ActiveCell.FormulaR1C1 = "0%"
    Range("C139").Select
    ActiveCell.FormulaR1C1 = "0%"

    Range("C142").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C143").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("C146").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C147").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C148").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C149").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C150").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("C151").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("D152").Select
    ActiveCell.FormulaR1C1 = "0"
    
    


    Range("N19").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N20").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N21").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("N23").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N24").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N25").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("N29").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N30").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N31").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("N33").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N34").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N35").Select
    ActiveCell.FormulaR1C1 = "0"
    
    Range("N37").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N38").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("N39").Select
    ActiveCell.FormulaR1C1 = "0"
    
    

    Sheets("repair estimator").Protect "Aw_2012"
    ActiveWindow.SmallScroll Down:=-66
    Range("C3:E3").Select
End Sub
Sub ResetFormEquator()
'
' ResetFormValdash Macro
' Macro recorded 5/19/2011 by b8ukbk
'

'
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "Optional (will not print)"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Optional (will not print)"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = " "
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "Enter Listing History"
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Range("B11").Select
    ActiveCell.FormulaR1C1 = "# of bedrooms"
    Range("B12").Select
    ActiveCell.FormulaR1C1 = "# of bathrooms"
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "Describe car storage"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("c14").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B15").Select
    ActiveCell.FormulaR1C1 = "Enter basement info"
    Range("B16").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-2]C[1]=0,""Enter Year Built"",IF(R[-2]C[1]>0,RC[1]))"
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "Enter GLA"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B19").Select
    ActiveCell.FormulaR1C1 = "Month"
    Range("B20").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Range("B21").Select
    ActiveCell.FormulaR1C1 = "Specify repairs AND/OR updates"
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "pools, acreage, views, etc"
    Range("B23").Select
    ActiveCell.FormulaR1C1 = "obsolescence, easements, illegal uses, etc"
    Range("B24").Select
    ActiveCell.FormulaR1C1 = "Cite relevant BPO comps"
    Range("B25").Select
    ActiveCell.FormulaR1C1 = "Cite relevant AV comps"
    Range("B26").Select
    ActiveCell.FormulaR1C1 = "Enter other data sources utilized"
    Range("B27").Select
    ActiveCell.FormulaR1C1 = "Enter Comments"
    Range("B31").Select
    ActiveCell.FormulaR1C1 = "optional (does not print)"
    Range("B32").Select
    ActiveCell.FormulaR1C1 = "optional (does not print)"
    Range("c31").Select
    ActiveCell.FormulaR1C1 = " "
    Range("c32").Select
    ActiveCell.FormulaR1C1 = " "
    Range("B33").Select
    ActiveCell.FormulaR1C1 = "='Repair Estimator'!R[-29]C[14]"
    Range("B34").Select
    ActiveCell.FormulaR1C1 = " "
    Range("B35").Select
    ActiveCell.FormulaR1C1 = "Optional"
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "Optional"
    Range("B37").Select
    ActiveCell.FormulaR1C1 = "Optional"
    Range("B39").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("B40").Select
    ActiveCell.FormulaR1C1 = "Describe Adverse Factors"
    Range("B42").Select
    ActiveCell.FormulaR1C1 = "_Yes/No_"
    Range("B43").Select
    ActiveCell.FormulaR1C1 = "Describe Beneficial Factors"
    Range("C39").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Range("E39").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Range("C42").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Range("E42").Select
    ActiveCell.FormulaR1C1 = "Choose One"
    Sheets("Repair Estimator").Select
    'Application.Run "ResetFormRepairs"
    Sheets("Equator").Select
    Range("B36").Select
   
        Range("b6").Select
End Sub
Sub KK()
'
' KK Macro
' Macro recorded 5/20/2011 by b8ukbk
'
' Keyboard Shortcut: Ctrl+l
'
    Sheets("assentio").Unprotect "Aw_2012"
    Range("B5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[-4]C[6]"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=R[-5]C[7]"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "=R[-3]C[4]"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "Yes"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "NA"
    Range("B27").Select
    ActiveCell.FormulaR1C1 = "No Major Repairs Needed"
    Range("B28").Select
    ActiveCell.FormulaR1C1 = "None Noted"
    Range("B33").Select
    ActiveCell.FormulaR1C1 = "yes"
    Range("B34").Select
    ActiveCell.FormulaR1C1 = "=R[-33]C[8]"
    Range("B35").Select
    ActiveCell.FormulaR1C1 = "=R[-34]C[9]"
    Range("c34").Select
    ActiveCell.FormulaR1C1 = "=R[-33]C[7]"
    Range("c35").Select
    ActiveCell.FormulaR1C1 = "=R[-34]C[8]"
    Range("B29").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("B7").Select
End Sub

Thanks in advance for any help!