Posts by AlanT

    Hi Guys, I have read with interest the ongoing debate about securing Excel spreadsheets, and I am well aware of the limitations of creating a truly secure workbook.


    With this in mind I have hidden sensitive data using the "Very Hidden" command in VBA. I think this is very useful because sheets which are very hidden do not show up in the "file properties" dialog.


    However any named range contained on a very hidden sheet is still visible in the properties dialog. A user might not be able to access the named range, but s/he will know it is there.


    So basically I was wondering if anyone knew of a way to apply "very hidden" characteristics to named ranges?


    Cheers


    Alan

    Thanks John, i used your idea and came up with the VBA code:
    ActiveSheet.Shapes("ENGLISH1").Delete
    ActiveSheet.Shapes("ENGLISH").Select
    Selection.Copy
    Selection.Verb Verb:=xlOpen
    Selection.Name = "ENGLISH1"
    ActiveSheet.Paste


    this copies the template, opens it, renames the file and pastes a fresh template for next time around.


    Cheers
    Alan

    Hi,


    I have a spreadsheet that is sent out to a number of users. as part of the sheet there is a standard letter which is embeded into the spreadsheet. i have written a macro to update this embeded file with information from the spreadsheet.


    however when the documnent is closed it saves any changes into the embeded file.


    i need this file to be a clean template for the next time the macro is run.
    Can someone suggest a way to stop the embeded file being saved? or perhaps another solution to this problem?


    Many thanks
    Alan

    Hi,


    I have a user form with six text boxes that i am using as an input form. i have it all set up to copy the values from the form into the spreadsheet concerned. However when i type in numerical values they are pasted into excel as text (probably obvious sionce it is a text box). Is there any way that i can get my form to paste numerical values into the spreadsheet?


    my code is
    Sheets("Quote").Range("E3").Value = Input_program
    Sheets("Quote").Range("E4").Value = Input_A
    Sheets("Quote").Range("E5").Value = Input_B
    Sheets("Quote").Range("E6").Value = Input_C
    Sheets("Quote").Range("E7").Value = Input_D
    Sheets("Quote").Range("E8").Value = Input_E


    Input_program.SetFocus
    Tier_input.Hide



    Cheers
    Alan

    Hi,


    I have some code that copies one sheet into a new workbook (Values only). i have created another sub that will create a button and bind a macro to it. However i am unable to find a way to copy the code into the new workbook so that it can be bound to the button.
    does anyone have any ideas how i can do
    this?


    Alan

    Hi i was hoping some one might be able to help. i want to runa macro on a given date. i am using the Private sub Workbook_open() to ensure the macro is running.


    Basically all i want to say is


    If today = 19/2/04 then
    run another sub.


    however this simplified approach does not work, could some one please advise how i can acheive this?


    Cheers

    i have a two column word table template and would like to paste excel data into column 2.
    So far i have
    Sub Paste_word()
    Range("F8:M8").Select
    Selection.Copy
    Set wrd = GetObject(, "Word.Application"):


    With wrd:
    With .Selection


    Set MyRange = .Goto(wdGoToField, wdGoToPrevious)
    .MoveDown Count:=6
    .MoveRight Unit:=wdCell
    .PasteExcelTable False, False, False
    End With
    End With


    End Sub



    When i get to the .MoveRight Unit:=wdCell line i get a 4120 Bad Parameter error.


    I can run this code in Word correctly but not in excel.


    Could you please advise how i can get excel to change into the second column of my word table?

    Hi,


    I am new to macros and could do with some help.


    I have a formaula in say cell A1, i would like a macro that will check this cell and when the result of the formula changes run another macro.


    Can you please help?